- #1
B
Bulli
Mitglied
Themenersteller
- Dabei seit
- 17.11.2002
- Beiträge
- 24
- Reaktionspunkte
- 0
Hallo da draußen,
mich plagt wieder ein Problem mit Excel. Es ist äußerst schwierig das zu beschreiben. In meiner Datei sind mehrere Makros, die nicht miteinander arbeiten wollen. Ein Makro ist für die Bearbeitungsrichtung zuständig. (Makro 1)
Private Sub Worksheet_Active()
Application.MoveAfterReturnDirection = xlDown( auf einem anderen Blatt = xlRight)
End Sub
dann folgt für ein Registerblatt ein Makro, dass nach Eingabe von 10 Werten einen automatischen Sprung in die nächste Spalte durchführt. (Makro 2)
Private Sub Worksheet_Change(ByVal Target As Range)
'Target ist der geänderte Bereich. Er kann mehr als eine Zeile umfassen
'Dim zelle As.Range
Dim r As Long, c As Long, anz As Long
anz = 0
For Each zelle In Target
anz = anz + 1
Next
If anz = 1 Then 'nur wenn eine Zelle geändert wurde
For Each zelle In Target
If zelle.Row = 11 Then 'Zeile 11 ??
Cells(2, zelle.Column + 1).Select
Beep
End If
Next
End If
End Sub
und nun folgt mein Problem. Die Zusammenfassung der Werte soll übertragen werden in eine Liste auf einem weiteren Blatt durch folgendes Makro: (Makro 3)
Sub Inhalt_einfügen()
'
' Inhalt_einfügen Makro
' Makro am 22.11.2002 von Mir aufgezeichnet
'
'
Sheets(Meßdaten).Select
Application.Run KK_Test.xlt!Mark_Copy
Sheets(Meßdatenliste).Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Makro 1 und Makro 3 haben in der Datei bereits einige Zeit problemlos zusammengearbeitet. Nachdem ich zur Erleichterung Makro 2 eingefügt habe meldet sich Visual Basic mit Fehler 1004 und text: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
Kann mir jemand helfen
mich plagt wieder ein Problem mit Excel. Es ist äußerst schwierig das zu beschreiben. In meiner Datei sind mehrere Makros, die nicht miteinander arbeiten wollen. Ein Makro ist für die Bearbeitungsrichtung zuständig. (Makro 1)
Private Sub Worksheet_Active()
Application.MoveAfterReturnDirection = xlDown( auf einem anderen Blatt = xlRight)
End Sub
dann folgt für ein Registerblatt ein Makro, dass nach Eingabe von 10 Werten einen automatischen Sprung in die nächste Spalte durchführt. (Makro 2)
Private Sub Worksheet_Change(ByVal Target As Range)
'Target ist der geänderte Bereich. Er kann mehr als eine Zeile umfassen
'Dim zelle As.Range
Dim r As Long, c As Long, anz As Long
anz = 0
For Each zelle In Target
anz = anz + 1
Next
If anz = 1 Then 'nur wenn eine Zelle geändert wurde
For Each zelle In Target
If zelle.Row = 11 Then 'Zeile 11 ??
Cells(2, zelle.Column + 1).Select
Beep
End If
Next
End If
End Sub
und nun folgt mein Problem. Die Zusammenfassung der Werte soll übertragen werden in eine Liste auf einem weiteren Blatt durch folgendes Makro: (Makro 3)
Sub Inhalt_einfügen()
'
' Inhalt_einfügen Makro
' Makro am 22.11.2002 von Mir aufgezeichnet
'
'
Sheets(Meßdaten).Select
Application.Run KK_Test.xlt!Mark_Copy
Sheets(Meßdatenliste).Select
ActiveCell.Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Makro 1 und Makro 3 haben in der Datei bereits einige Zeit problemlos zusammengearbeitet. Nachdem ich zur Erleichterung Makro 2 eingefügt habe meldet sich Visual Basic mit Fehler 1004 und text: Die PasteSpecial-Methode des Range-Objektes konnte nicht ausgeführt werden.
Kann mir jemand helfen