Zellen prüfen funktioniert nicht wie gewünscht

Hallo ihr Excelspezialisten,
ich habe folgende Tabelle:
Name Vorname Vorname 1.Buchstabe Geschlecht
test w
test 0
test w
test m
test w
test w
test m
test w
test w
0
0
0
0
0
0
0
Folgende Prüfung soll erfolgen:
wenn in dem Bereich, in welchem Text in Spalte A steht und in Spalte D = 0 dann soll Abbruch erfolgen.
wenn der Bereich mit Text in Spalte A und Text in Spalte D vorhanden ist dann soll ein Button aktiviert werden.
Wenn in dem Bereich, in welchem kein Text in Spalte A steht und in Spalte D = 0 dann soll nichts geschehen,
denn wenn letzte Zelle mit Text in Spalte A durchlaufen ist, dann ist auch der Code zu Ende.
Mein bisheriger Test:

Sub Test3()
Dim i As Integer
For i = 2 To 50   'hier muss letzteZelle hinein                '2.-50. Zeile
If Cells(i, 1) = Text And Cells(i, 4) > 0 Then
MsgBox "Grösser 0 = Button aktivieren"
Else
MsgBox "=0"
Exit Sub
End If
Next i
End Sub

Was muss hier bitte geändert werden. Danke für eure Hilfe.
Gruss
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim letzteZeile As Long With Worksheets("Tabelle3") letzteZeile = .Cells(Rows.Count, 2).End(xlUp).Row If WorksheetFunction.CountIf(.Range("D2:D" & letzteZeile), 0) = 0 And _ WorksheetFunction.CountBlank(.Range("A2:A" & letzteZeile)) = 0 Then MsgBox "aktiv" Else MsgBox "nicht aktiv" End If End With End Sub

Sub a() Dim ws As Worksheet Dim i As Long Dim lRow As Long Set ws = ThisWorkbook.Sheets("Dein Sheet") With ws '//letzte Zeile aus Spalte 1 lRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 1 To lRow '//Wenn Zelle xy nicht nichts ist und zelle yx größer null If .Cells(i, 1).Value "" And CInt(.Cells(i, 4).Value) > 0 Then '//dann Message MsgBox "Button aktiv" Else '//message und raus aus schleife MsgBox "Button nicht aktiv" Exit For End If Next i End With End Sub

Sub activate_Button() Dim ws As Worksheet Dim i As Long Dim lRow As Long Dim temp Set ws = ThisWorkbook.Sheets("Tabelle3") With ws lRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 2 To lRow If .Cells(i, 1).Value "" Then If .Cells(i, 4).Value = 0 Then '//Button deaktiviert MsgBox "Button nicht aktiv" Exit For ElseIf .Cells(i, 4).Text = "w" Or .Cells(i, 4).Text = "m" Then '//Button aktivieren MsgBox "Button aktiv" End If End If Next i End With End Sub

Sub activate_Button() Dim ws As Worksheet Dim i As Long Dim lRow As Long Dim temp() Set ws = ThisWorkbook.Sheets("Tabelle3") With ws lRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 2 To lRow ReDim Preserve temp(i - 2) temp(i - 2) = .Cells(i, 1) Next i '//Wenn in Spalte A nicht überall ein wert steht '//dann gehe aus dem Sub raus If Application.WorksheetFunction.CountA(temp) 0 Then Exit Sub '//Wenn es auf dem Blatt keine Nuller gibt dann '//mache Button aktiv oder sonst was If Application.WorksheetFunction.Count(0) = 0 Then '//Tue was Else '//Tue nichts End If 'Alternativ auch so machbar, mit den nullern 'Erase temp 'For i = 2 To lRow 'ReDim Preserve temp(i - 2) 'temp(i - 2) = .Cells(i, 4) 'Next i 'If Application.WorksheetFunction.Count(0, temp) = 0 Then End With End Sub

Sub test_2() Dim ws As Worksheet Dim i As Long Dim lRow As Long Set ws = ThisWorkbook.Sheets("Tabelle3") With ws lRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 2 To lRow If .Cells(i, 1).Value "" And .Cells(i, 4).Value = 0 Then MsgBox "Spalte D noch nicht fertig bearbeitet - Button nicht aktiviert" Exit For ElseIf .Cells(i, 4).Text = "w" Or .Cells(i, 4).Text = "m" Then MsgBox "Button aktiv" End If Next i End With End Sub

Sub test_2() Dim ws As Worksheet Dim i As Long Dim lRow As Long Dim n As Long, m As Long, Zeile Set ws = ThisWorkbook.Sheets("Tabelle3") With ws lRow = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 2 To lRow If .Cells(i, 1).Value "" And .Cells(i, 4).Value = 0 Then Zeile = Zeile & ", " & i 'Zeile/n merken n = n + 1 'Anzahl merken ElseIf .Cells(i, 4).Text = "w" Or .Cells(i, 4).Text = "m" Then m = m + 1 'Okay Anzahl merken End If Next i If n > 0 Then Zeile = Right(Zeile, Len(Zeile) - 2) '1. Kamma abschneiden If m = lRow - 1 Then MsgBox "Button aktiv" If n > 0 Then MsgBox "Spalte D noch nicht fertig bearbeitet - Button nicht aktiviert" & _ Chr(10) & n & " Zeile/n: = " & Zeile End With End Sub

Beliebteste Forumthreads (12 Monate)

Zellen prüfen funktioniert nicht wie gewünscht

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen prüfen funktioniert nicht wie gewünscht

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

323 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread