Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Frage vor dem FA: Leere Zeilen

Letzte Frage vor dem FA: Leere Zeilen
17.02.2004 18:31:44
Martin
'nabend!
Falls noch jemand Lust hat, mir bei einer Sache zu helfen?
Habe ab Zeile 7 Werte stehen. Die Liste geht bis Zeile 100, wobei nicht alle Zeilen belegt sind. In Zeile 100 Wird dann eine Gesamtsumme über alle vorhergehenden gebildet. Nun möchte ich aber, dass die Gesamtsumme nur durch EINE Leerzeile vom letzten Wert getrennt erscheint, d.h. also, dass alle leeren Zeilen (bis auf eine) gelöscht werden.
Bitte habt noch Lust ;-)
Danke und Gruß
Martin

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Frage vor dem FA: Leere Zeilen
17.02.2004 19:37:51
y
hi Martin,
ich hab nicht ganz verstanden ob du die summe in zeile 100 hast oder
ob dies die die letzte zeile deiner zahlen sind
aber das kannst du dann ja anpassen


Sub zeilen_loeschen()
Dim zeile As Integer
Dim summary As Long
Dim letzerwert As Integer
For zeile = 100 To 7 Step -1
If Cells(zeile, 1) = "" Then
Rows(zeile).Delete
Else
summary = summary + Cells(zeile, 1)
End If
Next
Do While Cells(zeile + 1, 1) <> ""
zeile = zeile + 1
Loop
Cells(zeile + 2, 1) = summary
End Sub

cu Micha
Daaaanke fürs Wachbleiben!!! oT :-)
17.02.2004 20:31:44
Martin
.
danke für die rückmeldung :-) o.t.
17.02.2004 21:02:12
y
...
Kurze Nachfrage:"Typen unverträglich"
17.02.2004 21:15:19
Martin
Hi Y,
leider habe ich das Problem, dass es bei der Zeile
summary = summary + Cells(zeile, 1)
zum Fehlertyp "Typen unverträglich" kommt.
Was muss ich ändern?
Danke und Gute Nacht :-)
Martin
Anzeige
AW: Kurze Nachfrage:"Typen unverträglich"
17.02.2004 21:35:49
y
hi Martin,
stehen da eventuell text irgenwo mittenmang in spalte 1 ?
wenn ja sollen die stehenbleiben ?
cu Micha
AW: Kurze Nachfrage:"Typen unverträglich"
17.02.2004 21:38:18
Martin
Hi y,
jo, da steht auch Text u.a. "Gesamtsumme", der unbedingt stehen bleiben muss. Funzt es trotzdem irgendwie?
Gruß
Martin
AW: Kurze Nachfrage:"Typen unverträglich"
17.02.2004 21:46:12
y
hi Martin,
warum nicht ? ;-) man muss es nur wissen

Sub zeilen_loeschen()
Dim zeile As Integer
Dim summary As Double
For zeile = 100 To 7 Step -1
If Cells(zeile, 1) = "" Then
Rows(zeile).Delete
Else
If IsNumeric(Cells(zeile, 1)) = True Then
summary = summary + CDbl(Cells(zeile, 1))
End If
End If
Next
Do While Cells(zeile + 1, 1) <> ""
zeile = zeile + 1
Loop
Cells(zeile + 2, 1) = summary
End Sub

cu Micha
Anzeige
Je später der Abend, je klüger die Helfer! DANKE!!
17.02.2004 21:55:18
Martin
...

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige