AW: Markierung/Auswahl erweitern
20.08.2021 17:37:36
Hubertus
Hallo UweD & Chris L,
danke für Eure Rückmeldung!
Unten der Code.
Ich treffe die Auswahl manuell und dann lasse ich den Code per Tastenkombi durchlaufen und ich muss die nächste Auswahl wieder manuell treffen und ich denke, das lässt sich eleganter lösen.
Danke für den Hinweis zu Verwendung von 'select', was ist der Haken daran? Verwende ich besser 'activate'?
VG Hubertus
Sub Werte_nach_links_kopieren()
' Werte_nach_links_kopieren Makro
' Tastenkombination: Strg+Umschalt+P
Anfang:
With Selection.Font
.ColorIndex = xlAutomatic
.TintAndShade = 0
End With
Selection.Copy
Range(Selection.Offset(0, -1), ActiveCell.Offset(0, -1)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
With Selection.Font
.Color = -11489280
.TintAndShade = 0
End With
Application.CutCopyMode = False
If MsgBox("VO-Preis auch grün?", vbYesNo + vbDefaultButton1, "Ja-Nein-Frage") = vbYes Then
Range(Selection.Offset(0, 1), ActiveCell.Offset(0, 1)).Select
With Selection.Font
.Color = -11489280
.TintAndShade = 0
End With
Selection(Selection.Count).Select
ActiveCell.Offset(1, 0).Select
GoTo weiter:
Else
Selection(Selection.Count).Select
ActiveCell.Offset(1, 1).Select
GoTo weiter:
End If
weiter:
Do While ActiveCell.Offset(0, -10) = ActiveCell.Offset(-1, -10) And ActiveCell = ActiveCell.Offset(-1, 0)
GoTo Anfang:
Loop
End Sub