ich scheitere an folgendem Problem
erste leere Zelle z.B. in Spalte A suchen(z.B. A10) und den Wert von E1 E1 eintragen.
Das klappt soweit.
Nun möchte ich noch den Wert aus E1 in B10 eintragen.
danke und ein schönes WE
Günter
Option Explicit
Sub Leer()
Dim RaFound As Range
Set RaFound = Columns(1).Find("", Range("A1"), , xlPart, , xlNext)
RaFound.Formula = "=E1"
RaFound.Offset(0, 1).Formula = "=E1"
End Sub
Gruß HajoPrivate Sub CommandButton1_Click()
With Worksheets("Tabelle1")
.Range("a400").End(xlUp).Offset(1, 0).Resize(, 2) = .Range("Q1")
End With
End Sub
Gruß Werner