Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
596to600
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
596to600
596to600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA-Lsg für Wenn Spalte Inhalt /Wert in andere Sp.

VBA-Lsg für Wenn Spalte Inhalt /Wert in andere Sp.
11.04.2005 11:51:32
Fabian
Mahlzeit zusammen,
ich habe folgendes Problem bei dem ich mich über jede Anregung freuen würde.
Ich einer Tabellen gibt es zwei Spalte, wobei in den gleichen Zeile(100 Zeilen angenommen) entweder Spalte A einen Inhalt hat oder Spalte B. In Spalte C soll jetzt wenn ein Inhalt in Spalte A vorliegt die Zahl "1" eingegeben werden, wenn kein Inhalt dann nichts. Wenn Spalte B einen Inhalt hat soll die Zahl "2" in Spalte C geschrieben werden, wenn kein Inhalt dann nichts. Am Ende müßte also die Spalte C durchgänig gefüllt sein, entweder mit einer "1" oder einer "2".
Danke für Euere Hilfe
Fabian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Lsg für Wenn Spalte Inhalt /Wert in andere Sp.
11.04.2005 12:25:01
Fritz
Hi Fabian,
Ein Beispiel für Deine Problemstellung:

Sub SpalteFüllen()
Dim z, s As Integer
Set ws1 = Worksheets("Tabelle2")
anz = ws1.Cells(65536, 1).End(xlUp).Row
For z = 2 To anz
If ws1.Cells(z, 1) <> "" Then
ws1.Cells(z, 3) = 1
End If
If ws1.Cells(z, 2) <> "" Then
ws1.Cells(z, 3) = 2
End If
If ws1.Cells(z, 1) <> "" And ws1.Cells(z, 2) <> "" Then
ws1.Cells(z, 3) = ""
End If
Next
End Sub

Fritz
Sieht gut aus!
14.04.2005 13:09:40
Fabian
Danke, konnte es zwar noch nicht testen, sieht aber gut aus!
Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige