Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1856to1860
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
1856to1860
1856to1860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Spalten befüllen - Do While-

Zwei Spalten befüllen - Do While-
13.11.2021 21:37:38
Stephan
Hallo Zusammen,
nun habe ich noch eine andere Herausforderung. Ich möchte gerne wenn in Spalte B ein bestimmter Wert stehen in den Spalten C und D eine Kategorie einfügen. Ich verwende dafür eine Schleife. Es klappt allerdings nur mit dem Ausfüllen für eine Spalte.
https://www.herber.de/bbs/user/149133.xlsm
Grüße
Stephan

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

Betreff
Datum
Anwender
Anzeige
AW: Zwei Spalten befüllen - Do While-
13.11.2021 22:15:47
Piet
Hallo
höfliche Frage, was hindert dich daran dir den Code mal genau anzuschauen und zu verstehen wie VBA funktioniert. Es ist doch simpel:
ws.Range("D2").Offset(i, 0).Value = "Lebensmittel" oder über Offset - ws.Range("C2").Offset(i, 1).Value = "Lebensmittel"
Und wenn die Kategorie anders lautet brauchst du doch nur den Text zu ändern. Worin liegt das Problem?
mfg Piet
AW: Zwei Spalten befüllen - Do While-
13.11.2021 23:52:42
onur
Du musst bedenken: Wenn man kein Englisch kann, könnte der Code auch genausogut chinesisch sein.
AW: Zwei Spalten befüllen - Do While-
14.11.2021 08:27:45
Hajo_Zi
Hallo Stephan,

Sub Beschreibung_bestimmen()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle1")
Dim i As Long
Application.ScreenUpdating = False
Do While ws.Range("A2").Offset(i, 0).Value  ""
If ws.Range("B2").Offset(i, 0).Value Like "*EDEKA*" Or ws.Range("B2").Offset(i, 0).Value Like "*REWE*" _
Or ws.Range("B2").Offset(i, 0).Value Like "*NETTO*" Then
ws.Range("C2").Offset(i, 0).Value = "Lebensmittel"
ws.Range("C2").Offset(i,  1).Value = "Lebensmittel"
End If
i = i + 1
Loop
Application.ScreenUpdating = True
End Sub
GrußformelHomepage
In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.
Anzeige
AW: Zwei Spalten befüllen - Do While-
14.11.2021 18:28:38
Stephan
Hallo Hajo,
herzlichen Dank. Klappt wunderbar. Schönen Sonntag.
Grüße
Stephan

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige