Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte auslesen, doppelte Einträge entfernen...

Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 21:25:00
Gerhard
Hallo Leute...
Ich gebs auf... Ich hab null Durchblick mehr. Habe von Thomas Haß und Peter Feustel schon ne beachtliche Hilfe bekommen, da sie mir soetwas wie ich suche für meine Mappe schon geschrieben haben. Allerdings war da noch n bischen mehr dabei (Combobox in Abhängnigkeit)
Ich dachte das schauste dir an, baust es um und wendest es für deine weiteren Bedürfnisse an... Pustekuchen ich blick da ned wirklich durch, also bin ich wieder hier.
Was ich nun will ist keine Komplettlösung für meine Mappe sondern eher ne Allgemeinlösung, die ich "lesen" kann. (Und n Buch werde ich mir kaufen, sobald ich ma ein gutes gefunden habe, das auch so n geistiger Tiefflieger wie ich verstehe :D )
Hierzu die erforderlichen Daten:
In Tabelle 1 Spalte A stehen die eingebenen Daten und wird fortlaufend durch eine Userform erweitert. Diese sollen nun ausgelesen werden, doppelte Einträge entfernt werden und Alphabetisch sortiert in
Tabelle 2 Spalte A wieder aufgelistet werden.
Dann kommt noch die UserForm mit ComboBox1 die auf diese Daten als Auswahl zugreift.
Könnte einer von euch mir eine ganz allgemeine Lösung hierfür stricken? Klasse wären auch viele viel grünen Kommentare in dem VBA Script... :D
Und versprochen dann geb ich für heute :P Ruhe...
Schon mal Danke und nen Schönen Abend noch!!!
Gerhard

20
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 21:42:00
{Boris}
Hi Gerhard,
das kannst Du alles mit dem Makrorecorder erledigen:
Ausgehend von Tabelle2 - Spezialfilter ohne Duplikate und anschließend sortieren
Ich hab das gerade mal aufgezeichnet - sieht dann so aus:

