Schleife If ...and ... then
12.09.2014 13:21:31
rinkadink
ich komme leider nicht wieter und hoffe jemand kann mir (noch) helfen :)
Ich habe TB 1 + TB 2
In TB 1 Spalte C stehen Werte z.b. 4
In TB 2 Spalte B, C und D stehen Werte z.b. B1 = 1 + C1 = 10 // D1 = XXX
Mein VBA sollte nun eigentlich über herausfinden, dass 4 eine Zahl ist die zwischen 1 und 10 liegt und dann D1 aus TB2 nach D1 in TB1 kopieren.
Habe diesen VBA versucht zu nutzen jedoch leider ohne Erfolg :(
Sub testing()
Dim LoI As Long ' 1. Schleifenvariable
Dim LoJ As Long ' 2. Schleifenvariable
Dim LoLetzte1 As Long ' Variable letzte Zeile in Spalte C TB1
Dim LoLetzte2 As Long ' Variable letzte Zeile in Spalte B TB2
Dim Loletzte3 As Long ' Variable letzte Zeile in Tabelle3
Application.ScreenUpdating = False ' Bildschirmaktualisierung aus
With Worksheets("Tabelle1") ' letzte Zeile in Spalte C Tabelle1
LoLetzte1 = IIf(IsEmpty(.Cells(Rows.Count, 3)), _
.Cells(Rows.Count, 3).End(xlUp).Row, .Rows.Count)
End With
With Worksheets("Tabelle2") ' letzte Zeile in Spalte B Tabelle2
LoLetzte2 = IIf(IsEmpty(.Cells(Rows.Count, 2)), _
.Cells(Rows.Count, 2).End(xlUp).Row, .Rows.Count)
End With
For LoI = 1 To LoLetzte1 ' 1. Schleife alle Werte Spalte C
If Worksheets("Tabelle1").Cells(LoI, 3) >= Worksheets("Tabelle2").Cells(LoI, 2) And _
_
Worksheets("Tabelle1").Cells(LoI, 3)