Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
loop oder schleife? |
25.11.2009 16:07:27 |
mister-macro |
|
|
|
29.11.2009 12:06:07 |
Holger |
|
|
|
30.11.2009 09:37:47 |
mister-m |
|
|
|
30.11.2009 09:43:55 |
MM |
|
|
|
30.11.2009 12:52:26 |
Holger |
|
|
|
07.12.2009 11:30:59 |
MM |
|
|
Von:
mister-macro |
Datum:
25.11.2009 16:07:27 |
Views:
1527 |
Rating:
|
Antwort:
|
Thema:
loop oder schleife? |
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.... |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
loop oder schleife? |
25.11.2009 16:07:27 |
mister-macro |
|
|
|
29.11.2009 12:06:07 |
Holger |
|
|
|
30.11.2009 09:37:47 |
mister-m |
|
|
|
30.11.2009 09:43:55 |
MM |
|
|
|
30.11.2009 12:52:26 |
Holger |
|
|
|
07.12.2009 11:30:59 |
MM |
|
|