VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

Forumthread: VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

07.08.2019 12:57:32

Kerstin

Guten Morgen!
Ich habe wieder einmal ein Problem:
Ich habe manuell Zeilen 50 - 55 markiert ( dieses ändert sich ständig!).
Wenn in der ersten markierten Zeile (hier also Zeile 50) in Spalte A "Lidl" steht, dann soll in der gleichen Zeile in Spalte B "L" stehen. Sonst soll in der gleichen Zeile in Spalte B "Nix" stehen.
Das ganze soll für jede markierte Zeile passieren.
Ist wahrscheinlich wieder easy... Für eine markierte Zeile hab ich es geschafft, nur bei mehreren Zeilen meldet sic der Debugger.... :(

Sub Test
If Selection.Columns("A").Value = "Lidl" Then
Selection.Columns("B").Value = "L"
Else: Selection.Columns("B").Value = "Nix"
End If
Selection.Columns("A:AJ").Font.ColorIndex = 40
End Sub

Hoffe, ihr könnt mir (wie immer) helfen.
Danke schon mal
Kerstin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

07.08.2019 13:20:49

Daniel

Hi
wenn du da mehrere Zellen hast, musst du
entweder mit einer Schleife über die Einzelzellen arbeiten:

Sub Test()
Dim Zelle as Range
For each Zelle in Intersect(Columns(1), Selection.EntireRow).Cells
if Zelle.Value = "Lidl" then
Zelle.Offset(0, 1).Value = "L"
else
Zelle.Offset(0, 1).Value = "Nix"
end if
Next
End Sub

oder mit Formeln arbeiten, weil bei Formeln in jede Zelle die gleiche Formel kommt:

Sub Test
With Intersect(Columns(2), Selection.EntireRow)
.FormulaR1C1 = "=IF(RC1=""Lidl"",""L"",""Nix"")"
.Formula = .Value
End With
End Sub

wobei ich die zweite Variante bevorzugen würde, weil sie kürzer und schneller ist.
Gruß Daniel

AW: VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

07.08.2019 15:00:49

Kerstin

@ Daniel:
Suuuuper, klappt beides!!!!! Ich werde tatsächlich die Formel nehmen, geht wirklich um einiges schneller!
Daaaanke!
Gruß
Kerstin

AW: VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

07.08.2019 13:23:31

Matthias

Hallo
Warum denn nicht gleich als Formel (LINKS)
In A50 steht Lidl
In B50: =LINKS(A50)
Formel dann runterkopieren
Gruß Matthias

AW: VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

07.08.2019 13:33:34

Kerstin

Hallo Matthias!
Weil das Makro erst ausgeführt werden soll, wenn bestimmte, von mir ausgesuchte Zeilen, markiert wurden.
Gruß
Kerstin

VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

Forumthread: VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

Forumthread: VBA Wenn Dann Abfrage f. mehrere selektiere Zeilen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread