Makros welche unabhängig kopieren und einfüge

Hallo,
leider sitze ich schon seit über einer Woche bei meiner Excel Kalkulations Tabelle fest und hoffe auf eine Lösung!
Kurze Beschreibung:
Ich habe eine Kalkulation angefertigt welche über mehrere Arbeitsblätter und SVERWEIS arbeitet.
Mein Problem ist, dass ich zur Berechnung mehrere Hilfsstoffe oder Arbeitsgänge angeben möchte. Da dies aber von Artikel zu Artikel unterschiedlich ist habe ich die verschiedenen Schritte und Hilfsstoffe in einer Dropdown Liste angelegt (E18 und E22).
Mit Hilfe von SVERWEIS und WENNFEHLER werden in D18 und D22 dann die jeweiligen Preise dazu ermittelt.
Mein Wunsch ist nun eine weitere Zeile für entweder Hilfsstoff oder Arbeitsschritt per Mausklick oder Tastenkombi über ein Makro zu erstellen, je nachdem ob dieser gebraucht wird. Soweit so gut, mir ist es gelungen die Zeile mit den Hilfsstoffen exakt so zu kopieren und eine Zeile darunter einfügen zu lassen damit man per Dropdown etwas auswählen kann und der Preis ermittelt wird (genau wie in der Spalte obendrüber) das hat aber nur so lange funktioniert bis über Zeile 18 eine neue Zeile eingefügt wurde. Dann ist in Zelle E18/E22 ein anderer Wert welcher kopiert und eingefügt wird. Ich habe schon rumprobiet mit relativen Bezügen, Google befragt und und und... leider finde ich keine Lösung und benötige dringend eine Kalkulation die einwandfrei funktioniert!
Hier sind meine beiden Makros:

Sub Hilfsstoff_einfügen()
' Hilfsstoff_einfügen Makro
' Tastenkombination: Strg+h
Rows("19:19").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B18:F18").Select
Selection.Copy
Range("B19").Select
ActiveSheet.Paste
Range("E19").Select
Application.CutCopyMode = False
Selection.ClearContents
End Sub



Sub Arbeitsschritt_einfügen()

'

' Arbeitsschritt_einfügen Makro

'

' Tastenkombination: Strg+a

'

Rows("23:23").Select

Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Range("B22:F22").Select

Selection.Copy

Range("B23").Select

ActiveSheet.Paste

Range("E23").Select

Application.CutCopyMode = False

Selection.ClearContents

End Sub

Diese sollten unabhängig voneinander funktionieren, weil es immer von Artikel zu Artikel variiert ob ein, zwei, drei oder gar kein Hilfsstoff benötigt wird und genau so sieht es mit den Arbeitsgängen aus.
Leider bin ich blutige Anfängerin und hoffe sehr auf eure Hilfe!
Liebe Grüße Kati

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim zeile& zeile = Selection.Row Rows(zeile).Select End Sub Sub test2() Dim rng As Range Set rng = ActiveSheet.Columns("H").Find("2", after:=Cells(1, "H"), lookat:=xlWhole) If Not rng Is Nothing Then Rows(rng.Row).Select End Sub

Sub Hilfsstoff_einfügen() ' Hilfsstoff_einfügen Makro ' Tastenkombination: Strg+h Dim rng As Range With Tabelle1 Set rng = .Columns(2).Find("Verpackungsmaterial", after:=.Cells(1, 2), lookat:=xlWhole) If Not rng Is Nothing Then .Rows(rng.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Range(.Cells(rng.Row - 1, 2), .Cells(rng.Row, 6)).Copy Destination:=.Cells(rng.Row, 2) .Range("E" & rng.Row).ClearContents Set rng = Nothing End If End With ' Rows("19:19").Select ' Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Range("B18:F18").Select ' Selection.Copy ' Range("B19").Select ' ActiveSheet.Paste ' Range("E19").Select ' Application.CutCopyMode = False ' Selection.ClearContents End Sub Sub Arbeitsschritt_einfügen() ' Arbeitsschritt_einfügen Makro ' Tastenkombination: Strg+a Dim rng As Range With Tabelle1 Set rng = .Columns(2).Find("Fertigungskosten Packerei", after:=.Cells(1, 2), lookat:= _ xlWhole) If Not rng Is Nothing Then .Rows(rng.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Range(.Cells(rng.Row - 1, 2), .Cells(rng.Row, 6)).Copy Destination:=.Cells(rng.Row, 2) .Range("E" & rng.Row).ClearContents Set rng = Nothing End If End With ' Rows("23:23").Select ' Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove ' Range("B22:F22").Select ' Selection.Copy ' Range("B23").Select ' ActiveSheet.Paste ' Range("E23").Select ' Application.CutCopyMode = False ' Selection.ClearContents End Sub

Option Explicit Sub Hilfsstoff_einfügen() ' Hilfsstoff_einfügen Makro ' Tastenkombination: Strg+h Dim rng As Range With Tabelle1 Set rng = .Columns(2).Find("Verpackungsmaterial", after:=.Cells(1, 2), lookat:=xlWhole) If Not rng Is Nothing Then .Rows(rng.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Range(.Cells(rng.Row - 2, 2), .Cells(rng.Row - 2, 6)).Copy Destination:=.Cells(rng.Row _ - 1, 2) .Range("E" & rng.Row - 1).ClearContents Set rng = Nothing End If End With End Sub Sub Arbeitsschritt_einfügen() ' Arbeitsschritt_einfügen Makro ' Tastenkombination: Strg+a Dim rng As Range With Tabelle1 Set rng = .Columns(2).Find("Fertigungskosten Packerei", after:=.Cells(1, 2), lookat:= _ xlWhole) If Not rng Is Nothing Then .Rows(rng.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Range(.Cells(rng.Row - 2, 2), .Cells(rng.Row - 2, 6)).Copy Destination:=.Cells(rng.Row _ - 1, 2) .Range("E" & rng.Row - 1).ClearContents Set rng = Nothing End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Makros welche unabhängig kopieren und einfüge

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makros welche unabhängig kopieren und einfüge

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread