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

Bild

Betrifft: VBA-Lsg für Wenn Spalte Inhalt /Wert in andere Sp.
von: Fabian
Geschrieben am: 11.04.2005 11:51:32
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

Bild

Betrifft: AW: VBA-Lsg für Wenn Spalte Inhalt /Wert in andere Sp.
von: Fritz
Geschrieben am: 11.04.2005 12:25:01
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
Bild

Betrifft: Sieht gut aus!
von: Fabian
Geschrieben am: 14.04.2005 13:09:40
Danke, konnte es zwar noch nicht testen, sieht aber gut aus!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Lsg für Wenn Spalte Inhalt /Wert in andere Sp."