Makro-Fehlermeldung (Laufzeitfehler '1004')
01.03.2009 23:45:37
Patrick
Ich arbeite derzeit an einem Excel-Sheet und benötige dafür einige Makros. Obwohl ich keine Ahnung von Makros habe, konnte ich über die Such-Funktionen in verschiedenen Foren meine Probleme bisher selbst lösen. Nun stosse ich jedoch an meine Grenzen und konnte auch im Internet keine Lösung für mein Problem finden. Und zwar stockt es bei folgendem Makro:
For i = 1 To 100
If Sheets("Tabelle").Cells(i, 28).Value = "" Then Exit For
Next i
Sheets("Tabelle").Range("AB" & i - 1).Select
Selection.Copy
Sheets("Auswertung").Select
Range("D75").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = xlCopy
For i = 1 To 100
If Sheets("Tabelle").Cells(i, 29).Value = "" Then Exit For
Next i
Sheets("Tabelle").Select
<b> Sheets("Tabelle").Range("AC" & i - 1).Select</b>
Selection.Copy
Sheets("Auswertung").Select
Range("E75").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = xlCopy
For i = 1 To 100
If Sheets("Tabelle").Cells(i, 30).Value = "" Then Exit For
Next i
Sheets("Tabelle").Select
Sheets("Tabelle").Range("AD" & i - 1).Select
Selection.Copy
Sheets("Auswertung").Select
Range("F75").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = xlCopy
For i = 1 To 100
If Sheets("Tabelle").Cells(i, 31).Value = "" Then Exit For
Next i
Sheets("Tabelle").Select
Sheets("Tabelle").Range("AE" & i - 1).Select
Selection.Copy
Sheets("Auswertung").Select
Range("H75").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = xlCopy
Während das Kopieren der ersten Zelle nach D75 einwandfrei funktioniert, bekomme ich bei der zweiten Zelle eine Fehlermeldung (Laufzeitfehler '1004' - Anwendungs- und objektdefinierter Fehler). Dabei wird die im obigen Makro fett markierte Zeile gelb markiert. Ich kann mir aus dieser Fehlermeldung keinen Reim machen, da ich den funktionierenden ersten Teil des Makros einfach kopiert und umgeschrieben habe. Euch Profis werden vermutlich die Haare zu Berge stehen, wenn ihr Euch dieses Makro anschaut. :-) Trotzdem wäre ich Euch sehr dankbar, wenn Ihr mir bei meinem Problem helfen könntet. Ich bin mit meinem - wahrlich sehr beschränkten Latein - am Ende.
Bereits jetzt vielen Dank für Eure Hilfe.
Beste Grüsse und eine gute Nacht
Patrick