Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste erstellen / sortieren / doppelte löschen

Liste erstellen / sortieren / doppelte löschen
MarkusH
Hallo Excel-Profis,
in einem Arbeitsblatt möchte ich per VBA-Makro eine simple Liste erstellen.
Es wird ein Wert (Name) vom Benutzer abgefragt und ans Ende der Liste in Spalte B eingetragen, in Spalte A gibt es eine fortlaufende Nummer, bspw.
1 Max
2 Moritz
3 Stefan
4 Max
Nun kann es vorkommen dass ein Name in Spalte B doppelt existiert (im Beispiel oben "Max") da dieser 2x eingegeben wurde.
In diesem Fall sollte dann die kpl. Zeile gelöscht werden.
Wie kann ich am besten vorgehen so dass ich alles in einem Makro unterbekomme?
(also erstellen der Liste nach Abfrage per Inputbox, Abfrage ob weiterer Datensatz erfasst werden soll, Ermitteln von doppelten Einträgen in Spalte B, Löschen der entsprechenden Zeile).
Ich sitze da jetzt schon fast den ganzen Tag dran. Ich denke dass man das in wenigen Zeilen erstellen kann aber ich kriegs nicht hin. :-/
Wer kann bitte helfen?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Liste erstellen / sortieren / doppelte löschen
31.07.2010 19:01:36
Josef

Hallo markus,
probier es so.

Private Sub CommandButton1_Click()
  Dim lngNext As Long, strInput As String, vntRet As Variant
  
  
  Do
    strInput = InputBox("Bitte Name eingeben:", "Eingabe", "")
    If strInput = "" Then Exit Do
    vntRet = Application.Match(strInput, Columns(2), 0)
    If IsNumeric(vntRet) Then
      MsgBox "Der Eintrag " & strInput & " ist schon vorhanden!"
    Else
      lngNext = Cells(Rows.Count, 1).End(xlUp).Row + 1
      Cells(lngNext, 1) = Application.Max(Columns(1)) + 1
      Cells(lngNext, 2) = strInput
      lngNext = lngNext + 1
    End If
  Loop
  
End Sub

Gruß Sepp

Anzeige
AW: Liste erstellen / sortieren / doppelte löschen
31.07.2010 19:44:31
MarkusH
Wahnsinn!
Die Idee doppelte Namen gar nicht zuzulassen ist super! Ich hätte für die Umsetzung allerdings 2 Wochen benötigt und 40-50 Zeilen Code erstellt. ^^ Aus diesem Quellcode kann ich ne Menge lernen :-)
Dankeschön, alles bestens.
AW: Liste erstellen / sortieren / doppelte löschen
01.08.2010 17:55:16
MarkusH
Hallo,
ich habe etwas Wichtiges vergessen und hoffe es ist okay wenn ich die Frage als noch offen markiere :-)
Spalte B müsste nun alphabetisch (aufsteigend) sortiert werden. Und damit nicht genug, Spalte A ist eine fortlaufende Nummer und die Nummerierung sollte nach der Codeausführung immer fortlaufend sein (also 1,2,3 usw egal welche Nummer vom Code bei der Eingabe der Daten vergeben wurde).
Ich hab versucht mit dem Makroeditor eine Sortierung aufzuzeichnen und dann einzufügen aber es hat nicht geklappt. Könnte jemand helfen bitte?
Vielen Dank!!
Anzeige
AW: Liste erstellen / sortieren / doppelte löschen
01.08.2010 18:04:04
Josef

Hallo Markus,
probier's mal so.
Private Sub CommandButton1_Click()
  Dim lngNext As Long, strInput As String, vntRet As Variant
  
  
  Do
    strInput = InputBox("Bitte Name eingeben:", "Eingabe", "")
    If strInput = "" Then Exit Do
    vntRet = Application.Match(strInput, Columns(2), 0)
    If IsNumeric(vntRet) Then
      MsgBox "Der Eintrag " & strInput & " ist schon vorhanden!"
    Else
      lngNext = Cells(Rows.Count, 1).End(xlUp).Row + 1
      Cells(lngNext, 1) = Application.Max(Columns(1)) + 1
      Cells(lngNext, 2) = strInput
      Columns(2).Sort Key1:=Cells(2, 2), Order1:=xlAscending, Header:=xlGuess
    End If
  Loop
  
End Sub


Gruß Sepp

Anzeige
AW: Liste erstellen / sortieren / doppelte löschen
01.08.2010 18:46:01
MarkusH
Hallo Sepp,
Ich habe bei der Sortierung den Header auf xlYes gesetzt weil xlGuess bei einem Test Probleme bereitet hat - ich hatte verschwiegen dass es eine Überschrift gibt und dass "Name" der Überschrift wurde in die Tabelle mit einsortiert, nicht aber "Nummer" (Überschrift Spalte A).
Funktioniert super, vielen Dank! :-)

300 Forumthreads zu ähnlichen Themen

Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Anzeige
VBA Duplikate löschen mit Bedingung
Carmen

Hallo ihr lieben Spezi´s,
eigentlich würde ich es gerne allein können doch nach reiflicher überlegung komme ich nicht zu gewünschtem ergebnis.
Hab eine Tabelle in der in Spalte A Tarifbezeichnungen sind die doppelt sind.
In Spalte B steht seit wann die Tarife gültig sind.
Nun i...
08.04.2009 10:40:08
Thread-ID: 1067636
9 Beiträge
Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Anzeige
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Makro doppelte Zeilen löschen
Christian

Hallo allerseits,
ich habe folgendes Makro, welches Zeilen ahand von doppelten Einträgen in einer spalte löscht.
Allerdings wird immer die zweite Zeile (von oben gesehen) gelöscht, ist es auch möglich die erste zeile zu löschen und die zweite zu behalten?
hier das makro: Sub supp_d...
22.07.2009 10:44:51
Thread-ID: 1090433
5 Beiträge
Doppelte Zeilen Löschen Kriterium in Spalte B
Christian

Hallo,
habe noch ein (hoffentlich kleines) Problem kurz vor dem wochenende, folgendes Mokro löscht doppelte Zeilen, dabei steht das kriterium in der ersten Spalte (A), also wenn in Spalte A zweimal der selbe eintrag steht, wird eine Zeile gelöscht:
Dim zz As Long, rngLi As Range
For...
24.07.2009 16:28:10
Thread-ID: 1091137
4 Beiträge
Leerzeilen löschen
Frank

Hallo zusammen,
ich habe eine Exceltabelle mit Datensätzen (Spalten A und B) in der ich Leerzeilen (die in Spalte A vorkommen) KOMPLETT löschen möchte, aber nur wenn in Spalte B nicht auch noch Datensätze stehen.
Kann mir da jm. bitte weiterhelfen?
Vielen Dank!
Gruß
Frank
06.08.2009 09:29:15
Thread-ID: 1093917
3 Beiträge
Makro gezielte Zeilen löschen / kopieren
walter

Hallo und guten Abend,
bzgl. einer Optimierungsgeschichte bräuchte ich bitte mal wieder Hilfe:
Datentabelle mit variabler Länge
a) unvollständige Sätze kopieren und in neues Blatt einkopieren, dann diese unvollständigen Sätze löschen (würde ich evtl. mit viel Schweiß selbst noch geb...
23.08.2009 00:48:36
Thread-ID: 1097980
8 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
4
8
2
16
4
4
3
2
7
4
6
5
3
5
2
7
4
12
4
9
3
3
12
14