ich benötige etwas Hilfe bei folgender Excel-Tabelle:
https://www.herber.de/bbs/user/128416.xlsm
Um eine übersichtliche, aber automatische Vergleichstabelle zu erstellen habe ich mir ein kleines Tabellenkonstrukt überlegt.
Ich habe bereits mehr oder weniger erfolgreich (über Makro aufzeichnen und Google) erreicht, dass mein Code eine weitere Position über der Position "A" hinzufügt und alle Formate mitnimmt.
Dadurch wird aber der "Listeneinkaufspreis" in Zeile 29 nicht mit aktualisiert.
Wie ist das für alle Formeln des Listeneinkaufspreises realisierbar?
Außerdem wäre die nächste Aufgabe (über Makro oder Regeln?) einen neuen Anbieter anzulegen ohne alle Formeln im unteren Bereich erneut für die neue Spalte manuell anzulegen. Geht so etwas?
Mein bisheriger Code:
Sub Bauteil()
' Makro1 Makro
Dim lfZ As String
Dim such As Integer
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C8:C9").Select
Selection.Copy
Range("C6").Select
ActiveSheet.Paste
Range("B8:H9").Select
Application.CutCopyMode = False
Selection.Copy
Range("B6").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
' For such = 1 To 100
' If Cells(such, 3).Value = "Listeneinkaufspreis" Then
' lfZ = Cells(such, 1).Row
' End If
' Next such
' Cells(lfZ, 5).Select
End Sub
Danke & Gruß
Philip