Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 23:30:16
Anzahl Jahre Zählen aus Datumreihe
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt Listenfeld, nicht alle Einträge

Tabellenblatt Listenfeld, nicht alle Einträge
11.01.2013 12:26:11
Judith
Hallo,
ich habe ein Listenfeld in einem Tabellenblatt in dem die Namen aller Tabellenblätter, bis auf zwei, eingelesen werden.
Das klappt auch perfekt. Jetzt kommt das komische Verhalten:
Ich klicke ein beliebiges Tabellenblatt an (Reiter unten), gehe dann wieder zurück zum Blatt "Übersicht" (da, wo das Listenfeld ist) und lade mit dem Button alle Blätter neu.
Jetzt fehlt das letzte Blatt ("Ende") im Listenfeld, ich kann auch nicht bis GANZ nach unten scrollen.
Hier eine Beispielmappe:
https://www.herber.de/bbs/user/83358.xls
Liegt es am Code oder ist das eine Macke von Excel? Ich habe Office XP, habe es aber auch schon auf 2003 versucht. Gleiches Ergebnis.
Danke, für Euren Rat!
Gruß

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

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt Listenfeld, nicht alle Einträge
11.01.2013 12:44:11
Rudi
Hallo, 
Private Sub CommandButton1_Click()   'Tabellenblatt Listenfeld
Dim wks As Worksheet, arrList(), i
On Error GoTo Errorhandling
ReDim arrList(Worksheets.Count - 3)
LstWks.Clear
For Each wks In Worksheets
If wks.Name  "Übersicht" And wks.Name  "Blankoformular" Then
arrList(i) = wks.Name
i = i + 1
End If
Next wks
LstWks.List = arrList
Exit Sub
Errorhandling:
MsgBox Err.Number & vbCr & Err.Description & vbNewLine & "Fehler in WKSListenfeld einlesen ",  _
, "Irgendwas klappt nicht.."
End Sub

Gruß
Rudi

AW: Tabellenblatt Listenfeld, nicht alle Einträge
11.01.2013 12:55:25
Judith
Hallo Rudi,
vielen Dank, klappt perfekt.
Ich würde es nur gerne verstehen, ist meine Art, das Listenfeld zu laden nicht richtig?
Ich kann Deinen Code nachvollziehen, ich habs aber nicht so mit den Arrays:-/
Ich weiß, Du bist ein Fachmann, ich habe schon so viele Beiträge von Dir gelesen. Wie ist Deine Meinung, ist das eine Excel Macke oder liegst an meinem Code?
Gruß und Danke!
Anzeige

270 Forumthreads zu ähnlichen Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Auswertung mit mehr Bedingungen
dieter

Hallo,
ich möchte eine summierte Auswertung erhalten die 2 Bedingungen berücksichtig. Wenn möglich als Formel. Weiß nicht ob das möglich ist. Ich habe 8 unterschiedliche Kategorien.
Tabelle sieht folgend aus:
A / B / C
Jän / a / 10
Jän / b / 10
Jän / a / 15
Feb / b /...
04.01.2009 16:48:00
Thread-ID: 1036762
5 Beiträge
Anzeige
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Min Werte ohne 0
Eby

Hallo!
Ich möchte aus einer Reihe von Zahlen den kleinsten Wert ausgeben.
Macht man ja eigentlich mit
Aber ich möchte die 0 ausschließlen. D.h. Wenn über der Null der nächste Wert z.b. eine 4 ist soll auch nur 4 und nicht die 0 erscheinen.
Hat da jemand einen Tip für mich?
30.03.2009 11:56:36
Thread-ID: 1065213
5 Beiträge
Minimum ohne Nullen mit VBA
Huwy

Hallo zusammen
Ich stehe gerade vor einem Problem, wofür ich weder im Forum noch mit google eine Lösung gefunden habe.
Und zwar geht es um folgenden Teil eines VBA Macros:
Aus einem Bereich (D31:E121) mit Format "Datum" brauche ich den kleinsten Wert.
= WorksheetFunction.Min(R...
16.04.2009 13:14:33
Thread-ID: 1069068
3 Beiträge
Wert in Spalte finden...
Jens

Hallo,
ich bin Neuling im Bereich Excel und möchte folgendes erreichen:
Ich habe eine Tabelle.
In dieser Tabelle soll in der ersten Spalte ein Wert gefunden werden.
Ist dieser Wert gefunden, soll ein Teil der Tabelle in ein neues Tabellenblatt geschrieben werden.
Kann mir je...
26.04.2009 10:31:50
Thread-ID: 1071168
17 Beiträge
Zellwerte ohne Null kopieren
PWNeiss

Hallo Gurus,
ich habe folgendes Szenario:
Ich habe in der Spalte A Zahlen stehen, welche ich in den Spalten F, G und H mit einem feststehenden Buchstabe verkette. Das passiert, in dem ich in den Spalten C, D oder E ein "X" eingebe. Also steht in den Spalten F, G und H diese Formel:
...
19.08.2009 13:40:30
Thread-ID: 1097107
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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