AW: Bahnhof
03.03.2015 08:20:10
Sebastian
Guten Morgen Sheldon,
danke dir für deine Antwort. Ich versuche mein Ausdruck zu verbessern und mein Problem näher zu erläutern.
Wenn der Zeileninhalt in der Spalte A sich ändert, soll ein Makro ausgeführt werden. Ich habe für den ersten Fall im folgenden Beispiel das Makro aufgezeichnet.
Sub Test()
' Test Makro
' Tastenkombination: Strg+b
' für Teil Nr.: 1
Range("B2:B4").Select
Selection.Copy
Sheets("SB").Select
Range("M4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Beispiel").Select
Range("C2:C4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SB").Select
Range("N4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Beispiel").Select
Range("D2:D4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SB").Select
Range("P4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Beispiel").Select
Range("E2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("SB").Select
Range("I17").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Beispiel").Select
Range("H2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' für Teil Nr.: 2
' selbe Vorgehensweise
End Sub
Ziel ist es, für jede unterschiedliche Teil Nr. in einen anderen Tabellenblatt gewisse Werte berechnen zu lassen und in den ursprünglichen Tabellenblatt auszugeben.
Anbei noch die Beispieltabelle, auf welches sich das aufgezeichnete Makro bezieht.