Spalte finden, in freie Zeile schreiben
28.02.2008 08:34:00
J.
Ich habe hier ein Makro , das mir einen bestimmten Text in die erste frei Zeile einer vorher festgelegten Spalte einer Tabelle schreiben soll. Ich habe es schon geschafft, das die richtige Spalte gefunden wird, aber das mit der Zeile bekomme ich noc hnicht hin.
Hier ist mal der Code des Makros. Zur Erklärung: der Text nach dem die Spalte gesucht wird, steht in Zelle G4, danach wird im Arbeitsblatt "Arbeitsgruppen" in der ersten Zeile nach diesem Begriff gesucht.
Dann sollte es damit weitergehen, dass in die erste freie Zelle dieser Spalte ein Begriff aus der Zelle G6 eingefügt wird.
Private Sub cmdHinzufügen_Click()
Dim raZelle As Range
Set raZelle = Worksheets("Arbeitsgruppen").Rows(1).Find(Worksheets("Sonstiges").Range("G4"), _
_
lookat:=xlWhole)
If Not raZelle Is Nothing Then
End If
End Sub