ich brauche wieder mal Hilfe. In der Tabelle sind in den Spalten "O" und "P" Werte enthalten, wobei in Spalte "O" auch leere Zeilen vorhanden sind. Jetzt möchte ich in Spalte "Q" die Werte übertragen mit der Abfrage, Wenn in "O" ein Wert enthalten ist dann "O" sonst Wert aus Spalte "P".
Ich habe auch schon folgenden Code geschrieben nur braucht dieser bei ca. 30.000 Zeilen ca. 8 min.
Sub Einteilung()
Dim Daten As Worksheet
Dim i As Long
Set Daten = Worksheets("Seite1_1")
For i = 2 To Daten.Cells(Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(Cells(i, 15)) Then
Cells(i, 17) = Cells(i, 15)
Else
Cells(i, 17) = Cells(i, 16)
End If
Next i
End Sub
Kennt jemand eine Möglichkeit wie die Abfrage schneller laufen könnte?Vielen Dank.
Grüße Andi