VBA in Excel nach Werten aus aktiver Zeile suchen

Computer: Software & Programmierung Office Software
1

Hallo an die Gemeinde,
ist gar nicht so einfach die passende Betreffszeile zu finden, da der Text sehr kurz sein muss.

Ich habe eine Termintabelle mit 11 Spalten.
Die Werte beginnen in Zeile 6.
Zwischen vielen Einzelterminen existieren auch Terminserien, d.h. Termine in denen bis auf das Datum in Spate D alles gleich ist. Diese Serien stehen aber nicht als Block untereinander, sondern es befinden sich auch andere Termine dazwischen.

Nun möchte ich in meinem Programm auch das Löschen von ganzen Terminserien anbieten. Idealerweise so, dass man einen Termin aus der Serie mit dem Cursor auswählt und dann ein Makro Startet, welches alle gleichen Termine findet und die Zellen etleert.
Es dürfen aber nur die Termine gefunden werden, welche mit Ausnahme von Spalte D in allen Kriterien mit dem denen der ausgewählten Zeile übereinstimmen.

Ich hoffe es gibt dafür eine Lösung!
Viele Grüße
binhdiez

2

Ich habe eine Termintabelle mit 11 Spalten.
Die Werte beginnen in Zeile 6.
Nun möchte ich in meinem Programm auch das Löschen von ganzen
Terminserien anbieten. Idealerweise so, dass man einen Termin
aus der Serie mit dem Cursor auswählt und dann ein Makro
Startet, welches alle gleichen Termine findet und die Zellen
etleert.
Es dürfen aber nur die Termine gefunden werden, welche mit
Ausnahme von Spalte D in allen Kriterien mit dem denen der
ausgewählten Zeile übereinstimmen.

Hallo binhdiez,

was meinst du mit Zellen leeren? Zellinhalte löschen oder ganze zeile löschen?

in ein Standardmodul:

Option Explicit

Sub Loesch()
Dim Formel As String, Zei As Long, Spa As Long, Such As String, Z As Long
If Selection.Rows.Count \> 1 Then Exit Sub
If ActiveCell.Row 4 Then Formel = Formel & Cells(6, Spa).Address(0, 0) & "&""#""&"
Next Spa
Range("Z6:Z" & Zei).Formula = Left(Formel, Len(Formel) - 1)
Such = Cells(ActiveCell.Row, 26).Value
For Z = Zei To 6 Step -1
 If Cells(Z, 26).Value = Such Then Rows(Z).Delete
Next Z
Range("Z6:Z" & Zei).ClearContents
End Sub

Gruß
Reinhard

3

nach Werten aus aktiver Zeile suc
Hallo Reinhardt,
das war ja mal eine geile Lösung.
Tolle Formel, klappt auf Anhieb.
Ich habe delete durch ClearContents ersetzt, und sortiere anschließend, damit die Formate bleiben.
Vielen Dank
binhdiez