VBA - IF AND THEN
wafi
Großes Problem für einen VBA Anfänger.
Für euch Profi´s betimmt nur eine Kleinigkeit.
Lese aus Tabell1 mit bestimmten Bedingungen Informationen aus und schreibe sie in Tabelle2.
Nun möchte ich aber noch eine Bedingung hinzufügen.
In Tabelle1 Spalte F stehen Informationen im Zeitformat 00:30 od. 02:15 usw.
Die Abfrage sollte nun lauten If C=JA AND M>0 AND F>00:59 AND Hoffe ich konnte das verständlich darstellen.
Vielen Dank
Gruß wafi
Sub DatenAuslesen()
b = 6
For a = 1 To 100
If Worksheets("Tabelle1").Range("C" & a) = "JA" And Worksheets("Tabelle1").Range("M" & a) > "0" _
Then
b = b + 1
Worksheets("Tabelle2").Range("C" & b) = Worksheets("Tabelle1").Range("C" & a)
Worksheets("Tabelle2").Range("D" & b) = Worksheets("Tabelle1").Range("F" & a)
Worksheets("Tabelle2").Range("E" & b) = Worksheets("Tabelle1").Range("N" & a)
End If
Next a
End Sub