Bin wieder auf eine Herausforderung gestossen. Vielleicht könnt ihr mir helfen?
Ich starte aus der Userform3 untenstehendes Makro (welches sich in dieser Userform befindet). Nach Beendigung des Makros soll die Userform1 aufgerufen werden. Ich erhalte jedoch immer den Laufzeitfehler '1004: Die Methode 'Range' für das Objekt'_Global ist fehlgeschlagen.
Markiert wird jeweils die Zeile: UserForm1.Show vbModeless
(ohne diese Zeile läuft das Makro übrigens perfekt)
Ich habe schon "Debuggen"/"Kompilieren" aufgerufen, da hat er nicht gemeckert.
Ebenfalls steht zu oberst "Option Explicit" und alle Variablen sind dimensioniert.
Scheinbar kann dieser Fehlercode viele Ursachen haben, ich komme einfach nicht dahinter....
Über eine Hilfestellung würde ich mich sehr freuen.
Beste Grüsse
George
Sub VergleichstabellenKopieren4()
Blatt20 = ComboBox20.Value
Blatt21 = ComboBox21.Value
KeyspalteAlt1 = ComboBox29.Value
NeuerTabellenName1 = TextBox1.Value
Sheets(Blatt20).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NeuerTabellenName1
ActiveSheet.Tab.ColorIndex = 4 'grün
ActiveSheet.Columns(KeyspalteAlt1).Select
Application.CutCopyMode = False
Selection.Copy
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range(Cells(1, 1), Cells(1, 1)) = "Key"
UserForm1.Show vbModeless
Unload UserForm3
End Sub