Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler bei cells

Fehler bei cells
06.08.2004 12:09:31
Pascal
Hallo,
ich beschäftige mich neu mit VBA,
Wo ist mein Fehler?
'Prüfung 2 gleiche
If Cells(zeile, 4) = Cells(zeile + 1, 4) Then
Cells(zeile + 1, 9) = Cells(zeile, 6) + Cells(zeile + 1, 6)
zeile = zeile + 1
End If
Er addiert die beiden zellen einfach nicht.
Danke und Gruß Pascal

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler bei cells
06.08.2004 12:13:41
Nepumuk
Hallo Pascal,
Cells(zeile + 1, 9) = Cells(zeile, 6).Value + Cells(zeile + 1, 6).Value
Gruß
Nepumuk
AW: Fehler bei cells
06.08.2004 12:19:52
Pascal
Danke,
jetzt funzt es
AW: Fehler bei cells
06.08.2004 12:21:59
Roland
Hallo Pascal,
wenn es eine Schleife werden soll, musst du das z.B. in ein For....Next einschließen; ein einfaches zeile=zeile+1 reicht nicht bzw. wäre nur bei einer Do-Loop-Schleife erforderlich:

Sub test()
Dim zeile As Integer
For zeile = 1 To ActiveSheet.UsedRange.Rows.Count
If Cells(zeile, 4) = Cells(zeile + 1, 4) Then
Cells(zeile + 1, 9) = Cells(zeile, 6) + Cells(zeile + 1, 6)
End If
Next
End Sub

Gruß
Roland
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige