Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Letzte Frage vor dem FA: Leere Zeilen

Forumthread: 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
Anzeige

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
Anzeige
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige