Thema Datum  Von Nutzer Rating
Antwort
28.01.2025 16:37:19 Sam
NotSolved
29.01.2025 08:50:11 Gast77244
NotSolved
29.01.2025 20:31:15 Sam
NotSolved
30.01.2025 07:57:57 Gast95859
NotSolved
02.02.2025 11:39:43 Sam
NotSolved
02.02.2025 13:32:39 ralf_b
NotSolved
03.02.2025 07:27:23 Sam
NotSolved
Blau Wert in Abhängigkeit von Nachbarspalte auf 0 setzen
 03.02.2025 23:44:02 ralf_b
Solved
04.02.2025 08:14:26 Sam
NotSolved
04.02.2025 13:56:59 Sam
NotSolved
04.02.2025 17:14:51 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
03.02.2025 23:44:02		 Views:
40		 Rating:
     
Antwort:
 Nein
Thema:
Wert in Abhängigkeit von Nachbarspalte auf 0 setzen

ich habe der Einfachheit mal chatgpt gefragt und zwar ungefähr mit einen Worten. das MAkro gehört in das Modul "DieseArbeitsmappe". Ungetestet, also nicht jammern wens nicht funktioniert. 

 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ws As Worksheet
    Dim checkRange As Range
    Dim cell As Range
    Dim wsCheck As Worksheet
    Dim lastRow As Long
    
    ' Setze das Arbeitsblatt, das überprüft werden soll
    Set wsCheck = ThisWorkbook.Sheets(3) ' Tabelle 3
    
    ' Überwachte Tabellen von 4 bis 12
    If Sh.Index >= 4 And Sh.Index <= 12 Then
        ' Definiere den Überwachungsbereich
        Set checkRange = Sh.Range("E6:K34")
        
        ' Prüfe, ob die Änderung in diesem Bereich liegt
        If Not Intersect(Target, checkRange) Is Nothing Then
            ' Finde die letzte genutzte Zeile in Tabelle 3
            lastRow = wsCheck.Cells(wsCheck.Rows.Count, 1).End(xlUp).Row
            
            ' Durchlaufe die Zeilen in Tabelle 3
            Application.enableevents = false 
            For Each cell In wsCheck.Range("A1:A" & lastRow)
                If cell.Value = "" Then
                  
                    wsCheck.Cells(cell.Row, 11).Value = 0 ' Spalte K (11. Spalte)
                End If
            Next cell
            Application.enableevents = true
        End If
    End If
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
28.01.2025 16:37:19 Sam
NotSolved
29.01.2025 08:50:11 Gast77244
NotSolved
29.01.2025 20:31:15 Sam
NotSolved
30.01.2025 07:57:57 Gast95859
NotSolved
02.02.2025 11:39:43 Sam
NotSolved
02.02.2025 13:32:39 ralf_b
NotSolved
03.02.2025 07:27:23 Sam
NotSolved
Blau Wert in Abhängigkeit von Nachbarspalte auf 0 setzen
 03.02.2025 23:44:02 ralf_b
Solved
04.02.2025 08:14:26 Sam
NotSolved
04.02.2025 13:56:59 Sam
NotSolved
04.02.2025 17:14:51 ralf_b
NotSolved