Anzahl Zellen mit rechtsbündigem Text

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

For Each Zelle In Bereich If Not IsNumeric(Zelle) then If Zelle.HorizontalAlignment = xlRight Then Counter = Counter + 1 End If Next Debug.Print "Anzahl der Zellen mit rechtsbündigem Text ist: " & Counter

Option Explicit Sub TextFormatRechts() Dim Loletzte As Long Dim LoI As Long Dim RaZelle As Range Loletzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows. _ Count) For Each RaZelle In Range("C5:C" & Loletzte) If RaZelle.HorizontalAlignment = xlRight Then LoI = LoI + 1 End If Next RaZelle MsgBox " Rechts sind " & LoI End Sub

…zu trennen, robert,
falls man erstere tatsächlich generell so formatiert hat. Allerdings dürfen dann auch keine Zahlen zusätzlich und unnötigerweise so formatiert sein, falls sie zwischen den Texten vorkommen könnten und nicht mitgezählt wdn sollen, denn das unterscheidet Hajo nicht!
Für ggf noch wahrscheinlicher halte ich allerdings als Text und einfach dann nur rechtsbündig formatierte Zahlen (evtl mit Maßeinheiten oder Dezimalpkt), um so grob festzustellen, ob solche überhpt vorliegen.
Dieses Ratespiel lässt jedenfalls erkennen, dass Deine Frage berechtigt ist und ihre Nichtbeantwortung, abgesehen mal von persönlichen Animositäten, einen typischen Anfängerfehler darstellt, der eine ggf umfassendere und ökonomischere Antwort auf das eigentliche Problem, nach dem jeder persönliche Office-Berater zu fahnden gehalten ist, verhindert, weil sie dieses Problem hinter einem evtl unpraktischen eigenen Lösungsweg versteckt. Ein uU sekundäres erscheint so als primäres Problem! Bspp dafür findet man in Foren zuhauf…!
Dass Hajo davon noch nie etwas gehört haben könnte, läge sicher einerseits an seinem in 1.Linie ihn selbst treffenden Nachsatz und andererseits an der ihm diesbezüglich fehlenden Ausbildung. :-]
Wohin solch permanente Wissenerwerbsverweigerungshaltung (entgegen dem Geist des Forums → Hajo!) führen kann, erfährt man, wenn man mal nach Irek (bzw Ireneusz) und seinem Weltkristall-Blog recherchiert. Ein besonders schönes Bsp liefert auch der US-Mister, der sich nicht entblödet, eine Website mit Argumenten für das geozentrische Weltbild zu betreiben und auch die „Neuhebräer“ vom Haus Israel, die sogar uralte FakeNews eines einschlägig bekannten US-Blattes als wahr kolportieren (NASA-Foto zeigt das Neue Jerusalem im Weltraum), von anderem Unsinn wie dem Pergamon-Altar als Thron Satans, der WK1+2 verschuldet hätte, ganz zu schweigen…
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Anzahl Zellen mit rechtsbündigem Text

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Anzahl Zellen mit rechtsbündigem Text

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread