Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dropdown mit automatische Anpassung der Liste über

Dropdown mit automatische Anpassung der Liste über
15.08.2005 15:13:48
Stephan
Hallo,
ich schlage mich seit kurzem mit meinem Einstieg in VBA rum, da ich meiner Ansicht nach bei meinem Problem mit "normalen Mitteln" nicht weiterkomme.
Ich möchte auf Tabellenblatt1 eine Abfrage von Straßennamen mit einem Listenfeld machen. Der ListenFüllbereich soll dabei aus den jeweiligen Spalten E aus den Tabellenblättern 2-5 entnommen werden. Bei entsprechender Auswahl eines Straßennamens aus dem Listenfeld sollte dann aber auch irgendwie übermittelt werden, auf welchem Blatt der Name gefunden wurde. Könnte mir irgend jemand einen kleinen Tipp geben, wie ich so etwas programmieren könnte?
Gruß Stephan

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown mit automatische Anpassung der Liste über
15.08.2005 20:26:56
Herbert
hallo Stephan,
probier das einmal...


Option Explicit
Public Sub liste_erstellen()
Dim lz%, i%, s%, x%
x = 1
With ActiveSheet.ListBox1
   .ColumnCount = 1
  
For s = 2 To 5
  lz = Sheets(s).Cells(Rows.Count, 5).End(xlUp).Row
  
   For i = 0 To lz
     .AddItem Sheets(s).Cells(x, 5)
     x = x + 1
   Next
 x = 1
Next
End With
End Sub
Private Sub ListBox1_Click()
Dim i%, s%, x%, lz%
With ActiveSheet.ListBox1
  For s = 2 To 5
    lz = Sheets(s).Cells(Rows.Count, 5).End(xlUp).Row
    For i = 0 To .ListCount
      For x = 1 To lz
        If .Value = Sheets(s).Cells(x, 5).Value Then
           MsgBox "Gefunden in Blatt " & Sheets(s).Name
           End
        End If
      Next
    Next
  Next
End With
    
End Sub
Sub Liste_löschen()
ActiveSheet.ListBox1.Clear
End Sub

     gruß Herbert
Anzeige
AW: Dropdown mit automatische Anpassung der Liste über
15.08.2005 23:50:48
Stephan
Super, danke Herbert,
bitte entschuldige noch mal die etwas merkwürdige Fragestellung. Mehrere Tage habe ich an meinem Problem getüftelt und wie es der Zufall wollte habe ich im Moment der Fragestellung wieder ein Einfall gehabt und bin es von einer komplett anderen Seite angegangen. Dank deiner Hilfe konnte ich jetzt mein Problem auch Komplett lösen. Herzlichen Dank noch einmal.
Gruß Stephan

307 Forumthreads zu ähnlichen Themen

Automatische Anpassung der Zeilenhöhe
eliewsam

Hallo Excel-Freunde,
gibt es in Excel die Möglichkeit, dass die Zeilenhöhe automatisch an den geschriebenen Text angepasst wird. Die Anpassung sollte sofort erfolgen, sobald der Text in eine Zelle eingegeben wurde und mit Enter bestätigt wurde. Ich kenne bislang nur die manuelle Ausführung...
04.03.2009 10:10:50
Thread-ID: 1056219
3 Beiträge
Anzeige
Zellbezüge im VBA Code automatisch anpassen
Jonathan

Hallo zusammen!
Für die unter Euch, die viel mit VBA arbeiten sicherlich eine "seltsame" Frage:
Ist es irgendwie möglich, Zellbezüge im VBA Code automatisch anzupassen, wenn sich in der Tabelle selbst was ändert (ähnlich wie bei eingegebenen Formeln). Füge ich also z.B. eine Spalte vor...
16.02.2010 01:11:25
Thread-ID: 1138768
4 Beiträge
Spaltenbreite = optimale Breite + X
Falk

Hallo zusammen,
ich würde gerne die Spaltenbreiten der Spalten in meiner Tabelle auf den Wert "optimale Breite" + X setzen, wobei "X" entweder im Code fest vorgegeben wird oder beim Start des Makros abgefragt wird.
Schön wäre es, wenn nur die aktuell markierten Spalten von der Breitenän...
28.04.2010 16:33:57
Thread-ID: 1154333
3 Beiträge
Anzeige
Spaltenbreite in Excel 2003 automatisch anpassen
Maximilian

Guten Tag!
Kann man in Excel 2003 die Spaltenbreite irgendwie automatisch anpassen? Alternativ per VBA Script? Hat da jemand einen Tipp?
13.12.2012 13:09:16
Thread-ID: 1290735
3 Beiträge
Wandernde Dropbox anpassen; Text in Zahl wandeln
Marcus

Hallo,
folgenden Code hat mir Rudi Mantaire zur Verfügung erstellt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngJahr As Range Set rngJahr = Intersect(Range("A1"), Target) If Not rngJahr Is Nothing Then varJahr = Range("A1").Value ComboBox1.Visible = False If Tar...
13.11.2014 14:52:13
Thread-ID: 1392208
10 Beiträge
Spaltenbreite an Zoomstufe anpassen
Michael

Hallo,
gibt es die Möglichkeit je nach Zoomstufe Excel zu veranlassen die Spaltenbreite automatisch anzupassen, so dass die Werte immer angezeigt werden und nicht ##### wenn zu wenig Platz vorhanden ist?
Gruß,
Michael
13.04.2015 10:22:27
Thread-ID: 1420460
2 Beiträge
Tabelle automatisch anpassen
Alex

Hallo zusammen,
ich habe folgendes Problem:
Ich habe 3 Arbeitsblätter in den ersten beiden sind Trainings und Seminare in der dritten Tabelle sollen diese zusammengefasst werden. (siehe Datei). Jeder Teilnehmer kann max. 4 Einheiten belegen.
Im angehängtem Beispiel steht bei Lisa i...
25.07.2015 10:26:30
Thread-ID: 1438438
3 Beiträge
Spaltenbreite an vorgegebenen Wert anpassen
Carsten

Hallo,
ich habe ja die Möglichkeit, die Breite einer Spalte auszulesen und in einer Zelle anzeigen zu lassen.
Ich suche nun nach einer Möglichkeit, dass Ganze umgekehrt zu machen. Ich möchte also die Breite einer Spalte in einer Zelle in Pixel angeben und die Spaltenbreite soll sich ent...
24.10.2015 09:26:31
Thread-ID: 1454082
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox

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