for ... next für Spalten
03.05.2002 08:55:42
Peter
aus einer Access-Anwendung werden Daten in Excel importiert. Mit diesen soll gerechnet werden. Die Zahl der Zeilen und Spalten ist immer unterschiedlich.
Mit "A_letzte = Cells(Rows.Count, 1).End(xlUp).Row" habe ich die letzte besetzte Zeile in Spalte A, mit "letzte_Spalte = Cells(1, Columns.Count).End(xlToLeft).Column" die letzte besetzte Spalte in Zeile 1 bestimmt (Spaltenüberschriften sind immer vorhanden).
Die Werte der Zeilen 2 und 3, 4 und 5 usw. werden unter den importierten Werten addiert. Dann werden die Zeilen 2 bis A_letzte und Spalte B gelöscht.
For i = 2 To A_letzte
If Range("A" & i).Value = Range("A" & i + 1).Value And _
Range("B" & i).Value = "Ja (mit Zeitangabe)" And Range("B" & i + 1).Value = "Ja (ohne Zeitangabe)" Then
Range("A" & A_letzte + i).Value = Range("A" & i).Value
Range("C" & A_letzte + i).Value = Range("C" & i).Value + Range("C" & i + 1).Value
Range("D" & A_letzte + i).Value = Range("D" & i).Value + Range("D" & i + 1).Value
Range("E" & A_letzte + i).Value = Range("E" & i).Value + Range("E" & i + 1).Value
End If
Next i
Rows("2:" & A_letzte).Delete
Columns("B").Delete
Wie kann ich jetzt ein "For j=3 to letzte_Spalte" einbauen, um nicht jede Spalte mit C, D usw. angeben zu müsen? Ich bekomme das nicht hin!
Dank für jede Hilfe!
Peter