3k Aufrufe
Gefragt in WindowsXP von ruffel222 Einsteiger_in (29 Punkte)
Hallo zusammen, ich arbeite derzeit zur erleichterung, bzw. versuche es mit makros zu arbeiten, oft arbeite ich einfach nur mit kopie paste und versuche es dann auf mich umzuschreiben, da ich nur noch dieses eine mal ein makro schreiben muss, hoffe ich auf eure hilfe.

Ich müsste aus der Exceldatei, alle Datensätze welche beginnen mit (also spalte A)

- die ein "80% Wert =" beinhalten (also das in der A steht)
- Anfang Prüfliste
- Material-nummer (außer in den ersten 2 Zeilen)
- Ekg
- Metallabschlag pro ESN Interval.
- Bukr
- Anfang Verarbeitungsliste

löschen!

das ist doch per makro möglich? kann mir hier jmd helfen?
Vielen lieben Dank und Grüße auf Bayern :)

14 Antworten

0 Punkte
Beantwortet von ruffel222 Einsteiger_in (29 Punkte)
Okay, das ist die selbe Datei wie vorher, nur dass man sich eben in der spalte C unter WK die 10 oder 11 in den Zeilen vorstellen muesste.
0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo Benjamin,

soll die ganze Zeile gelöscht, wenn in Spalte C der Wert 11 steht, oder nur der Inhalt der betreffenden Zelle?

Gruß

M.O.
0 Punkte
Beantwortet von ruffel222 Einsteiger_in (29 Punkte)
Also wenn in Spalte C eine 11 steht, dann gesamte Zeile löschen.

Grüße!
0 Punkte
Beantwortet von m-o Profi (22.8k Punkte)
Hallo Benjamin,

das folgende Makro löscht alle Zeilen, in denen in Spalte C (ab Zeile 3) der Wert 11 steht:

Sub elf_loeschen()

Dim zeile As Long

'Bildschirmaktualisierung ausschalten:
Application.ScreenUpdating = False

For zeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 3 Step -1

If Cells(zeile, 3).Value = 11 Then Cells(zeile, 1).EntireRow.Delete xlShiftUp

Next zeile

'Bildschirmaktualisierung einschalten:
Application.ScreenUpdating = True

End Sub


Gruß

M.O.
...