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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen