Frage zu Exel VBA - Spalten filtern nach monat

Hallo Community,
ich habe schon of hier gelesen und bin auch fast immer fündig geworden.
Jetzt meine erste Frage hier.
Ich habe eine Tabelle welche leider aufgrund der Daten und Datenmegen Spaltenweise aufgebaut ist.
Ab A30 beginnen die Daten - darüber ist Kopf
Die auszuwertenden Daten stehen ab Spalte N immer in 3 Spalten (NOP) dann eine leer Spalte und der nächste Block (RST)
Es geht mir um das Datum welches sich in den Koordinaten der Zeile 28 versteckt - Also P28, T28, X28, AB28 . . . .
Mir wäre es jetzt wichtig, es irgendwie zu schaffen, das sich ein Makro die Zeile28 anschaut und mit z.B. "H5" Verlgleicht, wo ich ein Dropdown habe, welcher einen Monat zeigt.
Beispiel "H5" = Februar
Dann soll er meinetwegen alle Spalten, beginnend N löschen, wo in P28, T28, X28 . . .(ganze zeile 28) nicht ein Datum mit Februar drin ist.
Löschen deswegen, weil ich von A-L eine Auswahl habe (zählen wenn X) und die Spalten die Produkte sind - somit will ich sehen, welche Produkte in dem Zeitraum welche eigenschaften hatten.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CheckDatumsWerte() Dim wks As Worksheet Dim strMonat As String, intMonat As Integer Dim datDatum As Variant Dim Spalte As Long, Zeile_1 As Long, Zeile_L As Long Dim StatusCalc As Long If MsgBox("Datums-Vergleich Zelle H5 mit Datumswerten in Zeile 28 ab Spalte N " _ & "durchführen?", _ vbQuestion + vbOKCancel, "Datumsabgleich") = vbCancel Then Exit Sub Set wks = ActiveSheet With wks 'Monats-Text in Dropdown-Auswahl umwandeln intMonat = fncMonat_Text_to_Number(.Range("H5").Text, True) If intMonat = 0 Then Exit Sub End If Zeile_1 = 30 'Zeile ab der ggf. Daten gelöscht werden sollen 'letzte benutzte Zeile ermitteln With .UsedRange Zeile_L = .Row + .Rows.Count - 1 End With If Zeile_L

Hallo Martin,
ich hab ein paar Varianten zum Löschen eingebaut (nur Werte, komplette Spalten, Zellbereich etc.)
Werden Zellen gelöscht, dann ist es wichtig, dass entweder der Spaltenzähler korrekt arbeitet oder dass die Zellen von rechts nach links gelöscht werden.
Du musst auch sicherstellen, das deine Formeln in den 1. Spalten keinen Bezug-Fehler liefern wenn der 1. oder letzte Zellenblock gelöscht werden.
Gruß
Franz
PS.: Wenn du Aktivitäten im Blatt während der Makroausführung im Schrittmodus beobachten willst, dann musst du das VBA-Fenster etwas verkleinern.
Zusätzlich kannst du im VBA-Fenster unter Ansiht das "Lokalfenster" einblenden. Dann werden dir die Werte der deklarierten Variablen angezeigt bzw. die Eigenscheaften bei Objekt-Variablen.

Sub CheckDatumsWerte()
Dim datDatum As Variant
Dim Spalte As Long, Zeile_L As Long, SpaMax As Long
Dim strMonat As String, intMonat As Integer
Dim Zeile_1 As Long, Zeile_Datum As Long
Dim wks As Worksheet
Dim iAktion As Integer
Dim StatusCalc As Long
Zeile_Datum = 28 'Zeile mit den zu prüfenden Datumswerten
Zeile_1 = 30 'Zeile ab der ggf. Daten gelöscht werden sollen
Set wks = ActiveSheet
With wks
'Monats-Text in Dropdown-Auswahl umwandeln
strMonat = .Range("H5").Text
If MsgBox("Datums-Vergleich Zelle H5 (" & strMonat & ") mit Datumswerten in Zeile " _
& Zeile_Datum & " ab Spalte N durchführen?", _
vbQuestion + vbOKCancel, "Datumsabgleich") = vbCancel Then Exit Sub
intMonat = fncMonat_Text_to_Number(strMonat, True)
If intMonat = 0 Then
Exit Sub
End If
'letzte benutzte Zeile ermitteln
With .UsedRange
Zeile_L = .Row + .Rows.Count - 1
End With
If Zeile_L

Beliebteste Forumthreads (12 Monate)

Frage zu Exel VBA - Spalten filtern nach monat

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Frage zu Exel VBA - Spalten filtern nach monat

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

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread