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

Letzte Stelle markieren wenn ungleich 1 (VBA)

Forumthread: Letzte Stelle markieren wenn ungleich 1 (VBA)

Letzte Stelle markieren wenn ungleich 1 (VBA)
09.07.2024 21:23:31
Erwin
Guten Abend,

in verschiedenen Listen habe ich Spalten mit strings unterschiedlicher Länge (Buchstaben und Zahlen ohne Sonderzeichen). Ich würde gerne immer die letzte Stelle in einer Zelle rot und fett markieren wollen, wenn diese ungleich 1 ist.
Da es unterschiedliche Spalten und verschiedene Startzeilen geben kann, würde ich gerne variabel über eine Inputbox die 1. Zelle markieren und das Makro sollte dann bis zur letzten belegten Zelle laufen.

Danke und Grüße - Erwin
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Stelle markieren wenn ungleich 1 (VBA)
09.07.2024 22:22:16
ralf_b 


Option Explicit



Sub letzteRotinSpalte()



  Dim lrow&, frstrow&, colnr&, i&

  colnr = ActiveCell.Column

   

   frstrow = Application.InputBox("Zeile", "Zeile eingeben", 1, , , , , 1)

   

   For i = frstrow To Cells(Cells.Rows.Count, colnr).End(xlUp).Row



   With Cells(i, colnr)

      If Right(.Value, 1) > "1" Then

        With .Characters(Start:=Len(.Value), Length:=1).Font

            .Color = vbRed

            .Bold = True

        End With

      End If

    End With

   Next

End Sub
Anzeige
AW: Letzte Stelle markieren wenn ungleich 1 (VBA)
09.07.2024 22:41:26
Erwin
Hallo Ralf,

nach einem kurzen Test habe ich festgestellt, dass ich z. B. E6 (=$E$&) als Start nicht markieren kann, weil dann die Fehlermeldung "Die Zahl ist ungültig" erscheint.

Gebe ich per Hand die 6 ein, wird nichts oder nur Buchstaben markiert.

Kann man hier bitte noch nachbessern?

Danke - Erwein
Anzeige
AW: Letzte Stelle markieren wenn ungleich 1 (VBA)
09.07.2024 23:26:07
Luschi
Hallo Erwin,

da Du nur verbale Infos, aber keine Exceldatei lieferst, kann der Vba-Code des Helfern auch nur sehr vage sein!
Aber diese Info: z. B. E6 (=$E$&) - die übrigens nicht den Tatsachen entspricht, zeigt, daß in der aktiven Spalte Formeln stehen,
und damit ist Dein Vorhaben zum Scheitern verurteilt: in Formelergebnissen ist die Formatierung einzelner Zeichen nicht möglich!

Gruß von Luschi
aus klein-Paris
Anzeige
AW: Letzte Stelle markieren wenn ungleich 1 (VBA)
10.07.2024 06:25:25
Erwin
Guten Morgen,

ich war fast geneigt eine kleine Datei zu erstellen, dachte aber, das geht auch ohne; hier jetzt die Beispieldatei: https://www.herber.de/bbs/user/170813.xlsb

Beim bisherigen Code wird die Inputbox aufgerufen und als Zeile die "1" vorgegeben. Klicke ich in die Zelle, so wie von mir vorgegeben, erscheint bei mir tatsächlich: =$G$5
Ich wollte ja völlig frei die Zeile und die Spalte wählen können, damit ich in unterschiedlichen Listen flexibel bin.

Außerdem wird nicht richtig markiert; es sollte immer die letzte Stelle markiert werden, wenn diese keine 1 ist, das ist bei dem Code nicht der Fall (s. Datei).

Vielleicht kann hier noch jemand nachhelfen.

Vielen Dank - Erwin
Anzeige
AW: Letzte Stelle markieren wenn ungleich 1 (VBA)
10.07.2024 06:52:32
ralf_b
es gibt tatsächlich ein Problem das reine Zahlen etwas störrisch sind.
wenn du dich damit anfreunden kannst das der Zahlenwert in text umgewandelt wird denn habe ich eine Anpassung
Und du mußt nicht mehr die Spalte aktiviert haben. Jetzt kannst/musst du den Zellbezug mit Buchstaben eingeben. 

Sub letzteRotinSpalte2()



  Dim colnr&, i&, rng As Range

  colnr = ActiveCell.Column

   On Error GoTo fehler

   Set rng = Application.InputBox("Zellbezug", "Zelle eingeben", "A1", , , , , 8)

   

   For i = rng.Row To Cells(Cells.Rows.Count, rng.Column).End(xlUp).Row

   

   With Cells(i, rng.Column)

      If Right(.Value, 1) > "1" And Len(Cells(i, rng.Column)) > 0 Then

        If IsNumeric(.Value) Then .NumberFormat = "@": .Value = CStr(.Value)

        With .Characters(Start:=Len(.Value), Length:=1).Font

            .Color = vbRed

            .Bold = True

        End With

      End If

    End With

   Next

fehler:



End Sub
Anzeige
AW: Letzte Stelle markieren wenn ungleich 1 (VBA)
10.07.2024 07:01:04
Erwin
Guten Morgen Ralf,

yes, das is es; ich sehe du bist schon wach ;)

Vielen Dank - Erwin

Beliebteste Forumthreads (12 Monate)

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