VBA und ENTER
23.02.2023 12:55:57
Jo
ich muß regelmäßig Daten in Exceltabellen überprüfen und habe mir angewöhnt,
abschließend in der letzten Spalte einen Haken einzufügen, damit ich sowie mein
Vorgesetzter erkennen kann, was ich alles überprüft habe.
Dafür habe ich mir folgendes Makro "gebastelt":
Sub J_Einfügen_Schwarzer_Haken()
'
' Schwarzer Haken (fett) / Unicodename = Wingdings 252 / Zeichencode = 252 von Symbol (dezimal)
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Selection.Font.Name = "Wingdings"
Selection.Font.Bold = True
ActiveCell.FormulaR1C1 = "ü"
Application.SendKeys "{ENTER}"
End Sub
Die Anweisung "Application...ENTER" war die Einzige, welche auch bei ausgeblendeten Zeilen (!)
dafür sorgte, daß ich tatsächlich in der nächsten Zeile landete da ich überwiegend mit
Pivot-Tabellen arbeite.
DAS PROBLEM:
Jedes Mal, wenn ich das Makro einsetze wird der Nummernblock ein-bzw.-ausgeschaltet.
Weiß jemand, wie ich das umgehen kann?
VG
Jo