Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "VBA-Lsg für Wenn Spalte Inhalt /Wert in andere Sp."
Vorkommen von Zahlenreihen in Spalten Funktion ANZAHL2 ohne ausgeblendete Spalten
Spaltenbreite anpassen Spalten einer Mehrbereichsauswahl ausblenden.
Spaltennamen bestimmen Spalten/Zeilen aus- und einblenden
Zeilen und Spalten über ein Drehfeld ein- und ausblenden In einem Dialog ausgewählte Spalten drucken
Spalten bedingt summieren und Zellen formatieren Abfrage der markierten Spalten