Unterschiedliche Zahlen automatisch zentrieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public r As Range Private Sub Worksheet_Change(ByVal Target As Range) For Each r In Target With r .HorizontalAlignment = xlCenter If (.Value - Int(.Value)) = 0 Then .NumberFormat = "0" Else .NumberFormat = "# ?/?" End If End With Next r End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) r = Target End Sub

Hallo Carl,
ich kenne deine Datei nicht. Und ich habe auch niemals "ALT+F11" geschrieben. Wenn du mit rechts auf einen Reiter clickst und dann auf "Code anzeigen", bist du im VBA-Editor gleich im richtigem Feld - dem Code des Tabellenreiters. Warscheinlich hast du mit "ALT+F11" das letzte benutze Feld erwischt und das war eine Userform? Oder unter xl2003 war es anders, ich meine mich aber zu erinnern das es auch da so ging.
Ok, zum lernen. Erstmal:
Userbild

HIER ist der Code für Tabelle1. Das Makro soll in Tabelle1 laufen, so dass die Formatierungen in Tabelle1 gesetzt werden. Wenn es in deiner Datei Tabelle17 ist, dann natürlich den Code in Tabelle17 kopieren. Wenn diese Tabelle bei dir nicht Tabelle17 heisst sondern du sie ihn "MeineKatze" umbenannt hast, dann den Code natürlich in "MeineKatze" kopieren. Soweit.
Jetzt zum Code:

   Public r As Range
Private Sub Worksheet_Change(ByVal Target As Range)
For Each r In Target
With r
.HorizontalAlignment = xlCenter
If (.Value - Int(.Value)) = 0 Then
.NumberFormat = "0"
Else
.NumberFormat = "# ?/?"
End If
End With
Next r
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r = Target
End Sub

Ganz oben steht:
Public r As Range
das gehört NICHT in ein Sub TEST(), sondern da oben hin! Grund: es ist "Public", da es für mehrere Makros zur Verfügung stehen soll. Daher der Name - Public.
Jetzt zum unteren Makro:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dieses Makro musst du NICHT selber starten, daher musst du es auch nicht Sub TEST() nennen. Es startet bei jedem "Selection Change" .. das heisst, immer wenn du die Zelle wechselst. Ob per Mausclick, Tabulator, Enter ... das Makro startet. Was macht es?
r = Target
es speichert in r - ein Range, also eine Zellenadresse, die aktuelle Zelle. Also die, in der du jetzt bist. "Target" ist, innerhalb dieses Makros, die neu ausgewählte Zelle.
Jetzt zum oberen Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
dieses Makro startet auch von selbst. Und zwar immer, wenn du in einer Zelle etwas änderst. Was macht es? Schreibe ich der Einfachkeit halber zu jeder Zeile dazu:
For Each r In Target 'Für JEDE ausgewählte Zelle (99% ist das nur eine)
With r
.HorizontalAlignment = xlCenter 'Auswahl zentrieren. Die Auswahl müsste schon zentriert sein,
'aber es schadet nicht das nochmal sicherzustellen
If (.Value - Int(.Value)) = 0 Then 'prüfen, ob in der Zelle eine Kommazahl steht
.NumberFormat = "0" 'falls kein Komma vorkommt, die Zelle auf "normal Zahl" formatieren
Else
.NumberFormat = "# ?/?" 'falls ein Komma vorkommt, die Zelle auf "Zahl mit Bruch" formatieren
End If
End With
Next r
Der Effekt: Jedesmal wenn du eine Zelle änderst, wird automatisch die Zellformatierung deinen Wünschen angepasst.
Wenn du aufmerksam mitgelesen hast, fragst du jetzt. "Wozu der Umweg über r? Ich kann doch auf Change direkt Target referenzieren?". Antwort: target ist leider die Zelle in der du nach dem Enter landest. Das heisst, änderst du A1 und drückst ENTER, landest du warscheinlich in A2. Damit die Formatierung nicht auf A2 greift sondern auf die bearbeitete Zelle, merke ich mir vorher was die letzte(n) Zelle(n) waren.
So weit klar? Wenn nicht, fragen!
Tipp: Die "automatisch ausführen" Makros in den Tabellen erstellst du über die kleinen DropDown-Reiter oben im Bild, wenn du mal eigenen machen willst. Die namen sind selbssprechend: Wenn du ein "Worksheet_BeforeRightClick" Makro erstellst, wird das jedesmal ausgeführt wenn die rechte Maustaste gedrückt wird. So sparst du dir das manuelle starten der Makros!
Das ganze geht auch Datei-Weit oder sogar Excel-Weit, aber fürs erste soll die kleine Ausführung auf Tabellenebene zum experimentieren reichen.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

Unterschiedliche Zahlen automatisch zentrieren

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Unterschiedliche Zahlen automatisch zentrieren

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread