Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste aus Spalte extrahieren

Forumthread: Liste aus Spalte extrahieren

Liste aus Spalte extrahieren
28.09.2004 07:23:53
drop
Hallo zusammen!
Ich hätte gerne ein Makro, das eine bestimmte Spalte in ein anderes Tabellenblatt kopiert und danach alle doppelten Einträge löscht.
(damit ich die neue Liste als Filterkriterium benutzen kann)
Besten Dank für Eure Hilfe.
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste aus Spalte extrahieren
28.09.2004 07:32:24
Oberschlumpf
Hi drop
Sollen wir wieder die Glaskugel hervorkramen müssen, oder verrätst Du uns weitere Infos? :-)
Um welche Spalte handelt es sich?
Betrifft es die ganze Spalte, oder nur einen best. Bereich (Bsp A1 - A100)
Ich frag nur deshalb genau nach, da Du ja nicht so viele VBA-Kenntnisse hast.
Ich möchte nur vermeiden, dass wir dann im Nachhinein noch den VBA-Code anpasesn müssen, da Du vllt dann nicht weißt, was Du tun musst.
Bis denne :-)
Thorsten
Anzeige
AW: Liste aus Spalte extrahieren
28.09.2004 07:52:05
drop
ok sry, hier die Details:
Es geht um Spalte C (C11:C1205) wobei sich die Endzahl natürlich verändern kann, es handelt sich aber immer um die letzte verwendete Zeile.
In der Spalte C habe ich Regionen eingegeben. Und brauche nun eine Liste mit allen Regionen um ein Dropdownmenu zu machen, mit welchem ich die Regionen filtern kann (genau wie der Autofilter).
Kann ich den Code (um die mehrfachen Einträge zu filtern) auch direkt in die ComboBox einbauen? Dann könnte ich den Zwischenschritt mit der temporären Liste sparen.
Besten Dank!
Anzeige
AW: Liste aus Spalte extrahieren
28.09.2004 08:38:54
Oberschlumpf
Hi Drop (oder wie Du auch heißt ;-) )
Ich hab dies hier "gebastelt":


Private Sub Workbook_Open()
    Dim wks As Worksheet
    Dim liZeile As Integer
    Dim liInhalt As Integer, liDoppelt As Integer, lboDoppelt As Boolean
    Dim liEintrag As Integer
    
    'für "Tabelle1" musst Du den Tabellenblattnamen angeben, um den es hier geht
    Set wks = Worksheets("Tabelle1")
    
    'ab hier wird die Anzahl der eingetragenen Regionen ermittelt
    liZeile = 11
    
        Do Until wks.Range("C" & liZeile).Value = ""
            liZeile = liZeile + 1
        Loop
    
    ReDim lstrInhalt(liZeile - 11) As String
    
    'ab hier werden doppelte Einträge von Regionen ausgefiltert
    liZeile = 11
    
        Do Until wks.Range("C" & liZeile).Value = ""
                
                For liDoppelt = 0 To liInhalt
                    If lstrInhalt(liDoppelt) = wks.Range("C" & liZeile).Value Then
                        lboDoppelt = True
                        Exit For
                    End If
                Next
                
                    If lboDoppelt = False Then
                            lstrInhalt(liInhalt) = wks.Range("C" & liZeile).Value
                            liInhalt = liInhalt + 1
                        Else
                            lboDoppelt = False
                    End If
            
            liZeile = liZeile + 1
            
        Loop
    
    'ab hier werden die jetzt nur noch 1x vorkommenden Regionen in die Combobox eingetragen
    Sheets("Tabelle1").ComboBox1.Clear
        
        For liEintrag = 0 To liInhalt - 1
            Sheets("Tabelle1").ComboBox1.AddItem lstrInhalt(liEintrag)
        Next
    
End Sub


