VBA Zeile in drei Tabellenblättern ändern
18.11.2014 11:06:25
Nik
ich habe folgendes Problem:
Ich habe drei Tabellenblätter, die miteinander verknüpft sind. Es gibt ein Eingabe-Blatt, in dem der Nutzer entscheiden kann wie viele Zeilen er benötigt, um alle seine Inhalte aufzunehmen.
Die anderen beiden Tabellen sind abhängig von der Eingabe-Tabelle. Ich habe unten ein Makro (auch aus dem Internet), welches schonmal in die Richtung geht.
1. Es wird nicht wie erwünscht unter "Fassade" eine Zeile eingefügt, sondern darüber.
2. Wenn ich versuche in den nächsten Reiter zu springen, passiert nicht. Z.B. hier in den Reiter Übersicht.
WICHTIG: Formeln und Formatierungen müssen auch komplett übernommen werden.
Sub NeueZeile()
Columns("B:B").Select
Selection.Find(What:="Fassade", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 0).Select
Selection.Offset(-1).EntireRow.Copy
Selection.EntireRow.Insert
Application.CutCopyMode = False
ActiveCell = x
End
Worksheets("Übersicht").Select
Columns("B:B").Select
Selection.Find(What:="Fassade", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(0, 0).Select
Selection.Offset(-1).EntireRow.Copy
Selection.EntireRow.Insert
Application.CutCopyMode = False
ActiveCell = x
End Sub
Wäre schön, wenn mir einer helfen könnte. Ich kenne mich leider selber nicht mit VBA aus, sondern helfe mir selber sehr mit Foren im Internet!
Danke und lieben Gruß!