umbau
28.03.2009 12:28:49
Rolf
Ein Problem-ich habe hier ein Makro das leider
in erste Zeile schreibt sollte jedoch erst bei Zeile4 anfangen
wer könnte umbauen?
Sub Probe()
Dim Loletzte As Long
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim rng4 As Range
Set wks1 = Worksheets("Tabelle1")
Set wks2 = Worksheets("Tabelle2")
Set Rng1 = wks1.Range("B2")
Set Rng2 = wks1.Range("D2")
Set Rng3 = wks1.Range("F2")
Set rng4 = wks1.Range("H2")
If wks2.Cells(Rows.Count, 1).End(xlUp).Row + 1
Grüße
Rolf