ich möchte mit einer schaltfläche werte übertragen und zwar, wenn in "c6" ein "s" steht dann soll "d6:g6" nach "t4:w4" übertragen werden, wenn "c6" leer ist dann nach "m4:p4".
alles in einer Tabelle.
für eure hilfe wäre ich dankbar!
gruß martin
ich möchte mit einer schaltfläche werte übertragen und zwar, wenn in "c6" ein "s" steht dann soll "d6:g6" nach "t4:w4" übertragen werden, wenn "c6" leer ist dann nach "m4:p4".
alles in einer Tabelle.
für eure hilfe wäre ich dankbar!
gruß martin
erstelle eine Schaltfläche und weise dieser diesen Code zu:
Application.DisplayAlerts = False
If LCase(Range("C6").Value) = "s" Then
Range("D6:G6").Copy
Range("T4:W4").PasteSpecial Paste:=xlAll
Application.CutCopyMode = False
Range("C6").Select
ElseIf Range("C6").Value = "" Then
Range("D6:G6").Copy
Range("M4:P4").PasteSpecial Paste:=xlAll
Application.CutCopyMode = False
Range("C6").Select
End If
Application.DisplayAlerts = True
Gruß
Steffen D
danke für deine schnelle hilfe, es funktioniert prima.
gruß martin