Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Markierung einer Spalte mittels VBA | Herbers Excel-Forum

Forumthread: Markierung einer Spalte mittels VBA

Markierung einer Spalte mittels VBA
19.01.2010 12:49:19
Josef

Hallo!
Ich möchte mittels VBA eine Markierung in der Spalte B ab B2 bis zum letzten eingetragenen Wert in der Spalte B erreichen.
Wie würde hier bitte eine Lösung lauten?
Danke für eine eventuelle Hilfe im Voraus
Josef

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Markierung einer Spalte mittels VBA
19.01.2010 12:51:51
Matthias5
Hallo Josef,
letzte = Range("B" & rows.count).End(xlup).row
Range("B2:B" & letzte).Select
Aber wozu selektieren? Das brauchst du fast nie in VBA.
Gruß,
Matthias
AW: Markierung einer Spalte mittels VBA
19.01.2010 12:59:45
Josef
Hallo Matthias!
Danke für Deine Antwort!
Leider ist mir bei meiner Anfrage ein kleiner Fehler unterlaufen.
In der Spalte B stehen ja keine Werte.
In der Spalte A und in der Spalte C stehen Werte.
In der Spalte B möchte ich nun ab B2 bis zum letzten eingetragenen Wert in der spalte A oder C eine Markierung erreichen.
Also wäre z.B. A15000 der letzte Wert in der Spalte A, dann sollte die Markierung in der Spalte B von B2-B15000 erfolgen.
Entschuldige nochmals meine verpatzte Anfrage.
Josef
Anzeige
AW: Markierung einer Spalte mittels VBA
19.01.2010 13:08:12
Rudi Maintaire
Hallo,
letzte=application.max(cells(rows.count,1).end(xlup).row, cells(rows.count,3).end(xlup).row)
Range(cells(2,2), cells(letzte,2)).select
aber wozu?
Gruß
Rudi
AW: Markierung einer Spalte mittels VBA
19.01.2010 13:12:08
Josef
Hallo Rudi!
Danke für Deine Antwort und Deine Hilfe.
Wozu?
Weil ich in der Spalte B eine Formel einfügen möchte:
Sub Formel_B_1()
Dim rngCell As Range
For Each rngCell In Selection
rngCell.FormulaR1C1 = _
"=IF(AND(RC[2]=""01"",RC[22]="" ""),""ü"","""")"
Next
End Sub

Danke nochmals
Josef
Anzeige
Ohne Select
19.01.2010 13:18:01
Matthias5
Hallo Josef,
eben, das geht auch ohne Select:
Sub Formel_B_2()
letzte=application.max(cells(rows.count,1).end(xlup).row, cells(rows.count,3).end(xlup).row)
Range(cells(2,2), cells(letzte,2)).FormulaR1C1 = _
"=IF(AND(RC[2]=""01"",RC[22]="" ""),""ü"","""")"
End Sub
Gruß,
Matthias
Anzeige
AW: Ohne Select
19.01.2010 13:27:24
Josef
Hallo Matthias!
Danke nochmals für diese Lösung. Ist kleiner und kompakter. Spitze.
Josef
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige