Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Positionen auflisten

Forumthread: Positionen auflisten

Positionen auflisten
Claudia
Hallo zusammen,
ich kämpfe regelmässig mit Listen, in denen Positionen häufig wiederkehrend vorkommen.
Kann mir jemand helfen, eine Lösung per VBA zu basteln, die folgendes kann.
Auswahl der zu prüfenden Spalte per Inputbox (vorrangig Auswahl der Spalte per Buchstabe)
Auswahl der Zielspalte (in die Positionen aus der Ausgangsspalte einmalig und nicht doppelt geschrieben wer densollen) per Inputbox. In die Spalte rechts daneben soll dann mit Zählenwenn die Anzahl ermittelt werden.
Beispiel Ausgangsspalte (Einträge beginnen immer ab Zeile 2)
haus
maus
bau
haus
Zielspalte und spalte rechts
haus 2
maus 1
bau 1
Lieber eine Beispieldatei?
Liebe Grüpße
Claudia
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Scripting.Dictionary - keine Doppler
05.09.2011 11:08:50
Matthias
Hallo Claudia
Scripting.Dictionary aus dem Archiv und an Deine Bedürfnisse angepasst.
Ein Beispiel:
https://www.herber.de/bbs/user/76461.xls
Gruß Matthias
nochmal der Link
05.09.2011 11:48:44
Matthias
Hallo
Hab gaerade bemerkt das der Link nicht funktionierte
hier nochmal:
https://www.herber.de/bbs/user/76466.xls
Gruß Matthias
Anzeige
AW: nochmal der Link
05.09.2011 20:17:11
Claudia
Hallo Matthias,
vielen Dank für Deine Hilfe - sogar mit Combobox. :-)
Mir reicht aber schon die einfache Lösung. Könntest Du mir den Code vielleicht so anpassen, dass ich ohne die Combox auskommen.
Gut wäre es, wenn ich die zu prüfende Spalte und auch die Auswertung (Nennung einer Spalte) per Inputbox eingeben könnte.
Danke schön!
Liebe Grüße
Claudia
PS: Sorry für die späte Rückmeldung, aber der Tag war sehr sehr hektisch. :-(
Anzeige
Spaltenbuchstabe <-> SpaltenNummer
06.09.2011 07:34:02
Matthias
Hallo Claudia
Hier ein Beispiel für die Spaltenauswahl.
Dabei ist es egal, ob Du den Spaltenbuchstaben oder die SpaltenNr. angibst.
https://www.herber.de/bbs/user/76474.xls
Vielleicht kannst Du ja "Liste in Spalte ohne Doppelte" und "dieses Beispiel" zusammen für Dich nutzen.
Gruß Matthias
Anzeige
Spaltenwahl, die Zweite - etwas einfacher ;o)
06.09.2011 08:30:24
Matthias
Hallo Claudia

Sub mitAuswahl()
Dim werT
On Error GoTo Fehler
werT = InputBox("Bitte Spaltenbuchstabe(n) wählen")
MsgBox "Spalte(" & werT & ") = SpaltenNr. " & Range(werT & 1).Column
Exit Sub
Fehler:
MsgBox werT & " ist keine gültiger Spaltenbuchstabe", vbInformation
End Sub
Gruß Matthias
Anzeige
Vielen Dank für Deine Hilfe!
06.09.2011 19:26:52
Claudia
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige