Hallo Holger,
wieder mal Danke für die schnelle Antwort. Werde es gleich mal ausprobieren.
Gruß
Christian
Holger schrieb am 15.05.2008 11:49:26:
Hallo Christian,
z.B.:
If ActiveSheet.Cells(i, 83) <> "" Then
Sheets("Tabelle2").Cells(7, 5) = Sheets("Tabelle2").Cells(7, 5) + ActiveSheet.Cells(i, 83)
ElseIf ActiveSheet.Cells(i, 76) <> "" Then
Sheets("Tabelle2").Cells(7, 5) = Sheets("Tabelle2").Cells(7, 5) + ActiveSheet.Cells(i, 76)
ElseIf ActiveSheet.Cells(i, 69) <> "" Then
Sheets("Tabelle2").Cells(7, 5) = Sheets("Tabelle2").Cells(7, 5) + ActiveSheet.Cells(i, 69)
Else
Sheets("Tabelle2").Cells(7, 5) = Sheets("Tabelle2").Cells(7, 5) + ActiveSheet.Cells(i, 62)
End If
Gruß
Holger
Anfänger schrieb am 15.05.2008 10:49:05:
Hallo,
würde gerne eine Ausschlußabfrage durchführen und zwar, wenn keine Werte in Spalte 83, dann Spalte 76, wenn hier keine Werte, dann Spalte 69, wenn auch hier keine Werte dann Werte aus Spalte 62 summiert ausgeben.
Habe folgenden Code probiert:
Sheets("Tabelle2").Cells(7, 5) = Sheets("Tabelle2").Cells(7, 5) + ActiveSheet.Cells(i, 83)
If ActiveSheet.Cells(i, 83) = "" Then go to ActiveSheet.Cells(i, 76)
If ActiveSheet.Cells(i, 76) = "" Then go to ActiveSheet.Cells(i, 69)
If ActiveSheet.Cells(i, 69) = "" then ActiveSheet.Cells(i, 62)
End If
Funktioniert aber nicht. Kann mir jemand helfen?
Danke im Voraus.
Christian |