habe hier ein kleines - nicht ganz unbedeutendes - problem.
Ich habe eine Art Produktkatalog mit sich ständig wiederholenden Zeilen (im Grunde ein Formular, dass bei bedarf wieder und wieder am Ende eines jeden Sheets eingefügt wird).
Das Makro funktioniert auch, allerdings momentan nur in einem Sheet, nämlich in dem ersten wo ich es geschrieben habe.
Ich will jetzt nicht für 80 Sheets das gleiche Makro schreiben, sondern das Einfügen immer da passieren lassen, von wo das Makro aufgerufen wurde.
QT:
Sub InsertForm()
'
' InsertForm Macro
' Macro recorded 23.05.2003 by Abbott Laboratories
'
Dim gefunden As Boolean
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Form").Select
Rows("6:16").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
--> Sheets[("Multilingual-IA CC")].Select
Range("A1").Select
gefunden = False
Do Until gefunden
If ActiveCell.Value = "ende" Then
ActiveCell.Offset(-3, 0).Select
Selection.Insert Shift:=xlDown
gefunden = True
ActiveCell.Offset(-1, 2).Select
End If
ActiveCell.Offset(1, 0).Select
If ActiveCell.Row = 1 Then
gefunden = True
End If
Loop
End Sub
In der gekennzeichneten Zeile springt er (wie ihr sicher gemerkt habt) nach dem COPY-Vorgang wieder zurück in DAS Sheet, soll er aber nicht, sondern in jenes, welches den Button gedrückt hat.
Vielleicht kann mir jemand helfen, da swäre super!
Danke