Und hier ist die Datei zum Testen:
https://www.herber.de/bbs/user/11386.xls
Bei weiteren Fragen kannst Du Dich ja hier melden.
Konnte ich denn helfen?
Ciao
Thorsten
Anzeige
AW: Liste aus Spalte extrahieren
28.09.2004 09:20:10
Reto
Hallo Thorsten.
Besten Dank. genauso habe ich mir das vorgestellt wie es in Deiner Beispielmappe funktioniert!
Die Spalte C ist nicht durchgehend mit Regionen gefüllt. Es hat auch leere Zellen. Und dort unterbricht es den Prozess. Kann man das einbauen oder wäre es sinnvoller, wenn ich bei den leeren Zellen einfach "diverse" reinschreiben würde?
Die Liste wird jedes mal neu gemacht, wenn ich das Dokument öffne. Kann dieser Code auch ein Makro sein, denn ich mit einem einfach so aufrufen kann oder funktioniert der nur als workbook code?
Nochmals Besten Dank!
Reto Drop E.
Anzeige
AW: Liste aus Spalte extrahieren
28.09.2004 09:59:40
Oberschlumpf
Hi Drop
Versuch es mal mit dieser Datei:
https://www.herber.de/bbs/user/11391.xls
Ich hab den Code so umgeändert, dass nun JEDE gefüllte Zelle in Spalte C berücksichtigt wird.
Zusätzlich hab ich einen Klick-Button eingebaut, der bei Bedarf die Comboliste sofort aktualisiert.
Bedeutet, dass Du in Spalte C eine weitere Region einträgst, und nach dem Klick auf den Button, steht auch diese neue Region sofort in der Combobox zur Verfügung.
Wenn Du den Button nicht haben willst, kannst Du das Makro bei Bedarf über
Extras/Makros
aufrufen.
Weitere Fragen UND auch Erfolgsmeldungen ;-) HIER posten :-)
Bye
Thorsten
Anzeige
AW: Liste aus Spalte extrahieren
28.09.2004 10:11:13
Reto
Hallo Thorsten
Besten Dank für den neuen Code! Ich mache es aber trotzdem so, dass ich die leeren Zeilen mit "diverse" ausfülle. So kann ich diese Zeilen bei Bedarf auch filtern. Das mit dem Aktualisiern Knopf hilft mir auch sehr weiter.
Ich habe denn Code jetzt für mehrere Spalten benutzt und so ein Filtersystem aufgebaut. Bin noch am basteln, aber sehr zuversichtlich, dass ich das hinbekomme. Ich werde das Ergebnis dann posten. (ps. aber nicht lachen über den Newbie-Code by Reto, habe eigentlich keine Ahnung von VBA oder sonstigen Programmiersprachen; wie sicher schon bemerkt :) )
Gruss Reto
Anzeige
AW: Liste aus Spalte extrahieren
WernerB.
Hallo ?,
in diesem Forum bitte mit Real(vor)namen auftreten; siehe dazu bitte auch die "Forums-FAQ"!. Danke!
Zu Deinem Problem: Das nachstehende Code-Beispiel kopiert vom Blatt "Tabelle1" die Werte von "C11:Cxx" in das Blatt "Tabelle2" (Spalte "A") und eliminiert die doppelt vorkommenden Werte nach vorheriger Sortierung.

