Office: (Office 2003) Aktive Zelle übertragen

Hallo,
Bitte um VBA Hilfe!

Ich möchte aus der Tabelle Quelle die jeweils markierte Zelle (Aktive Zelle)
den Inhalt in die Tabelle Ziel ab der Spalte C4 übernehmen.

Wenn eine weitere Zelle in der Tabelle Quelle ausgewählt wird sollte dieser Wert
in die Tabelle Ziel entsprechend in die Spalte C angefügt werden.

Sind in der Tabelle Ziel die Zellen von C4:C9 mit Werten belegt sollte ein ensprechender Hinweis
erfolgen z.B "Alle Zellen belegt!"

siehe im Anhang Testmappe

Vielen Dank für Eure Hilfe
Gruß Derhard

 

Hallo

in meinem Test funktioniert es so

Code:

Option Explicit

Sub test()
    Dim i As Long
    With Worksheets("Ziel")
        For i = 4 To 9
            If .Cells(9, "C").Value <> "" Then
                MsgBox "Alle Zellen belegt"
                Exit Sub
            ElseIf .Cells(i, 3).Value = "" Then
                .Cells(i, 3).Value = ActiveCell.Value
                Exit For
            End If
        Next
    End With
End Sub

MfG Tom

 

Hallo Tom,
Danke es funktioniert so!

Gruß Derhard