erste freie Zelle in Reihe
04.02.2014 21:18:27
Thomas
mit folgendem Makro suche ich in einer anderen Mappe nach einem Eintrag
Sub Menge_Eintragen()
Dim Suchergebnis As Range
Dim a As Long
a = ActiveCell.Offset(0, -12).Value
Workbooks.Open ThisWorkbook.Path & "\Schneidringe.xls"
With Worksheets("Schneidringe")
With .Range("b3:b72")
Set Suchergebnis = .Find(a, LookIn:=xlValues)
If Not Suchergebnis Is Nothing Then
MsgBox Suchergebnis.Address
End If
End With
End With
End Sub
gefunden wird dabei zum Beispiel die Adresse $B$41
wie finde ich nun die erste leere Zelle in dieser Reihe 41
wäre in diesem Beispiel die Zelle $E$41
besten Dank im Voraus
MfG Thomas Koch