Live-Forum - Die aktuellen Beiträge
Datum
Titel
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?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

was ist an dem Code falsch

Forumthread: was ist an dem Code falsch

was ist an dem Code falsch
12.08.2004 19:17:38
Nenesis
Hallo alle
Ich hätte da mal eine Frage was ist an dem Code falsch?
Ich wollte in einer Userform eine Combobox machen, wo ich Namen aus einer Tabelle aufrufen kann.

Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Set frm = UserForm1
Application.ScreenUpdating = False
With frm.ComboBox2
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 3 To iMax
.AddItem Worksheets("Tabelle3").Cells(i, 1)
Next i
End With
Application.ScreenUpdating = True
End Sub

Schon mal Danke
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: was ist an dem Code falsch
ChrisL
Hi
Einen kleinen Hinweis was falsch ist hättest du schon geben können. Vermute mal dass die UsedRange erst ab der Zeile 3 zählt und iMax somit die falsche Anzahl hat. Würd es so lösen...

Private Sub UserForm_Initialize()
Dim i As Long
Dim iMax As Long
Application.ScreenUpdating = False
ComboBox2.Clear
With Worksheets("Tabelle3")
For i = 3 To .Range("A65536").End(xlUp).Row
ComboBox2.AddItem .Cells(i, 1)
Next i
End With
Application.ScreenUpdating = True
End Sub

Gruss
Chris
Anzeige
AW: was ist an dem Code falsch
Ramses
Hallo
dann solltest du vielleicht vorher noch sagen, was falsch ist, oder nicht funktioniert.
Auf den ersten Blick sehe ich keine Fehler.
Gruss Rainer
AW: was ist an dem Code falsch
Nenesis
Sorry aber Danke für die schnelle Antwort
Also ich bekomme immer Laufzeitfehler 9
In welcher Zeile ? o.T.
Ramses
...
Anzeige
AW: was ist an dem Code falsch
Ulf
Da kann eigentlich nur der Blattname falsch sein!
Ulf
AW: was ist an dem Code falsch
Nenesis
Ja echt dumm von mir der Blatt Name wahres
With Worksheets("Tabelle3") ist falsch
Richtig With Worksheets("Namen")
Ihr habt mir aber weiter geholfen der Code von Chril
Ist besser
Also noch mal Danke
Gruß nenesis
Anzeige
Habe dar noch ne Frage
Nenesis
Hallo ich noch mal
Habe dar noch ne Frage, wie kann ich das mit mehrere Comboboxen
Machen so das ComboBox3 die Daten aus Tabelle4 und ComboBox2 die Daten z.b aus
Tabelle2 hold

Private Sub UserForm_Initialize()
Dim i As Long
Dim u As Long
Dim iMax As Long
Application.ScreenUpdating = False
ComboBox2.Clear
ComboBox3.Clear
With Worksheets("Tabelle2")
For i = 3 To .Range("A65536").End(xlUp).Row
ComboBox3.AddItem .Cells(i, 1)
For u = 3 To .Range("A65536").End(xlUp).Row
ComboBox2.AddItem .Cells(u, 1)
Next u, i
End With
Application.ScreenUpdating = True
End Sub

Gruß nenesis
Anzeige
AW: Habe dar noch ne Frage
GerdZ
Hallo,
Du mußt den With-End With Teil aufteilen: 
With Worksheets("Tabelle4")
For i = 3 To .Range("A65536").End(xlUp).Row
ComboBox3.AddItem .Cells(i, 1)
Next i
End With
With Worksheets("Tabelle2")
For u = 3 To .Range("A65536").End(xlUp).Row
ComboBox2.AddItem .Cells(u, 1)
Next u
End With
Gruß
Gerd
Anzeige
So geht es Danke
Nenesis
Danke Gerd so geht es
Gruß
Nenesis
;

Forumthreads zu verwandten Themen

Suchen (STRG+F) einstellen
jens

Hallo Excel-Freunde,
Wie lautet das Makro, mit dem ich bei der Suchen -Funktion (STRG+F) die Voreinstellung Gesamten Zellinhalt vergleichen- ausschalten kann?
Viele Grüße
Jens
12.08.2008 18:38:36
Thread-ID: 1001291
12 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Anzeige
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
Grafik in Userform funktioniert nicht
SteffenS

Hallo Zusammen,
der angehängte Code funktioniert unter Excel 2003 unter Excel 2007 funktioniert er leider nicht.
Woran kann dies liegen?
Option Explicit
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWi...
24.09.2008 21:08:48
Thread-ID: 1012169
7 Beiträge
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Anzeige
Was ist an diesem VBA-Code falsch?
Heiko31

Hallöchen,
ich möchte mit folgenden Code die Inhalte der Zeilen C122:C218 / M122:M218 / K122:K218 aus allen Arbeitsblättern in die Spalten B / C / D auf dem letzten Tabellenblatt übernehmen.
Die ersten beiden funktionieren wunderbar, aber die Auflistung aus K122:218 funktioniert gar nic...
23.11.2008 15:55:00
Thread-ID: 1027099
7 Beiträge
AutoFill funktioniert nicht mehr
Anna

Hallo
schon oft habe ich die AutoFill-Methode benutzt und immer lief es einwandfrei, doch auf einmal bekomme ich immer eine Fehlermeldung
"Laufzeitfehler '1004': Die AutoFill-Methode des Range-Objektes konnte nicht ausgeführt werden."
Ich hab schon alles ausprobiert, deswegen glaub...
26.11.2008 10:44:00
Thread-ID: 1027953
2 Beiträge
Was ist an diesem Makro falsch
jens-claus

Hallo Excelfreunde,
ich hatte nachstehendes Makro im Einsatz, dies lief auch fehlerfrei.
Doch jetzt stoppt das Makro bei: .HPageBreaks(i).Delete
Das Makro soll jeweils bei Wechsel in der Spalte G eine neue Seite ausdrucken.
Wer kann mir helfen?
Besten Dank im voraus.
S...
02.12.2008 16:11:00
Thread-ID: 1029548
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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