|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.07.2009 16:13:49 |
mister-macro |
|
|
|
15.07.2009 16:20:46 |
Murdoc |
|
|
|
15.07.2009 16:33:09 |
jh |
|
|
 Aw:Aw:Aw:steps?? |
16.07.2009 08:23:25 |
mister-macro |
|
|
|
16.07.2009 12:28:56 |
Murdoc |
|
|
|
17.07.2009 09:49:01 |
mister-macro |
|
|
|
17.07.2009 12:54:02 |
jh |
|
|
|
17.07.2009 14:00:49 |
Murdoc |
|
|
|
21.07.2009 07:26:21 |
mister-macro |
|
|
Von:
mister-macro |
Datum:
16.07.2009 08:23:25 |
Views:
632 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:steps?? |
Hey Jürgen,
ja das ist wahr, es swahr ein Laufzeitfehler, eben wahrscheinlich wegen dem "Range".
Aber irgendwie funktioniert der Code nicht wie er soll. ich möchte ja im Journal die Zellen "B8 bis F8" kopieren, aber nur falls in den ersten beiden Zellen B8/C8 "Kreditoren" steht.
Da ich das für etwa 30 Zeilen machen muss, muss ich den Code immer wiederholen (+dann für div.sheets das selbe), und der nächste wäre dann IF B9/C9 = "Kreditoren" dann kopiere C9 bis F9. Die kopien sollen in "macrokreditoren" eingefühgt werden, von dort aus mache ich einen direkten Zellbezug in das Sheet Kreditoren.
Wie kann ich diesen Code vereinfachen, so das ich nicht jede Zeile anpassen muss, sondern mit einer art loop oder eben steps befehelen kann, er soll immer eine Zeile rutschen, von Zeile 8 bis 30.
momentan kopiert er mir mit den steps die zeile irgendwo hin mit unregelmässigen abständen.
danke!
der original code wäre:
Sub Kreditoren_zeile1()
For i = 2 To 3
If Worksheets("Journal").Cells(8, i) = "Kreditoren" Then
Dim Loletzte As Long
With Worksheets("macrokreditoren")
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Sheets("Journal").Range("B8:F8").Copy
.Cells(Loletzte, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End If
Next
End Sub
Sub Kreditoren_zeile2()
For i = 2 To 3
If Worksheets("Journal").Cells(9, i) = "Kreditoren" Then
Dim Loletzte As Long
With Worksheets("macrokreditoren")
Loletzte = IIf(IsEmpty(.Range("A65536")), _
.Range("A65536").End(xlUp).Row + 1, 65536)
Sheets("Journal").Range("B9:F9").Copy
.Cells(Loletzte, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End If
Next
End Sub
etc......
---------------------------
jh schrieb am 15.07.2009 16:33:09:
Hallo,
es wäre immer sehr hilfreich, wenn du schon eine Fehlermeldung bekommst,
dass du uns verrätst was für eine und in welcher Zeile. Das Weglassen der
Laufvariablen hinter Next ist aber eher eine lässliche Sünde und in VBS sogar
normal :-)
Sheets("Journal").Range(steps, j).Copy
ist aber eine fehlerhafte Adressierung des Range-Object. Statt Range gehört
hier Cells hin.
Gruß Jürgen
|
- 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
|
|
15.07.2009 16:13:49 |
mister-macro |
|
|
|
15.07.2009 16:20:46 |
Murdoc |
|
|
|
15.07.2009 16:33:09 |
jh |
|
|
Aw:Aw:Aw:steps?? |
16.07.2009 08:23:25 |
mister-macro |
|
|
|
16.07.2009 12:28:56 |
Murdoc |
|
|
|
17.07.2009 09:49:01 |
mister-macro |
|
|
|
17.07.2009 12:54:02 |
jh |
|
|
|
17.07.2009 14:00:49 |
Murdoc |
|
|
|
21.07.2009 07:26:21 |
mister-macro |
|
|