string(s) suchen, Spalte aufwärts, WEITERsuchen
16.02.2004 17:01:55
Peter3
Situation meines Problems:
In einer Spalte stehen verschiedene strings. .End(xlUp) soll auf letzte belegte Zelle gehen. Schleife sucht (hoffentlich jetzt nach oben) den string. Findet den string. Geht dann nach links und gibt Zellwert (ein Datum) in einem Label aus. Sucht dann aber nicht weiter nach den anderen strings (, die mit case-Anweisung angegeben wurden).
Frage:
Wer kann mir bitte schreiben, warum mein(e) Schleife (Code) nach erstem gefundenen string nicht weitersucht und auch die anderen ausgibt ?
mein Code:
Private Sub letztestrgsfinden()
Dim k As Long
k = 0
Sheets("sonundso").Activate
Range("L65536").End(xlUp).Select
For k = 1 To ActiveSheet.UsedRange.Rows.Count
Select Case ActiveCell.Value
Case Is = "Dereine-String"
ActiveCell.Offset(0, -10).Select 'nach links und Zellwert (Datum) ausg.
lbl_ausgabe1.Caption = ActiveCell.Value
lbl_ausgabe2.Caption = ActiveCell.Value '+ 12 Monate ???
Case Is = "Derandere-String"
ActiveCell.Offset(0, -10).Select 'nach links und Zellwert (Datum) ausg.
lbl_ausgabe1.Caption = ActiveCell.Value
lbl_ausgabe2.Caption = ActiveCell.Value '+ 6 Monate ???
End Select
ActiveCell.Offset(1, 0).Select
Next k
End Sub
Danke für Tips,
Gruß, P.