Sub Makro2()
' Makro2 Makro
' Makro am 03.11.2007 von {Boris} aufgezeichnet
Sheets("Tabelle1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("A1"), Unique:=True
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub


Und ohne die Selektiererei:


Sub Makro_bereinigt()
With Worksheets("Tabelle2")
Worksheets("Tabelle1").Columns("A:A").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=.Range("A1"), Unique:=True
.Columns("A:A").Sort Key1:=.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub


Grüße Boris

Anzeige
AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 21:45:00
Thomas
Hallo Gerhard,
nich den Kopf hängen lassen. Ist die Datei vom Peter heut die aktuelle an der weiter gearbeitet werden soll? Wenn nicht, schick mal das Aktuellste hierher. Dann schau ich mal was zu machen ist.
- DAS SOLL NIEMAND ANDEREN ABHALTEN ES AUCH ZU TUN! -
Also die komplette Tabelle 1 soll nach Tabelle 2 kopiert werden, nur dort nach Alphabeth sortiert sein?
Am besten den Punkt versuchen genauer zu erklären.
Gruß Thomas

AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 21:54:42
Gerhard
N Abend Thomas.
Nein, nicht die komplette Tabelle sondern nur die Spalte A aus Sheet 1 soll ausgelesen, sortiert und nach Sheet 2; Spalte A kopiert werden.
Und dann soll auf diese Spalte Sheet 2 Spalte A eine ComboBox zugreifen.
Bei der ComboBox auch wieder "dynamischer" Bereich keinen festen, da sich die Spalte ja verlängert.
Mir gehts hier bei diesem Beispiel eigentlich nur darum das ich den "Vorgang" begreife... Zusammenbauen möcht ich es selber, ich kann ja euch nicht alles machen lassen *imkreisgrins* Warte nur bis die "Suchfunktion" kommt... Du wirst deine super Hilfsbereitschaft noch bereuen... :D
Sorry wenn ich mich ned klar genug ausgedrückt hab... aber mir raucht der Kopf...
Gruß Gerhard der jetzt erst ma eine rauchen muss...

Anzeige
AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 22:00:12
Tino
Hallo,
hier mal eine Lösungvorschlag.

Sub Test_Lösche_Sortieren()
Dim a, b, anz As Long
'Lösche Ihnhalt Tabelle2 für die neuen Einträge
Sheets("Tabelle2").Range("A:A").ClearContents
'Sortiere Spalte A
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Zähle alle Einträge Für Schleife
For a = 1 To Application.WorksheetFunction.CountA(Range("A:A"))
'Zähle Einträge für Prüfung auf doppelte
anz = Application.WorksheetFunction.CountIf(Range("A:A"), Cells(a, 1))
'Eintrag in Tabelle2 schreiben
Sheets("Tabelle2").Range("A65000").End(xlUp).Offset(1, 0) = Cells(a, 1)
If anz > 1 Then
For b = 1 To anz - 1
Cells(a + b, 1).Clear 'Lösche doppelteen Eintrag
Next b
a = a + anz - 1
End If
Next a
'Sortiere Tabelle2
Sheets("Tabelle2").Columns("A:A").Sort Key1:=Sheets("Tabelle2").Range("A1"), Order1:= _
xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Gruss
Tino

Anzeige
AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 22:46:00
Gerhard
N Abend Tino!!!
Also ich hoff du hast n büschen Zeit und kannst mir ein wenig erklären...
'Sortiere Spalte A
Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Das habe ich soweit verstanden, hier wird in Tabelle 1 die Spalte A Sortiert...
Meine Frage hierzu: Wenn eine Tabelle jetzt nicht wie in meinem Fall aus einer Spalte besteht, führt das Sortieren nicht zu Problemen, weil ja die Sortierten Daten in Spalte A nicht mehr zu den Daten in B, C, D etc. passen?
Ist dieses Sortieren nötig? Wenn ja warum?
'Zähle alle Einträge Für Schleife
For a = 1 To Application.WorksheetFunction.CountA(Range("A:A"))
Hier habe ich eine etwas vom Thema abweichende Frage:
Wenn diese Einträge nicht auf Tabellen Blatt 1 stehen, sondern auf einem Namens XYZ, wie muss dann diese Zeile heissen?
Sorry wenn ich dezent auf n Geist gehe... aber ich will das jetzt ein für alle mal kapieren :)
Gru? Gerhard

Anzeige
AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 22:51:25
Horst
Hi,
der Spezialfilter kommt auch mit nicht sortierten Listen klar, Sortierung einfach weglassen.
For a = 1 To Application.WorksheetFunction.CountA(Sheets("DeineTabelle").Range("A:A"))
mfg Horst

AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 23:04:48
Tino
Hallo,
dass sortieren kann in meinem Beispiel auch umgangen werden, in dem ich Spalte A erst in die zweite Tabelle kobiere.(siehe Code unten)
zu 2. Wenn diese Einträge nicht auf Tabellen Blatt 1 stehen, sondern auf einem Namens XYZ
For a = 1 To Application.WorksheetFunction.CountA(sheets("Mein Tabellenname").Range("A:A"))

Sub Neu_Lösche_Sortiere()
Dim a, b, anz As Long
Sheets("Tabelle2").Range("A:A").ClearContents
Sheets("Tabelle1").Columns("A:A").Copy
Sheets("Tabelle2").Range("A1").PasteSpecial
'Sortiere Tabelle2
Sheets("Tabelle2").Columns("A:A").Sort Key1:=Sheets("Tabelle2").Range("A1"), Order1:= _
xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'Zähle alle Einträge Für Schleife
For a = 1 To Application.WorksheetFunction.CountA(Sheets("Tabelle2").Range("A:A"))
'Zähle Einträge für Prüfung auf doppelte
anz = Application.WorksheetFunction.CountIf(Sheets("Tabelle2").Range("A:A"), Cells(a, 1))
If anz > 1 Then
For b = 1 To anz - 1
Cells(a + b, 1).Clear 'Lösche doppelteen Eintrag
Next b
a = a + anz - 1
End If
Next a
'Sortiere Tabelle2
Sheets("Tabelle2").Columns("A:A").Sort Key1:=Sheets("Tabelle2").Range("A1"), Order1:= _
xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub


