Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
388to392
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
388to392
388to392
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen löschen abhängig von Zahl der Tage im Monat

Zeilen löschen abhängig von Zahl der Tage im Monat
02.03.2004 12:24:32
thekla
Hallo,
folgendes Problem:
In einer EXCEL-Tabelle erhalte ich aus einer anderen Anwendung Tagesdaten über zwei aufeinanderfolgende Monate.
Die Anordnung MUSS wie folgt sein:
- In Zeile 1 Ausgabe erster Wert des ersten Monats, z.B. 1.2.03
- in Zeile 32 Ausgabe erster Wert des Folgemonats, also vom 1.3.03
--> D.h. für den 29./30. und 31. Tag wird kein Wert ausgegaben
--> D.h. je nach Startdatum bleiben in Zeilen 29, 30, 31 Zellen leer
NACH DER DATENÜBERNAHME sollen die Zeilen mit den leeren Zellen in Abhängigkeit von der Zahl der Tage des Monats gelöscht werden:
also z.B. die 31. Zeile, oder die 30./31. Zeile, oder die 29./30./31. Zeile.
Vermutlich lässt sich das nur mit einem Makro lösen.
Vielen Dank für Tipps!
Grüße Thekla

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen abhängig von Zahl der Tage im Monat
02.03.2004 12:46:30
Roland Hochhäuser
Hallo Thekla,
suchst du sowas:

Sub LeerzeilenLoeschen()
Dim i As Integer
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If WorksheetFunction.CountBlank(Rows(i)) = 256 Then Rows(i).Delete
Next
End Sub

Gruß
Roland
AW: Zeilen löschen abhängig von Zahl der Tage im Monat
02.03.2004 14:13:08
thekla
Hallo Roland,
wenn ich das Makro richtig verstehe, wird nach einer Leerzelle gesucht und dann die Zeile gelöscht.
Das Problem ist - auch wenn ich das anders geschrieben haben - dass u.U. die Zelle nicht leer ist (weil von der vorhergehenden Transaktion noch Werte in der Zelle stehen).
D.h. ich müßte in Abhängigkeit von der Zahl der Tage die x. Zeile löschen:
Z.B. 28 Tage, dann lösche (Anfangszeile = 11 + 28 = 39)==> 39. und 40. und 41. Zeile
Z.B. 29 Tage, dann lösche (Anfangszeile = 11 + 29 = 40)==> 40. und 41. Zeile
Z.B. 30 Tage, dann lösche (Anfangszeile = 11 + 30 = 41)==> 41. Zeile
Z.B. 31 Tage, dann lösche KEINE Zeile
Also, ich hoffe, jetzt wird's klarer.
Gruss Thekla
Anzeige
AW: Zeilen löschen abhängig von Zahl der Tage im Monat
02.03.2004 14:20:33
Roland Hochhäuser
Hallo Thekla,
ich denke wir kommen am besten weiter, wenn du mal eine Tabelle mit "Spieldaten" und auch den Resten der vorangegangenen Transaktionen hochlädtst. Mit deiner Beschreibung kann ich nicht sehen, wie ich VBA-mäßig Anfang und Ende der Blöcke bestimmen soll.
Gruß
Roland
AW: Zeilen löschen abhängig von Zahl der Tage im Monat
02.03.2004 14:36:19
thekla
Hallo Roland,
danke dass du dir nochmals die Mühe machen möchtest.
Ich hoffe es klappt mit dem Hochladen, hatte ich noch nie probiert.
https://www.herber.de/bbs/user/4022.xls
Gruss Thekla
AW: Zeilen löschen abhängig von Zahl der Tage im Monat
02.03.2004 16:41:21
Roland Hochhäuser
Hallo Thekla,
versuche folgendes zunächst mal an einer Dateikopie:

Sub MonatsendeLoeschen()
Dim i As Integer
For i = Range("C65536").End(xlUp).Row To 11 Step -1
If Range("A" & i) < Range("A" & i - 1) And CInt(Left(DateSerial(Year(Range("C" & i - 1)), _
Month(Range("C" & i - 1)) + 1, 0), 2)) Then
Rows(i - 1).Delete
End If
Next
End Sub

Gruß
Roland
Anzeige
AW: Zeilen löschen abhängig von Zahl der Tage im Monat
02.03.2004 17:06:42
Roland Hochhäuser
Sorry Fehler passiert, das hier funktioniert:

Sub MonatsendeLoeschen()
Dim i As Integer
For i = Range("C65536").End(xlUp).Row To 15 Step -1
If Range("A" & i - 1) > CInt(Left(DateSerial(Year(Range("C" & i - 4)), _
Month(Range("C" & i - 4)) + 1, 0), 2)) Then
Rows(i - 1).Delete
End If
Next
End Sub

Gruß
Roland

14 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige