Makro ausführen wenn Zeile gefüllt
07.12.2022 11:38:47
Mathias
ich habe eine wahrscheinlich Simple frage aber ich komme einfach selber nicht darauf. :D
Ich möchte das mein Makro ausgeführt wird sobald Zelle D8 ausgefüllt wurde.
Ich hab mal was ähnliches gebastelt aber da war es so das makro wurde ausgeführt sobald man in die Zelle ging.
Hab schon einen Code gebastelt aber irgendwie führt es das nicht aus.
Mit freundlichen Grüßen
Mathias
If Range("D8").Value = "" Then
MsgBox "Der Bereich ist leer!"
Else
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
Range("W2:W71").Select
Selection.Copy
ActiveWindow.ScrollRow = 55
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 1
Range("X2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.LargeScroll ToRight:=-1
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Range("D8").Select
ActiveWindow.SmallScroll Down:=7
End If