Gruss
Tino

Anzeige
AW: Spalte auslesen, doppelte Einträge entfernen...
03.11.2007 23:00:12
Thomas
Hallo Gerhard,
hab dir mal das Beispiel zusammen gebastelt. Hoffe so erkennst was hier passiert.
https://www.herber.de/bbs/user/47376.xls
Gute Nacht & Gruß Thomas

Danke @all ... aber
03.11.2007 23:16:00
Gerhard
Danke Thomas...
Aber... neee ich glaube ich geh auch besser ins Bett :D
Was ich verzweifelt Suche ist die Angabe der SPALTE aus der ausgelesen werden soll...
Zeilen sind ja genug drinne...
Ich glaub ich schau mir das morgen nochmals in aller aller Ruhe an...
Dieses VBA Zeuchs wird und bleibt ein Buch mit sieben Siegeln sein... :D
Trotzdem euch allen Danke für eure Mühe...

Anzeige
Danke @all und nix mehr aber !!! oT
03.11.2007 23:42:55
Gerhard
DANKE !!!!
Jetzt hab ich es kapiert!!!
Funzt einwandfrei...

AW: Danke @all ... aber
03.11.2007 23:45:18
Thomas
Bin dann doch nochmal hier...
also die Zeilen und Spalten werden als Zahlen angegeben. Bei den Zeilen is das ja klar, Zeile 1 = 1 usw. Bei den Spalten ist das ähnlich:
A=1
B=2...usw.
Wenn du suchst wo das drinsteht, z.B. hier:
Cells(1, 2) = Zelle mit der Zeile 1 und der Spalte 2(B), also B1
Erkennbar hier:
WkSh_Q.Cells(lZeile_Q, 1) = Sheets(1).Cells(1, 1) = Sheets(1).[A1] (wenn lZeile_Q = 1)
Die Zeilen und Spaltennummern werden oft in Variablen gepackt, vorallem wenn die Abfragen dynamisch sein solln.
War kein wissenschaftlicher Vortrag, aber sollte verständlich sein.
Tschüß Thomas

Anzeige
Nochmals zur ComboBox
04.11.2007 09:21:35
Gerhard
Sooo das hab ich jetzt also kapiert und kann es auch einigermaßen "lesen" was hier von statten geht.
Habe diesbezüglich aber noch eine Frage (Mappe habe ich mithochgeladen)
https://www.herber.de/bbs/user/47383.xls
Wenn ich nun über die Userform eine Bestellung eintrage auf CommandButton1 klicke (Bestellung eintragen) werden die Angaben in Sheet BPF eingetragen und alle Text und ComboBoxen geleert um weitere Bestellungen einzutragen.
Allerdings wird die Auswahl der ComboBoxen, wenn vorhergehend ein neuer Lieferant, Hersteller oder Artikelbezeichung mit eingegeben wird, nicht aktualisiert.
Ich müsste also wieder alles speichern, schliessen, neu öffen um den neuen Lieferant, Hersteller oder Artikelbezeichung in meiner Auswahl der ComboBox mit aufgeführt zu haben.
Gibt es hierfür ne Lösung, das das Aktualisieren sofort nach Klick auf "Bestellung eintragen" geschieht und die Auswahl aktualisiert für die nächste Eintragung erscheint?
LG Gerhard

Anzeige
AW: Nochmals zur ComboBox
04.11.2007 09:33:00
Thomas
Guten Morgen Gerhard,
trage diese Zeilen noch mit ans Ende vom Makro CommandButton1_Click:
Dim WkSh_Q As Worksheet
Dim lZeile As Long
Call Lieferanten
Set WkSh_Q = Worksheets("Hilfstabelle")
For lZeile = 3 To WkSh_Q.Cells(Rows.Count, 3).End(xlUp).Row
Me.ComboBox1.AddItem WkSh_Q.Cells(lZeile, 3).Value
Next lZeile
If Me.ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
Dadurch wird der neue Lieferant mit aufgenommen.
Gruß Thomas

