Nächste Zeile per CMD
23.08.2020 17:12:32
Michael
ich versuche mich gerade mit VBA...
Und zwar steht in Tabelle 1, Zelle C6 eine Mitgliedszahl für ein Mitglied meines Vereins.
Nun möchte ich per cmd Button das nächste Mitglied angezeigt bekommen. Sprich die nächste Mitgliedsnummer in C6 angezeigt bekommen. Die Mitgliedsnummern stehen in "Mitglieder", Spalte B.
Aber anscheinend habe ich einen Fehler in dem u.s. Code. Es heißt End With ohne With. Mag da einer mal rüberschauen?
Vielen Dank Michael
Private Sub cmdNächster_MV_Click()
Dim rngZelle As Range, strStart As String
Worksheets("Tabelle1").Range("C6").Select 'Hier steht die Mitgliedsnummer, worauf andere Zelle _
zugreifen
If ActiveCell "" Then
With Worksheets("Mitglieder").Columns("B:B") 'Hier stehen die Mitgliedernummern
Set rngZelle = .Find(ActiveCell.Value, LookAt:=xlWhole, LookIn:=xlValues)
If Not rngZelle Is Nothing Then
strStart = rngZelle.Address
Do
ActiveCell = .Cells(rngZelle).Offset(1, 0).Select
Exit Do
If rngZelle.Address = strStart Then
MsgBox "Keinen weiteres Mitglied gefunden"
Unload Me
End If
Loop While Not rngZelle Is Nothing And rngZelle.Address strStart
End With
End If
Set rngZelle = Nothing
End Sub