leere Zelle suchen
14.02.2005 08:11:08
Joachim
ich versuche mit untenstehender Anweisung die erste leere Zelle in einer tabell zu finden um dort einen Eintrag zu machen. Ich hab diese aus einenm Buch abgeschrieben leider bekomme ich in der 5. zeile ( For Each.....) eine Fehlermeldung.
Kann mir jemand weiterhelfen?
Noch eine Frage: Was bedeuten die eckigen Klammern und wie schreibt mann die auf der Tastatur?
Im voraus vielen Dank
Gruß Joachim
Private Sub CommandButton2_Click()
Dim GesellschaftZelle As Range
Dim Spalte As Variant, zeile As Variant
'Auftrag übertragen
For Eache GesellschaftZelle = In [A:A]
If IsEmpty(GesellschaftZelle) = True Then Exit For
Next
GesellschaftZelle = ActiveCell
End Sub
Anzeige