Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1144to1148
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
1144to1148
1144to1148
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Möglichkeit Range an Listbox zu übergeben?

Möglichkeit Range an Listbox zu übergeben?
Martin
Hallo Excelfreunde,
ich verwende eine UserForm als Suchmaske, die mir aus hunderten von Zeilen das Suchergebnis über eine Listbox anzeigt. Die Eigenschaft der UserForm ShowModal ist auf "False" gestellt, daher können im Hintergrund also weiterhin die Daten bearbeitet (z. B. Zeilen hinzugefügt / gelöscht) werden.
Meine Frage: Kann ich einem Listbox-Eintrag (wie einem Array z.B. "Set ArrBereich(5) = Cells(15,3)") eine Zelle zuweisen? Mein Ziel wäre es, dass ich beim Klick auf den Listbox-Eintag dann in die ensprechende Zeile springe. Im Augenblick habe ich das über eine Suchfunktion mit Find gelöst, aber da manche Datensätze doppelt vorkommen, ist das keine optimale Lösung.
Viele Grüße
Martin
Userbild

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Möglichkeit Range an Listbox zu übergeben?
21.03.2010 22:46:13
Uduuh
Hallo,
wie wird die LB gefüllt?
Evtl. kannst du den Listindex nutzen.
Gruß aus’m Pott
Udo

AW: Möglichkeit Range an Listbox zu übergeben?
21.03.2010 23:04:07
Martin
Hallo Udo,
die Listbox wird ganz einfach nach dem Prinzip "ListBox1.List(0, 0) = Cells(x, y).Text" gefüllt. Mein Wunsch geht in die Richtung "Set Listbox1.List(x, 7) = Cells(x, y)". Ich möchte mit Absicht nicht die Zellenadresse speichern, da diese aufgrund der UserForm-Eigenschaft "ShowModal = False" sich bei Änderungen im Hintergrund ändern könnte.
Viele Grüße
Martin
Beispiel
22.03.2010 02:23:10
Uwe
Hallo Martin,
hier mal ein Beispiel: 

'  Modul:  UserForm1  Typ = Userform
Option Explicit
Dim rngFound As Variant
Private Sub CommandButton1_Click()
Dim rngTemp As Range
ReDim rngFound(0) As Range
ListBox1.Clear
For Each rngTemp In Range("A1:A10")
If rngTemp.Value Like TextBox1 Then
ListBox1.AddItem rngTemp.Value
ReDim Preserve rngFound(UBound(rngFound) + 1)
Set rngFound(UBound(rngFound)) = rngTemp.EntireRow
End If
Next rngTemp
End Sub
Private Sub ListBox1_Change()
If ListBox1.ListIndex > -1 Then Application.Goto rngFound(ListBox1.ListIndex + 1)
End Sub
'  Modul:  Modul1  Typ = Allgemeines Modul
Option Explicit
Sub ZeigeForm()
UserForm1.Show 0
End Sub

https://www.herber.de/bbs/user/68702.xls
Gruß Uwe
Anzeige
Vielen Dank, das habe ich gesucht!
22.03.2010 09:17:49
Martin
Hallo Uwe,
ich hatte schon Sorge, dass ich mich Problem unverständlich formuliert hätte. Deine Lösung mit dem "externen" rngFound-Array ist sehr interessant!
Viele Grüße
Martin
AW: ich würde es eventuell so machen...
22.03.2010 09:37:59
Martin
Hallo Tino,
vielen Dank für deine Mühe. Ich muss aber zugeben, dass ich mit dem Code von Uwe besser klarkomme. Ich bin immer für jeden Vorschlag sehr dankbar und weiß, dass du hier im Forum sehr aktiv bist und zu den Profis zählst. Ich freue mich, dass ich hier bei Fragen stets so kompetent beraten werden!
Viele Grüße
Martin
Anzeige

300 Forumthreads zu ähnlichen Themen

in Ergebnis einer Formel Text mit ausgeben
Walter

Nochmals Hallo,
leider die Lösung vergessen, wie man in einer Berechnungsformel, nen fest fixierten Text ausgeben kann.
Beispielergebnis: 12 Bananen (12 ist errechnet, Bananen ist der feste Text.
War, glaube ich, ganz einfach :-(((
Danke + Gruß
Walter
23.10.2008 23:15:29
Thread-ID: 1018831
7 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Abfrage Schliessen Userform über Kreuz
Roland

Hallo fleissige VBA-Helfer
Ich habe ein Problem, bei dem ich im Moment nicht durchblicke.
Ausgangslage:
Ein Code "Test0815" in einem normalen Modul
Eine Userform "Userform1"
Frage:
Wie kann ich im Test0815 abfragen ob die Userform1 übers Kreuz oben rechts verlassen wurde...
19.06.2009 11:50:51
Thread-ID: 1082841
5 Beiträge
Anzeige
Makroauführung über Menü verhindern
Heiko

hallo alle,
ich lasse über subs bereiche meines tabellenbattes sperren/ bzw. entsperren. das funktioniert auch ganz gut, nur besteht für den anwender über extras - makro ausführen noch die möglichkeit das entsperr-sub ausführen zu lassen.
wie kann ich das verhindern?
heiko
29.06.2009 10:01:13
Thread-ID: 1085027
3 Beiträge
VBA-Makro zum Datenübertrag zwischen Excel-Sheets
mctapt

Liebe VBA-Freunde,
ich muss auf der Arbeit ein Marko programmieren, mit dem sich Inhalte eines Sheets automatische beim öffnen der Datei in ein anderes übertragen lassen.
Die Idee íst dahinter:
Mein Chef will als Kontrolle der Berater sehen, mit wem sie so innerhalb der Woche te...
29.06.2009 21:19:08
Thread-ID: 1085193
7 Beiträge
Unterscheidung Drucken über Menü und Sofortdruck
Rolli_69

Hallo Forum,
ich hoffe einer von Euch kann mir helfen.
Ich habe in VBA den Druckenbefehl abgefangen, um farblich hinterlegte Eingabefelder vor dem Druck
wieder farblos zu machen und anschliessend wieder farblich zu hinterlegen.
Das funzt auch, nur möchte ich jetzt noch dem User...
01.07.2009 17:53:42
Thread-ID: 1085798
4 Beiträge
CheckBox in liste übertragen
Werner

Hallo zusammen,
ich möchte Daten von einer UserForm in ein Tabellenblatt untereinander schreiben, das klapt auch.
Bei der CheckBox1 habe ich ein problem. Einer bestimmten Zelle kann ich es zuordnen, es soll aber mit in die liste geschrieben werden, wie muss der Code aussehen?
Dim ZE...
06.07.2009 11:46:47
Thread-ID: 1086568
3 Beiträge
Verknüpfungen über DropDown ändern
Tanja

Hallöchen zusammen,
ich bin's nochmal :)
Ich habe nun ein erneutes Problem:
Ich habe Excel-Dateien, die ich in mein Excel-Sheet verknüpft habe (über Index und Vergleich).
Nun möchte ich diesen Dateien gerne ein bestimmtes Datum zuordnen und (habe mir über AutoFilter ein DropDown...
07.07.2009 16:24:18
Thread-ID: 1086979
7 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

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
6
4
1
4
7
2
6
3
2
6
1
1
6
1
1
3
2
6
10
2
9
6
2
10
2