Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
928to932
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellformat hin- und her wechseln ?

Zellformat hin- und her wechseln ?
22.11.2007 21: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

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

Betreff
Datum
Anwender
Anzeige
AW: Zellformat hin- und her wechseln ?
22.11.2007 23: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 08:05:00
Steffen
Wow Daniel,
das ist genau das was ich suchte.
Super und vielen Dank :-))
Gruß Steffen

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige