Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Elhamplo vom 31.05.2019, 15:56 Options
Zahl in Spalte A suchen und per VBA Zeile löschen
Hallo,
ich brauch Eure Hilfe!!!!
Habe eine Tabelle die ich in regelmäßigen abständen aktualisiere. In Spalte A stehen dann die Auftragsnummer (Buchstaben und Zahlenkobination). Nach jeder Aktualisierung muss ich immer die gleichen Auftragsnummern löschen, da ich die nicht vorher abfiltern kann.
Jetzut meine Frage: Kann ich per Makro die Aufträge löschen??? Das man in den Code die Auftragsnummern einträgt die man löschen will und nach der Aktualisierung das Makkro ausführt, so das die Zeilen mit den Aufträgen gelöscht wird.
Vielen Dank für Eure Hilfe!!!
Gruß
Elhamplo
ich brauch Eure Hilfe!!!!
Habe eine Tabelle die ich in regelmäßigen abständen aktualisiere. In Spalte A stehen dann die Auftragsnummer (Buchstaben und Zahlenkobination). Nach jeder Aktualisierung muss ich immer die gleichen Auftragsnummern löschen, da ich die nicht vorher abfiltern kann.
Jetzut meine Frage: Kann ich per Makro die Aufträge löschen??? Das man in den Code die Auftragsnummern einträgt die man löschen will und nach der Aktualisierung das Makkro ausführt, so das die Zeilen mit den Aufträgen gelöscht wird.
Vielen Dank für Eure Hilfe!!!
Gruß
Elhamplo
Antwort 1 von fedjo vom 31.05.2019, 16:53 Options
Hallo Elhamplo,
die Codes in ein Modul einfügen,
gefiltert wird Spalte A nach Eingabe (Input) werden die gefilterten Zeilen gelöscht.
Gruß
fedjo
Sub Autofilter()
Dim loLetzte As Long
Dim Name As String
Name = InputBox("Bitte Namen eingeben!")
Range("A1").Autofilter Field:=1, Criteria1:=Name
Range("A2:B65536").Cells.SpecialCells(xlCellTypeVisible)(1).Select
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("A2:A" & loLetzte).Select
Selection.Delete Shift:=xlUp
If ActiveCell.Value = "" Then
Selection.Autofilter
End If
End Sub
Public Sub Filteraus()
Selection.Autofilter
End Sub
die Codes in ein Modul einfügen,
gefiltert wird Spalte A nach Eingabe (Input) werden die gefilterten Zeilen gelöscht.
Gruß
fedjo
Sub Autofilter()
Dim loLetzte As Long
Dim Name As String
Name = InputBox("Bitte Namen eingeben!")
Range("A1").Autofilter Field:=1, Criteria1:=Name
Range("A2:B65536").Cells.SpecialCells(xlCellTypeVisible)(1).Select
loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
Range("A2:A" & loLetzte).Select
Selection.Delete Shift:=xlUp
If ActiveCell.Value = "" Then
Selection.Autofilter
End If
End Sub
Public Sub Filteraus()
Selection.Autofilter
End Sub
Antwort 2 von Elhamplo vom 01.06.2019, 08:12 Options
Hallo,
danke für Deine Hilfe!!!
Der Code ist Super.
Jetzt habe ich noch eine Frage dazu. Kann man auch mehr als einen Namen bzw. Auftragsnummern eingeben???
Danke!!
Gruß
Elhamplo
danke für Deine Hilfe!!!
Der Code ist Super.
Jetzt habe ich noch eine Frage dazu. Kann man auch mehr als einen Namen bzw. Auftragsnummern eingeben???
Danke!!
Gruß
Elhamplo
Antwort 3 von fedjo vom 01.06.2019, 13:16 Options
Hallo,
der Autofilter erkennt nur einen Suchbegriff!
Gruß
fedjo
der Autofilter erkennt nur einen Suchbegriff!
Gruß
fedjo
Ähnliche Themen
2 Tabellen vergleichen
mikerwaa99 07.04.2007 - 112 Hits - 1 Antwort
Formel: Zuordnung für Tabelle
ger 28.08.2007 - 36 Hits - 1 Antwort
WENN-Formel
Wartenix 08.02.2008 - 39 Hits - 2 Antworten
Automatisch Zeilen löschen
Elhamplo 03.03.2008 - 88 Hits - 12 Antworten
Excel - VBA: Variable Zellbezüge
henne87 16.04.2008 - 57 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
