Aktuelle Zeile von Zelle bestimmen
15.11.2018 22:23:02
Zelle
folgendes Problem: Ich prüfe ob die Zelle in Spalte B leer ist. Wenn sie beschrieben ist, dann sollen Werte die in der selben Zeile (aber unterschiedliche Spalten) stehen gespeichert werden. Wenn die Zeile leer ist, dann gehe in die nächste Zeile.
Wie kann ich denn bestimmen, dass wenn Zelle nicht leer, die Zeile gespeichert wird & Werte best. Spalten dieser Zeile gespeichert?
Ich komm gerade echt nicht drauf. Vielen Dank für eure Tipps!
Kurz zur Erklärung im Code: wie kann ich sagen, dass Var1, Var2, Var3 aus der Zeile kommen sollen in der "zelle" gerade ist?
Sub pruefenLeer()
Dim Var1 As Variant, Var2 As Variant, Var3 As Variant, zelle As Variant
Dim letzteZeile As String
Dim aktzeile As String
letzteZeile = Sheets("Namensliste").Cells(Rows.Count, 2).End(xlUp).Row
For Each zelle In Sheets("Namensliste").Range("B2:B" & letzteZeile)
On Error Resume Next
If Not IsEmpty(zelle) Then
'aktzeile = Sheets("Namensliste").Cells(ActiveCell.Row, 2) 'stimmt nicht: hier Problem
Var1 = Sheets("Namensliste").Range("A" & aktzeile).Value
Var2 = Sheets("Namensliste").Range("B" & aktzeile).Value
Var3 = Sheets("Namensliste").Range("C" & aktzeile).Value
End If
Next zelle
End Sub
Anzeige