Re: =Wenn
07.03.2003 07:41:12
Willie
Versuche es mal damit mit ich habe es bei mir auspobiert
da hat es funktioniert
Sub suchen()
start = 19
Do
If Sheets("Tabelle1").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle2").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle8").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle9").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle3").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle4").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle5").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle6").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle7").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
End Sub
Gruß
Willie