- #1
K
klexy
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 04.05.2002
- Beiträge
- 802
- Reaktionspunkte
- 0
- Ort
- Bayern
Ich steh voll am Bahnhof und der Zug ist ziemlich abgefahren.
So sieht es aus:
hfswrczak
hfswrczak
hfswrczak
hfswrczak
hfswrczak
1
2
3
7
9
hfswrczak
1
2
5
6
hfswrczak
7
8
9
hfswrczak
4
5
6
Durch den bisherigen Verlauf des Makros habe ich alle unliebsamen Zeilen der Tabelle mit hfswrczak in der Spalte A gekennzeichnet. Jetzt soll das Makro im weiteren Verlauf der Handlung alle Zeilen, die hfswrczak in Spalte A haben, löschen. Das sieht dann so aus:
Diesen Code-Schnipsel habe ich von Matjes geklaut ;D, also muß er auch funktionieren.
Aber: im oberen Bereich, wo die unliebsamen Zeilen unmittelbar aufeinander folgen, löscht er nur jede 2. Zeile. Ich könnte dieses Modul jetzt 20x hintereinander in mein Makro reinkopieren, aber das ist selbst mir zu unelegant.
[o.T.] Hfswrczak ist übrigens der kaputteste Bandname, den ich je gehört habe. Wahrscheinlich gibt es sie schon lange nicht mehr. Deshalb setze ich den Jungs hier ein Denkmal.
So sieht es aus:
hfswrczak
hfswrczak
hfswrczak
hfswrczak
hfswrczak
1
2
3
7
9
hfswrczak
1
2
5
6
hfswrczak
7
8
9
hfswrczak
4
5
6
Durch den bisherigen Verlauf des Makros habe ich alle unliebsamen Zeilen der Tabelle mit hfswrczak in der Spalte A gekennzeichnet. Jetzt soll das Makro im weiteren Verlauf der Handlung alle Zeilen, die hfswrczak in Spalte A haben, löschen. Das sieht dann so aus:
Code:
For Each zelle In Range(A1:A10000)
If zelle.Value = hfswrczak Then
zelle.EntireRow.Select
Selection.Delete Shift:=xlUp
End If
Next
Diesen Code-Schnipsel habe ich von Matjes geklaut ;D, also muß er auch funktionieren.
Aber: im oberen Bereich, wo die unliebsamen Zeilen unmittelbar aufeinander folgen, löscht er nur jede 2. Zeile. Ich könnte dieses Modul jetzt 20x hintereinander in mein Makro reinkopieren, aber das ist selbst mir zu unelegant.
[o.T.] Hfswrczak ist übrigens der kaputteste Bandname, den ich je gehört habe. Wahrscheinlich gibt es sie schon lange nicht mehr. Deshalb setze ich den Jungs hier ein Denkmal.