monate - formatproblem in vba!? | HERBERS Excel Forum

hi leute,
erstmal sorry für das neue posting zu einem alten thema, aber ich denke dieser fehler ist eher allgemein und außerdem muss ich das ding bis heute nachmittag fertig haben ;/
und zwar habe ich z.b. folgendes in spalte a und b stehen:
01.07.2005 1
01.03.2005 x
02.07.2005 2
01.04.2005 x
03.07.2005 3
04.07.2005 4
05.07.2005 5
01.09.2005 x
jetzt lasse ich ein makro drüberlaufen (vielen dank hierfür nochmal an die leute aus dem forum), welches in spalta a die zeilen aller monate löscht, die nicht in einer ComboBox ausgewählt wurden. Folgender Quelltext:


Private Sub Loeschen()
Dim lnZ As Long
Dim Monat As Integer
If cboMonat.Value = "Januar" Then Monat = 1
If cboMonat.Value = "Februar" Then Monat = 2
On Error Resume Next
For lnZ = 1 To ActiveSheet.UsedRange.Rows.Count
If Month(Cells(lnZ, 1).Value)  Monat Then Rows(lnZ).Delete Shift:=xlUp
Next lnZ
On Error GoTo 0
End Sub

soweit so gut, ich verstehe was das makro macht und ich halte es auch für richtig, aber das gewünschte ergebnis erscheint nicht, stattdessen kommt folgendes:
beispielsweise, wenn ich juli auswähle:
01.04.2005 x
01.07.2005 1
02.07.2005 2
03.07.2005 3
04.07.2005 4
05.07.2005 5
also alles richtig, bis auf zeile 1. wähle ich jetzt april aus kommt folgendes:
01.04.2005 x
02.07.2005 2
04.07.2005 4
01.09.2005 x
bei allen anderen monaten ist das ergebnis auch völlig verwirrend. da muss doch noch irgendwo ein formatproblem mit den monaten sein, aber ich wüsste nicht welches. wäre super, wenn mir ein "sehender" da weiterhelfen könnte.
vielen dank im voraus
christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Loeschen() Dim lnZ As Long Dim Monat As Integer Monat = Month("1." & cboMonat.Value) On Error Resume Next For lnZ = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If Month(Cells(lnZ, 1).Value) Monat Then Rows(lnZ).Delete Shift:=xlUp Next lnZ On Error GoTo 0 End Sub

Private Sub Loeschen() Dim lnZ As Long Dim Veranstalter As String Veranstalter = cboVeranstalterReport.Value On Error Resume Next For lnZ = ActiveSheet.UsedRange.Cols.Count To 1 Step -1 If Cells(1, lnZ).Value Veranstalter Then Cols(lnZ).Delete Shift:=xlToLeft Next lnZ On Error GoTo 0 End Sub

Private Sub Loeschen() Dim lnZ As Long On Error Resume Next For lnZ = ActiveSheet.UsedRange.Columns.Count To 3 Step -1 If Not Cells(1, lnZ) Like "OLM*" Then Columns(lnZ).Delete Shift:=xlToLeft Next lnZ On Error GoTo 0 End Sub

Private Sub Loeschen() Dim lnZ As Long, TXT As String TXT = InputBox("Übrig lassen?") For lnZ = ActiveSheet.UsedRange.Columns.Count To 3 Step -1 If Not Cells(1, lnZ) Like TXT & "*" Then Columns(lnZ).Delete Shift:=xlToLeft Next lnZ On Error GoTo 0 End Sub Private Sub Loeschen_alternativ() Dim lnZ As Long, TXT As String TXT = InputBox("Übrig lassen?") For lnZ = ActiveSheet.UsedRange.Columns.Count To 3 Step -1 If Not Left(Cells(1, lnZ), Len(TXT)) = TXT Then Columns(lnZ).Delete Shift:=xlToLeft Next lnZ On Error GoTo 0 End Sub

Beliebteste Forumthreads (12 Monate)

monate - formatproblem in vba!?

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

monate - formatproblem in vba!?

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

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread