Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
928to932
928to932
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Zellformat hin- und her wechseln ?

Forumthread: Zellformat hin- und her wechseln ?

Zellformat hin- und her wechseln ?
22.11.2007 22:50:00
Steffen
Hallo Excel Fan's,
folgendes Problem:
Spalte A Inhalt
Zeile1 1
Zeile2 4
Zeile3 11
Zeile4 12
Zeile5 13
Zeile6 32
Zeile7 33
Zeile8 46
Zeile9 47
... usw.
wie kann ich per Makro die zellinhalte so ausrichten, daß die ersten zusammenhängenden Zellen (11-13) linksbündig ausgerichtet werden, die nächsten (32-33) rechtsbündig, die nächsten (46-47) wieder linksbündig usw... Bin für jede Hilfe dankbar, ich komm nicht dahinter.
Gruß Steffen

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellformat hin- und her wechseln ?
23.11.2007 00:40:00
Daniel
Hi
ein bisschen tricky, aber so gehts:

Sub rechts()
Dim Zelle As Range
Dim i As Long
Dim Ausrichtung(1) As Long
Dim x As Boolean
Dim a As Long, b As Long, c As Long
x = False
Ausrichtung(0) = xlRight
Ausrichtung(1) = xlLeft
a = -1
For Each Zelle In Range("A1:A" & Cells(65536, 1).End(xlUp).Row)
If Zelle.Row  1 Then a = Zelle.Offset(-1, 0)
b = Zelle
c = Zelle.Offset(1, 0)
If b  a + 1 And b  c - 1 Then
Zelle.HorizontalAlignment = xlCenter
ElseIf b = c - 1 Then
If b  a + 1 Then x = Not x
Zelle.HorizontalAlignment = Ausrichtung(x + 1)
ElseIf b = a + 1 Then
Zelle.HorizontalAlignment = Ausrichtung(x + 1)
End If
Next
End Sub


Zellen, die nicht zusammenhängen, werden zentriert.
Gruß, Daniel

Anzeige
AW: Zellformat hin- und her wechseln ?
23.11.2007 09:05:00
Steffen
Wow Daniel,
das ist genau das was ich suchte.
Super und vielen Dank :-))
Gruß Steffen
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum