erstes sortiertes Feld
18.09.2007 13:13:00
Rolf
Also, ich habe mit Autofilter eine sortierte Liste.
Die von mir sortierte Liste ist, aufgrund meiner Kriterien, leer. Damit ich prüfen kann, ob sie Leer ist, möchte ich folgendes machen:
Cursor auf erste angezeigte Zeile der (leeren) liste setzen. Prüfen ob Zelle leer ist, MsgBox ausgeben, das lsite Leer ist.
Folgendes funktioniert schon mal nicht, weil er da wohl dann nicht die erste angezeigte Zelle nimmt, sondern die nächste (Hier dann Zelle "a2"):
(Ich weiss, würde auch ohne Select gehen... :))
Sheets("Tabelle1").Select
Range("a1").Select
ActiveCell.Offset(1, 0).Select
If ActiveCell = "" Then
Leer = MsgBox("Die gewählten Kriterien ergeben eine leere Liste!" & vbCr & "Ändern sie Ihre kriterien!", vbOKOnly, "LISTE OHNE INHALT")
Else:
voll = MsgBox("Liste wurde erstellt!" & vbCr & "Ihre Kriterien:" & vbCr & ComboBox1.Value & " und " & ComboBox2.Value & ".", vbOKOnly, "LISTE ERSTELLT")
End If
Vielleicht gibt's ja auch noch einen viel einfacheren Weg, die Liste auf "Leer" zu prüfen...
Bin für alle Tips dankbar!
Rolf