Hallo Holger,
Werde das gleich ausprobieren wenn ich zeit habe!
danke für deine hilfe.
-----------------------
Holger schrieb am 29.11.2009 12:06:07:
Hallo mister-macro,
wahrscheinlich brauchst du nur eine weitere For-Next-Schleife um deinen Code zu legen und die Zellebezeichnungen an dies Variabeln abzupassen. Ich schicke dir aber einen Alternativvorschlag:
Sub aufwand3()
Sheets("macrojournal").Activate
Cells(1, 1).Activate
If Cells(1, 1) = "Lohnaufwand" Then ÜTr 1
Set rng = Sheets("macrojournal").Columns("A:C").Find(What:="Lohnaufwand", LookIn:=xlValues)
If Not rng Is Nothing Then
erstes = rng.Row
ÜTr rng.Row
Else
Exit Sub
End If
Do
Set rng = Sheets("macrojournal").Columns("A:C").FindNext(after:=rng)
If rng.Row erstes
End Sub
Sub ÜTr(a)
With Sheets("macroaufwand3")
lz = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If lz = 2 And .Cells(1, 2) = "" Then lz = lz - 1
.Cells(lz, 1) = Cells(a, 1)
.Cells(lz, 2) = Cells(a, 2)
.Cells(lz, 3) = Cells(a, 3)
End With
End Sub
Gruß
Holger
mister-macro schrieb am 25.11.2009 16:07:27:
Hallo Miteinander,
Könnte mir jamand helfen, den folgenden code durch einen loop zu vereinfachen? Dieser wiederholt sich fortlaufend bis zeile 100. Der code prüft das sheet "macrojournal" zeilenweise auf einen Wert, und falls dieser vorhanden ist kopiert er diesen dann in ein anderes sheet.
hab div. versuche gestartet aber komme nicht weiter. Wäre echt dankbar! Gruss
'Makros für verteilformel macrojournal an macroaufwand3
Sub aufwand3_zeile1()
For i = 1 To 2
If Worksheets("macrojournal").Cells(2, i) = "Lohnaufwand" Then
Dim Loletzte As Long
With Worksheets("macroaufwand3")
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Sheets("macrojournal").Range("A2:F2").Copy
.Cells(Loletzte, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End If
Next
End Sub
--------------------------
Sub aufwand3_zeile2()
For i = 1 To 2
If Worksheets("macrojournal").Cells(3, i) = "Lohnaufwand" Then
Dim Loletzte As Long
With Worksheets("macroaufwand3")
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Sheets("macrojournal").Range("A3:F3").Copy
.Cells(Loletzte, 1).PasteSpecial xlPasteValues
End With
End If
Next
End Sub
--------------------------
Sub aufwand3_zeile3()
For i = 1 To 2
If Worksheets("macrojournal").Cells(4, i) = "Lohnaufwand" Then
Dim Loletzte As Long
With Worksheets("macroaufwand3")
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Sheets("macrojournal").Range("A4:F4").Copy
.Cells(Loletzte, 1).PasteSpecial xlPasteValues
End With
End If
Next
End Sub
------------------------------
Sub aufwand3_zeile4()
For i = 1 To 2
If Worksheets("macrojournal").Cells(5, i) = "Lohnaufwand" Then
Dim Loletzte As Long
With Worksheets("macroaufwand3")
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Sheets("macrojournal").Range("A5:F5").Copy
.Cells(Loletzte, 1).PasteSpecial xlPasteValues
End With
End If
Next
End Sub
-----------------------------
etc.... |