Sub KopiereSpalte()
Dim laR As Long, i As Long
With Worksheets("Tabelle1")
laR = .Cells(Rows.Count, 3).End(xlUp).Row
Worksheets("Tabelle2").Range("A11:A" & laR).Value = _
.Range("C11:C" & laR).Value
End With
With Worksheets("Tabelle2")
.Range("A1:A" & laR).Sort Key1:=.Range("A1"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
laR = .Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 2 Step -1
If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then .Rows(i).Delete Shift:=xlUp
Next i
End With
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Liste aus Spalte extrahieren
Reto
Hallo Werner
Folgender Fehler kommt, wenn ich Dein Code versuche auszuführen.
- Index außerhalb des gültigen Bereichs (Fehler 9) -
Habe leider zu wenig VBA-Wissen um das Problem zu finden.
Gruss Reto Drop E.
AW: Liste aus Spalte extrahieren
WernerB.
Hallo Reto,
den von Dir gemeldeten Fehler kann ich bei mir nicht nachvollziehen; bei mir läuft das Makro ohne jegliche Beanstandung wie beschrieben durch.
Ohne Deine Datei kann ich dazu leider keine weitere Aussage machen.
Gruß
Werner
Anzeige
;

Forumthreads zu verwandten Themen

Zellen mit gleicherm Inhalt verbinden
marcl

Hallo Froumsgemeinde,
ich bin auf der Suche nach einer aus meiner Sicht komplizierten Schleife.
Ich möchte ab einer gewissen Zellen alle darunter befindlichen, welche den gleichen Inhalt oder keine Inhalt haben und links oder rechts daneben belegt sind, zusammen fassen. Das so lange, bi...
17.11.2008 13:37:00
Thread-ID: 1025198
5 Beiträge
Spalte auslesen und in eine neue schreiben
Andrej

Hallo,
ich sitz seit gestern an nem Excel Dokument und habe es schon mit Formeln versucht, aber das alles nicht das Wahre.
Gibt es eine Lösung bei der ich aus der Spalte C nach bestimmten Sachen suchen lassen, die ich immer vorgeb, wie z.b. XY oder AB und er mir auch der Vorgabe nach in...
19.11.2008 12:46:00
Thread-ID: 1025987
13 Beiträge
Anzeige
nach maximieren eigene Menüleiste weg
Frank

https://www.herber.de/bbs/user/57988.xls
Hallo Excelfreunde wünsche ein Frohes 2009.
Hab wieder mal ein Problem und hoffe es kann mir jemand helfen.
Habe eine eigene Menüleiste erstellt.
Wenn ich jetzt die Mappe über "Desktop anzeigen" in der Taskleiste minimiere und ansch. wie...
01.01.2009 22:51:00
Thread-ID: 1036311
2 Beiträge
Diagrammpunkte mit Striche verbinden
Franz

Hallo zusammen,
ich möchte aus einem Datenblatt, welches z.Zt. noch per Hand erstellt wird, zukünftig ein Diagramm gem. beigefügtem Muster erstellen. Muster = https://www.herber.de/bbs/user/58104.doc
Die Besonderheit liegt darin, dass die einzelnen Punkte über einen Strich verbunden we...
06.01.2009 11:33:05
Thread-ID: 1037178
3 Beiträge
Anzeige
@Timo: das ist neu Beitrag, da alter weg ist !
Richi

Hi Finde unseren ewig langen Beitrag nicht mehr ! habbe schon alles durchgewühlt, deshalb neu !
Also:
jatzt kann ich alle pbc Dateien einlesen.
aber beim Schreiben probleme !
https://www.herber.de/bbs/user/58643.jpg

Variable nicht definiert....
kans mal schuan !...
21.01.2009 09:55:23
Thread-ID: 1042071
3 Beiträge
ListenFelder füllen aus Spalten
Andre´

Hallo alle zusammen,
ich möchte vom aktiven Tabellenblatt die Spalten A, B, C, D in eine UserForm einlesen, beginnend ab Zeile 2 bis zu der Zeile, wo der letzte Eintrag in der Spalte A vorhanden ist.
Jede der genannten Spalten soll in einen eigenen Listenfeld erscheinen.
Ziel soll...
02.02.2009 16:41:17
Thread-ID: 1046318
4 Beiträge
Buttonbewegung mit derLaufleiste im aktiven Sheet
eugen

Hallo Excelfreunde,
brauche mal wieder eure Excelhilfe ...
in meiner Exceltabelle habe ich mehrere Sheets mit Button "Vorwärts" und Button "Zurück" erstellt.
Ich möchte, dass meine Buttons sich in dem aktiven Sheet mit der Laufleiste (nach Oben und Nach Unten sowie nach Rechts un...
18.02.2009 13:37:00
Thread-ID: 1051781
3 Beiträge
Ergebnis auslesen und in andere Spalte übertragen
Alex

Hallo,
Kann mir jemand bei folgendem Problem helfen:
Ich habe drei Spalten A, B, C.
In Spalte A steht in wenigen Zellen etwas drin und sehr viele Zellen sind leer. In Spalte B wird die Anzahl leerer Zellen der Spalte A gezählt und jedes Mal wenn in A etwas drin steht, beginnt er mit...
17.03.2009 08:16:28
Thread-ID: 1060992
5 Beiträge
Spalte A und E aus allen Blätern zusammenkopieren
Mindjogger

Servus,
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils die Spalte A und E in eine neue Excel Datei auf ein Sheet kopieren.
Oder noch genauer:
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils ein Schlüsselwort (unique) als...
26.03.2009 17:01:20
Thread-ID: 1064329
4 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Differenz zwischen zwei Zellen errechnen
Sandra

Hallo zusammen,
ich arbeite mit einem Makro Daten in Spalte A (ab Zeile bis zur letzten belegten Zelle) ab. Über
ActiveCell.Offset(0, 14).Value = Format(Date & " " & Time) trage ich DAtum und Zeit ein.
Frage wäre jetzt, ob man zwischen der Zeile 2 und der letzten belegten Ze...
29.04.2009 20:57:10
Thread-ID: 1072000
6 Beiträge
Anzeige
Spalte nach Wert >10 durchsuchen und Wert ausgeben
Ron

Hallo Leute,
ich benötige wieder mal Hilfe bei der Umsetzung einer Idee. Ich habe in einem Tabellenblatt in einer Spalte (A) 20 absteigende Werte in Prozent. In Spalte B habe ich in ganzen Zahlen die Treffer aus meiner Datenbank zugeordnet. Jetzt möchte ich Spalte B von oben nach dem ersten...
05.05.2009 14:44:46
Thread-ID: 1073093
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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