AW: Nochmals zur ComboBox
04.11.2007 11:50:00
Gerhard
Super danke Thomas
Allerdings werden in der ComboBox die "alten" Einträge nicht gelöscht, sondern es werden nochmals die schon bestehenden Lieferanten + den neuen hinten angehängt :(
In der Hilfstabelle passt aber alles... Ich brauche also "irgendetwas" *grins* die mir die ComboBox auch nochmals "leert"
Des weiteren: Funktioniert das dann genauso mit der Artikelbezeichung (nur abgeänderte Spaltenaufrufe)?
Thx nochmal

Anzeige
AW: ComboBox1.Clear
04.11.2007 12:20:00
Thomas
Hallo Gerhard,
füge von Call Lieferanten noch ComboBox1.Clear hinzu. Dann werden alle Einträge erstmal gelöscht.
Das müßte dann auch mit den Artikelbezeichnungen klappen. Du mußt dann eben die Spalten im gesamten Makro anpassen.
Gruß Thomas

AW: ComboBox1.Clear
04.11.2007 12:39:51
Gerhard
Servus Thomas
Zitat:
Hallo Gerhard,
füge von Call Lieferanten noch ComboBox1.Clear hinzu.
Zitat Ende
öööhm... wie meinst du das: füge VON Call Lieferanten noch... ?
Ich glaube ich habe das ComboBox1.Clear jetzt schon an zig verschieden Stellen "eingefügt" irgendwie funzt des ned...
Bekomme ich bitte bitte ne genauere "Lagebeschreibeung... Der Newbie is total verwirrt :D
Gruß Gerhard

AW: ComboBox1.Clear
04.11.2007 12:47:00
Thomas
Hallo Gerhard,
Schreibfehler...VON soll VOR heißen. Hier mal nen "Lageplan" ;o)

Private Sub CommandButton1_Click()
Dim WkSh_Q   As Worksheet
Dim lZeile   As Long
ComboBox1.Clear
Call Lieferanten
Set WkSh_Q = Worksheets("Hilfstabelle")
For lZeile = 3 To WkSh_Q.Cells(Rows.Count, 3).End(xlUp).Row
Me.ComboBox1.AddItem WkSh_Q.Cells(lZeile, 3).Value
Next lZeile
If Me.ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
End Sub


Gruß Thomas

ComboBox1.Clear Hat sich erledigt!!! O.T.
04.11.2007 12:46:00
Gerhard
Dankeeeeeeeee Thomas ich habs selber rausgefunden!!!
Heurekaaa so langsam wird das doch noch was...
Dim WkSh_Q As Worksheet
Dim lZeile As Long
Call Lieferanten
ComboBox.Clear ' da gehört es rein!!!
Set WkSh_Q = Worksheets("Hilfstabelle")
For lZeile = 3 To WkSh_Q.Cells(Rows.Count, 3).End(xlUp).Row
Me.ComboBox1.AddItem WkSh_Q.Cells(lZeile, 3).Value
Next lZeile
If Me.ComboBox1.ListCount > 0 Then ComboBox1.ListIndex = 0
Nochmal Thx...

AW: Nochmals zur ComboBox
04.11.2007 13:17:48
Gerhard
Das war ja fast klar... *grmbl*
Jetzt bekomme ich folgenden Fehler nach dem ich das gleiche für die Artikelbezeichung eingefügt habe:
Laufzeitfehler '381'
Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftfeldes ungültig.
Hääää? Was hab ich jetzt wieder für nen Mist gemacht? Was hab ich falsch gemacht / falsch gedacht?
Hier nochmals die Mappe mit meinem "Pfusch"
https://www.herber.de/bbs/user/47390.xls
Gruß Gerhard

AW: Nochmals zur ComboBox
04.11.2007 13:43:00
Thomas
Hallo Gerhard,
Du hast die Variable Artikelbezeichnung wie das Makro benannt. Das geht nicht. Außerdem befülle die Combobox besser so:
Call Artikelbezeichnung ' Makro ausführen um Hilfstabelle zu füllen!
For lZeile = 3 To Worksheets("Hilfstabelle").Cells(Rows.Count, 5).End(xlUp).Row
Me.ComboBox7.AddItem Worksheets("Hilfstabelle").Cells(lZeile, 5).Value
Next lZeile
If Me.ComboBox7.ListCount > 0 Then ComboBox7.ListIndex = 0
Lasse also Dim Artikelbezeichnung... und alles was dann kommt weg und trage das von oben ein.
Gruß Thomas

