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 Motz26 vom 24.10.2019, 08:48 Options
Excel-ausfiltern und automatisch löschen
Ich hab folgendes Problem.
Ich habe 1 Exceltabelle mit ca. 50.000 Daten.
In Spalte A steht Name , Spalte B Adresse, Spalte C, D, E auch daten in Spalte F die Telefonnummer.
In den 50.000 Daten sind jetzt einige Telefonnummern identisch.
Ich benötige jetzt eine ?Wenn? Funktion die mir, sobald eine Telefonnummer doppelt oder öfter vorkommt, BEIDE (ALLE) Einträge entfernt, also nicht nur 1 Datenzeile sondern alle mit der selben Telefonnummer.
Der Befehl Spezialfilter funktioniert nicht, da er nur einen Eintrag herauslöscht und den 2. belässt.
Bitte um Hilfe.
Vielen Dank
Ich habe 1 Exceltabelle mit ca. 50.000 Daten.
In Spalte A steht Name , Spalte B Adresse, Spalte C, D, E auch daten in Spalte F die Telefonnummer.
In den 50.000 Daten sind jetzt einige Telefonnummern identisch.
Ich benötige jetzt eine ?Wenn? Funktion die mir, sobald eine Telefonnummer doppelt oder öfter vorkommt, BEIDE (ALLE) Einträge entfernt, also nicht nur 1 Datenzeile sondern alle mit der selben Telefonnummer.
Der Befehl Spezialfilter funktioniert nicht, da er nur einen Eintrag herauslöscht und den 2. belässt.
Bitte um Hilfe.
Vielen Dank
Antwort 1 von Saarbauer vom 24.10.2019, 09:01 Options
Hallo,
wirst du nur mit den Funktionen von Excel nicht hinbekommen, da die automatische Löschung nicht geht.
Eine Lösung ist nur mit VBA möglich.
Gruß
Helmut
wirst du nur mit den Funktionen von Excel nicht hinbekommen, da die automatische Löschung nicht geht.
Eine Lösung ist nur mit VBA möglich.
Gruß
Helmut
Antwort 2 von Motz26 vom 24.10.2019, 09:08 Options
Hallo Helmut,
was ist VBA und wie kompliziert ist es, mein Problem damit zu lösen.
LG
was ist VBA und wie kompliziert ist es, mein Problem damit zu lösen.
LG
Antwort 3 von Saarbauer vom 24.10.2019, 09:26 Options
hallo,
ist ein bischen Aufwand.
Werde mir mal eine Lösung überlegen
Gruß
Helmut
ist ein bischen Aufwand.
Werde mir mal eine Lösung überlegen
Gruß
Helmut
Antwort 4 von Motz26 vom 24.10.2019, 09:29 Options
Vielen Dank Helmut, freu mich schon auf deine Antwort.
Kannst mich auch erreichen unter 0043 5572 890178.
LG
Matthias
Kannst mich auch erreichen unter 0043 5572 890178.
LG
Matthias
Antwort 5 von Saarbauer vom 24.10.2019, 10:54 Options
Hallo,
das Makro in deien Tabelle einbauen, setzte voraus, dass du das kannst, sonst noch mal melden
Sub Makro1()
HW = ""
Range("F2").Select
While IsEmpty(ActiveCell.Value) = False
If ActiveCell.Value = HW Or ActiveCell.Value = Range("F" & ActiveCell.Row + 1).Value Then
HW = ActiveCell.Value
Rows(ActiveCell.Row).Select
Selection.Delete
ActiveCell.Offset(0, 5).Select
Else
HW = ""
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Gruß
Helmut
p.S. nicht direkt im Orginal testen, vorher eine Kopie anlegen, falls es nicht wie gewünscht funktioniert
das Makro in deien Tabelle einbauen, setzte voraus, dass du das kannst, sonst noch mal melden
Sub Makro1()
HW = ""
Range("F2").Select
While IsEmpty(ActiveCell.Value) = False
If ActiveCell.Value = HW Or ActiveCell.Value = Range("F" & ActiveCell.Row + 1).Value Then
HW = ActiveCell.Value
Rows(ActiveCell.Row).Select
Selection.Delete
ActiveCell.Offset(0, 5).Select
Else
HW = ""
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
Gruß
Helmut
p.S. nicht direkt im Orginal testen, vorher eine Kopie anlegen, falls es nicht wie gewünscht funktioniert
Antwort 6 von Motz26 vom 24.10.2019, 11:09 Options
Danke für das Script-bitte auch die erklärung wie ich es einsetze, hab nämlich noch nicht mit Makros gearbeitet.
LG
Matthias
LG
Matthias
Antwort 7 von Saarbauer vom 24.10.2019, 11:21 Options
Hallo,
Excel öffnen und Datei laden
unter
"Extras“ "Makro“ "Visual Basic-Editor“ öffnet sich der Editor
Hier unter"„Projekt-VBAProjekt“ die eine Tabelle oä. Mit linker Maustaste anklicken
Im Fenster dann "Einfügen“ "Modul“ anklicken.
Es wird eine Ebene Module in Projekt-VBAProjekt angelegt.
Auf Modul 1 (gehe davon aus, dass kein Modul vorhanden ist) klicken und es müsste dann ein leeres Fenster erscheinen. Hier den Code reinkopieren und dann das Makro starten
Gruß
Helmut
Excel öffnen und Datei laden
unter
"Extras“ "Makro“ "Visual Basic-Editor“ öffnet sich der Editor
Hier unter"„Projekt-VBAProjekt“ die eine Tabelle oä. Mit linker Maustaste anklicken
Im Fenster dann "Einfügen“ "Modul“ anklicken.
Es wird eine Ebene Module in Projekt-VBAProjekt angelegt.
Auf Modul 1 (gehe davon aus, dass kein Modul vorhanden ist) klicken und es müsste dann ein leeres Fenster erscheinen. Hier den Code reinkopieren und dann das Makro starten
Gruß
Helmut
Antwort 8 von Motz26 vom 25.10.2019, 10:25 Options
Hallo helmut,
hat super funktioniert-Vielen Vielen Dank.
Schönes wOCHENENDE WÜNSCHT dIR mATTHIAS
hat super funktioniert-Vielen Vielen Dank.
Schönes wOCHENENDE WÜNSCHT dIR mATTHIAS
Ähnliche Themen
Excel, Zeilen beim Autostart automatisch über einen Wert in einer Spalte löschen
torsten110 09.11.2007 - 110 Hits - 4 Antworten
Excel - Farbpalette ändert sich automatisch
Zerschlmaus 01.02.2008 - 651 Hits - 2 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
