Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
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
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in Listenfeld einlesen und zu Wert springen | Herbers Excel-Forum

Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 10:25:13
Andreas

Hallo Excel-Gemeinde!
Ich habe eine Exceltabelle mit 15 Blättern. In den ersten beiden Spalten stehen stehen jeweils von Zeile 10 bis Zeile 32 Namen und Vornamen.
Ich möchte jetzt erreichen das im Blatt eins ein ausklappbares Listenfeld steht, in dem die Werte aller Blätter der Zellen A10 bis B32, ohne Leerzellen stehen. Wobei die Werte der Zellen A+B ein Listeneintrag ergeben sollen (z.B. A10 + B10 jeweils durch Komma getrennt).
Als zweites möchte ich dann beim klick auf einen Eintrag im Listenfeld in das entsprechende Blatt zum entsprechenden Eintrag springen.
Kann mir Jemand weiterhelfen?
Danke für die Mühe!
mfg Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 10:46:03
Beverly
Hi Andreas,
wenn du ein Kombinationsfeld aus der Steuerelemente-Toolbox verwendest: weise ihm unter der Eigenschaft ColumnCount 2 zu und unter ColumnWidth 100 Pt;0 Pt.


Private Sub ComboBox1_GotFocus()
Dim wsTabelle As Worksheet
Dim inZeile As Integer
For Each wsTabelle In Worksheets
If wsTabelle.Name <> "Tabelle1" Then
For inZeile = 10 To 32
ComboBox1.AddItem wsTabelle.Cells(inZeile, 1) & ", " & wsTabelle.Cells(inZeile,  _
2)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = wsTabelle.Name
ComboBox1.List(ComboBox1.ListCount - 1, 2) = Cells(inZeile, 1).Address
Next inZeile
End If
Next wsTabelle
End Sub
Private Sub ComboBox1_Change()
Application.Goto reference:=Worksheets(ComboBox1.List(ComboBox1.ListIndex, 1)).Range( _
ComboBox1.List(ComboBox1.ListIndex, 2))
End Sub



Anzeige
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 11:06:05
Andreas
Hallo!
Danke für die schnelle Hilfe. Ich habe ein Kombinationsfeld nach deinen Angaben angelegt und entsprechend Formatiert.
Allerdings werden mir im Kombinationsfeld sehr viele Leereinträge (also nur ein Komma) angezeigt.
Wenn ich dann auf einen Eintrag klicke, erscheint eine Fehlermeldung:
Die Methode 'Goto' für das Objekt '_Application' ist fehlgeschlagen.
mfg, Andreas
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 11:18:00
Beverly
Hi Andreas,
ändere den Code wie folgt:


Private Sub ComboBox1_GotFocus()
Dim wsTabelle As Worksheet
Dim inZeile As Integer
ComboBox1.Clear
For Each wsTabelle In Worksheets
If wsTabelle.Name <> "Tabelle1" Then
With wsTabelle
For inZeile = 10 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1). _
End(xlUp).Row, .Rows.Count)
ComboBox1.AddItem .Cells(inZeile, 1) & ", " & .Cells(inZeile, 2)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = .Name
ComboBox1.List(ComboBox1.ListCount - 1, 2) = .Cells(inZeile, 1).Address
Next inZeile
End With
End If
Next wsTabelle
End Sub




Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then Application.Goto reference:=Worksheets(ComboBox1.List( _
ComboBox1.ListIndex, 1)).Range(ComboBox1.List(ComboBox1.ListIndex, 2))
End Sub


Kommen auch zwischendurch leerzeilen vor? Damm musst du dies im Code noch prüfen und erst dann die ListBox füllen.


Anzeige
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 11:30:08
Andreas
Hallo!
Leider gleiches Ergebnis. Viele Leereinträge (Kommas) und jetzt noch Einträge unterhalb der Zeile 32. Gleiche Fehlermeldung.
mfg, Andreas
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 11:56:26
Andreas
Hallo!
Sorry, hatte den letzten Satz:
"Kommen auch zwischendurch leerzeilen vor? Damm musst du dies im Code noch prüfen und erst dann die ListBox füllen."
nicht gelesen. Die Leerzeilen kommen auch zwischendurch vor. Leider habe ich von VBA keine Ahnung.
mfg, Andreas
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 13:02:41
Beverly
Hi Andreas,


Private Sub ComboBox1_GotFocus()
Dim wsTabelle As Worksheet
Dim inZeile As Integer
ComboBox1.Clear
For Each wsTabelle In Worksheets
If wsTabelle.Name <> "Tabelle1" Then
With wsTabelle
For inZeile = 10 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1). _
End(xlUp).Row, .Rows.Count)
If .Cells(inZeile, 1) <> "" Then
ComboBox1.AddItem .Cells(inZeile, 1) & ", " & .Cells(inZeile, 2)
ComboBox1.List(ComboBox1.ListCount - 1, 1) = .Name
ComboBox1.List(ComboBox1.ListCount - 1, 2) = .Cells(inZeile, 1).Address
End If
Next inZeile
End With
End If
Next wsTabelle
End Sub



Anzeige
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 13:35:53
Andreas
Hallo Beverly!
Danke für die Hilfe! Leerzeilen sind weg (super), aber alles was nach der Zeile 32 kommt ist noch drin. Hast du noch eine Idee?
mfg, Andreas
AW: Werte in Listenfeld einlesen und zu Wert springen
19.05.2009 14:03:49
Beverly
Hi Andreas,
das ging aus deinem Beitrag leider nicht eindeutig hervor, sondern ich nahm an, dass darunter frei sei und habe bis zur letzten belegten Zelle in Spalte A ausgelesen. Schreibe die Zeile wie in dem vorhergehenden Code:


For inZeile = 10 To 32



Anzeige
AW: Werte in Listenfeld einlesen und zu Wert springen
20.05.2009 13:14:08
Andreas
Hallo!
Danke für die Hilfe. Leerzeilen sind weg.
mfg Andreas

320 Forumthreads zu ähnlichen Themen

mit Find (VBA) nach Datum suchen
Werner

Hi!
Ich habe folgendes Problem:
Ich habe eine Spalte mit Datumseinträgen (z.B.:13.04.1953, 17.12.1970, ...)
Suche ich mit
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(What:="17")
bekomme ich ein Ergebnis
ThisWorkbook.Worksheets("AUSWAHL").Columns("E:E").Find(W...
13.08.2008 23:54:00
Thread-ID: 1001685
8 Beiträge
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 Beiträge
Dateien suchen im Laufwerk zwischen 2 Datums
chris

Hallo VB experten ich komme ich weiter und bitte euch um Hilfe.
ich habe in einem Laufwerk Dateien mit folgenden Namen in der art von diesen hier.
"ScanHistory_test_4226_2008_04.Log" jetzt möchte ich in einer userForm(habe sie bereits erstelt mit zwei feldern für Datum (Datum_von - D...
14.11.2008 10:21:22
Thread-ID: 1024451
4 Beiträge

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
7
1
7
2
2
4
1
3
25
3
5
15
8
4
2
11
4
7
6
9
15
4
5
2
4