Tabellenname flexibel
12.12.2012 09:26:54
Gisela
folgender Makro läuft super - ist hier aus dem Forum.
Sub Datensuchtages()
Application.ScreenUpdating = False
Worksheets("tages").Range("A6:CA225").ClearContents
Range("B9").Select
Application.ScreenUpdating = False
Dim Loletzte As Long
Dim a As Long, i As Long
a = 11
With Worksheets("tages")
For i = 11 To 225
If Worksheets("dez").Cells(i, 8) = "" Then 'Wenn in Spalte 8 ein Wert steht _
_
'wenn in spalte drei ein Wert steht
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp) _
_
_
.Row, .Rows.Count) + 1
Worksheets("dez").Rows(i).Copy .Cells(Loletzte, 1)
a = a + 1
End If
Next i
End With
End Sub
Nun soll ich eine Änderung vornehmen.
Der Tabellenname wechselt monatlich und steht in der Tabelle "neu" in Zelle "B5".
Wie kann ich den Bezug auf "neuB5" hier einfügen, bzw was muss ich verändern.
Da ich nur Recorder-Kenntnisse habe, fehlen mir leider die entsprechenden Kenntnisse.
Vielen Dank für jede Hilfe
Gisela