58 Forumthreads zu ähnlichen Themen

Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Anzeige
eine Tabelle aus Spalten
Sina

Hallo zusammen,
ich habe eine Datei erstellt mit aktuellen Handys und einigen Merkmalen, wie z.B. Standbyzeit, Betriebszeit, Kamera Megapixel usw.
Die Merkmale der Handys stehen in der Spalte von oben nach unten A1-A41 weil es so übersichtlicher ist. Übersichtlicher und kleiner, als di...
11.03.2009 10:02:42
Thread-ID: 1058977
9 Beiträge
Listbox Einträge aus Tabelle entfernen
Frank

Hallo Zusammen!
Mittels folgendem Code wird eine ListBox gefüllt!
Dim i As Integer
With frmDaten
.ListBox1.Clear
Sheets("CD_Archiv").Activate
i = 0
For lng = 5101 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 158).Value = CDbl(.TextBox2) Then
.ListBox1.Ad...
14.12.2012 13:11:10
Thread-ID: 1290884
6 Beiträge
Anzeige
Zeichen über der Raute aus Tabelle entfernen
ropa

Hallo,
ich habe eine Tabelle in der mehrere Spalten mit Zahlen an der ersten STelle
das Zeichen auf der Rautentaste hat-
Jetzt kann ich mit den Werten nicht rechnen.
Wie kann ich dieses Zeichen entfernen.
Grüße
Roland
13.02.2013 17:28:34
Thread-ID: 1299197
15 Beiträge
Beliebige Spalten aus Tabelle1 in Tabelle2
Tobiii

Hallo Zusammen,
=Tabelle1!A1 diese Formel füge ich in Tabelle2 A1 ein. Jetzt müsste ich diese per Hand nach unten ziehen.
Meine Frage:
Ist es möglich diese automatisch zu machen - mit Überprüfung wieviele Zeilen sind in Tabelle1 gefüllt? Beispiele sind in Tabelle1 die Zeilen A1-A100...
13.06.2013 15:12:16
Thread-ID: 1317561
3 Beiträge
bestimmte Datensätze aus Tabelle entfernen
Selina

Guten Tag
In einer Excel-Tabelle hab ich untereinander mehrere Datensätze
In der Spalte E steht jeweils ein mehrzeiliger Text
Ich suche nun nach einer Möglichkeit, alle auf der Tabelle enthaltenen Datensätze in der Spalte E zu durchsuchen.
Und zwar sollen allen Datensätze gelösc...
27.02.2014 11:02:06
Thread-ID: 1351432
7 Beiträge
jede 11. Spalte aus Tabellenbl. in neues Tabellenb
Bärbel

Hallo und guten Tag,
ich kriegs leider nicht alleine hin:
Ich will aus einem Tabellenblatt (beginnend bei Spalte H, Zeile 3) jeden 11.folgenden Wert in eine neue Tabelle (Spalte B, Zeile 3) übernehmen.
Verzweifelt hab ich versucht die Index-Formel hinzukriegen, - ohne Erfolg.
K...
09.05.2014 17:43:10
Thread-ID: 1360793
12 Beiträge
Letzte Zelle in Spalte aus anderer Tabelle
Dani

Hallo zusammen
Ich bin am Aufbauen einer Übersichtstabelle die eine Liste aller Tabellenblätternamen der Arbeitsmappe enthält (per VBA, mit Hyperlink.
Neben die Bezeichnung des Tab.-Blatts, hole ich verschiedene Werte aus der entsprechenden Tabelle und dort aus klar definierten Zellen....
14.02.2015 10:12:56
Thread-ID: 1409387
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CommandButton

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
1
6
8
5
9
14
2
6
11
6
16
11
3
4
4
11
1
4
2
6
3
4
10
3
1