Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1236to1240
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
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable nicht definiert

Variable nicht definiert
Fredy
Hallo alle
Ich habe ein Problem mit einem vba quel den ich die Excel Datei öffne sollte eigentlich ein userform auf Gehen aber seit ich Benn vba erweiter Habe kommt immer eine Fehler Meldung
Variable nicht definiert
Für Hilfe Danke ich schon im Voraus
Gruss Fredy
https://www.herber.de/bbs/user/77389.xls

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Variable nicht definiert
06.11.2011 23:43:52
hary
Hallo Fredy
dann deklariere die variablen. 

Option Explicit
Dim zeile1 As Long
Dim wksCombo As Worksheet

gruss hary
AW: Variable nicht definiert
06.11.2011 23:54:52
Fredy
Ne Sorry Geb nicht mehr noch die Meldung
Option Explicit 
Private Sub CheckBox1_Change()
If CheckBox1 = True Then
Application.Visible = False
Else
Application.Visible = True
End If
End Sub

Private Sub Home_Activate()
Set objForm = New clsUserform
With objForm
.MaxButton = False
.MinButton = True
.BorderStyle = xlAenderbar
.Create Home
End With
Call SetWindowPos(FindWindow(vbNullString, Me.Caption), HWND_TOPMOST, _
0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)
End Sub

Private Sub CommandButton1_Click()
UsererFasen.Show
End Sub

Private Sub ComboBox1_Click()
Dim Zeile As Long
Dim wksCombo As Worksheet, Zeile1 As Long
Zeile = Zeile1 + Me.ComboBox1.ListIndex
Me.TextBox1 = wksCombo.Cells(Zeile, 3).Value
Me.TextBox2 = wksCombo.Cells(Zeile, 4).Value
Me.TextBox3 = wksCombo.Cells(Zeile, 5).Value
Me.TextBox4 = wksCombo.Cells(Zeile, 6).Value
Me.TextBox5 = wksCombo.Cells(Zeile, 7).Value
Me.TextBox6 = wksCombo.Cells(Zeile, 8).Value
Me.TextBox7 = wksCombo.Cells(Zeile, 9).Value
End Sub

Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Mitglieder")
'Sorten in Spalte B inkl. Anzeige Spalte C der Combobox1 als Auswahl zuweisen
With wksCombo
Set rngSorte = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row '1. Zeile mit Sorteneintrag
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
'Konfigurieren Combobox
With Me.ComboBox1
.ColumnCount = 3
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
End Sub

Anzeige
AW: da ist noch mehr....
07.11.2011 00:22:44
hary
hallo Fredy
.. im argen!
z.B. hier: 

Zeile = Zeile1 + Me.ComboBox1.ListIndex

Sollte eigentlich 

Zeile = 3 + Me.ComboBox1.ListIndex

sein. Der ListIndex faengt bei 0(Null) an. Mit der ersten Zeile passen die Ausgabe zeilen nicht. 

Dim wksCombo As Worksheet, Zeile1 As Long

gehoert auch nicht in den Code des ComboBox1_Click Ereigniss.
gruss hary
Bei dem Rest muss ich noch schauen.
AW: da ist noch mehr....
07.11.2011 00:47:55
Fredy
Ok ich Habe Vollenden Code Aus dem Userform Raus Genomen und ein neues userform erstellt
Private Sub ComboBox1_Click()
Dim Zeile As Long
Dim wksCombo As Worksheet, Zeile1 As Long
Zeile = Zeile1 + Me.ComboBox1.ListIndex
Me.TextBox1 = wksCombo.Cells(Zeile, 3).Value
Me.TextBox2 = wksCombo.Cells(Zeile, 4).Value
Me.TextBox3 = wksCombo.Cells(Zeile, 5).Value
Me.TextBox4 = wksCombo.Cells(Zeile, 6).Value
Me.TextBox5 = wksCombo.Cells(Zeile, 7).Value
Me.TextBox6 = wksCombo.Cells(Zeile, 8).Value
Me.TextBox7 = wksCombo.Cells(Zeile, 9).Value
End Sub

Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Mitglieder")
'Sorten in Spalte B inkl. Anzeige Spalte C der Combobox1 als Auswahl zuweisen
With wksCombo
Set rngSorte = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row '1. Zeile mit Sorteneintrag
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
'Konfigurieren Combobox
With Me.ComboBox1
.ColumnCount = 3
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
End Sub
So ist der Code im neuen userfom der geht wunder bar
Option Explicit
Dim wksCombo As Worksheet, Zeile1 As Long

Private Sub ComboBox1_Click()
Dim Zeile As Long
Zeile = Zeile1 + Me.ComboBox1.ListIndex
Me.TextBox1 = wksCombo.Cells(Zeile, 3).Value
Me.TextBox2 = wksCombo.Cells(Zeile, 4).Value
Me.TextBox3 = wksCombo.Cells(Zeile, 5).Value
Me.TextBox4 = wksCombo.Cells(Zeile, 6).Value
Me.TextBox5 = wksCombo.Cells(Zeile, 7).Value
Me.TextBox6 = wksCombo.Cells(Zeile, 8).Value
Me.TextBox7 = wksCombo.Cells(Zeile, 9).Value
End Sub

Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Mitglieder")
'Sorten in Spalte B inkl. Anzeige Spalte C der Combobox1 als Auswahl zuweisen
With wksCombo
Set rngSorte = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row '1. Zeile mit Sorteneintrag
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
'Konfigurieren Combobox
With Me.ComboBox1
.ColumnCount = 3
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
End Sub
Den möcht ich aber im automatisch öffneten userfom Haben
Anzeige
AW: da ist noch mehr....
07.11.2011 00:48:58
Fredy
Ok ich Habe Vollenden Code Aus dem Userform Raus Genomen und ein neues userform erstellt
Private Sub ComboBox1_Click()
Dim Zeile As Long
Dim wksCombo As Worksheet, Zeile1 As Long
Zeile = Zeile1 + Me.ComboBox1.ListIndex
Me.TextBox1 = wksCombo.Cells(Zeile, 3).Value
Me.TextBox2 = wksCombo.Cells(Zeile, 4).Value
Me.TextBox3 = wksCombo.Cells(Zeile, 5).Value
Me.TextBox4 = wksCombo.Cells(Zeile, 6).Value
Me.TextBox5 = wksCombo.Cells(Zeile, 7).Value
Me.TextBox6 = wksCombo.Cells(Zeile, 8).Value
Me.TextBox7 = wksCombo.Cells(Zeile, 9).Value
End Sub

Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Mitglieder")
'Sorten in Spalte B inkl. Anzeige Spalte C der Combobox1 als Auswahl zuweisen
With wksCombo
Set rngSorte = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row '1. Zeile mit Sorteneintrag
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
'Konfigurieren Combobox
With Me.ComboBox1
.ColumnCount = 3
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
End Sub
So ist der Code im neuen userfom der geht wunder bar
Option Explicit
Dim wksCombo As Worksheet, Zeile1 As Long

Private Sub ComboBox1_Click()
Dim Zeile As Long
Zeile = Zeile1 + Me.ComboBox1.ListIndex
Me.TextBox1 = wksCombo.Cells(Zeile, 3).Value
Me.TextBox2 = wksCombo.Cells(Zeile, 4).Value
Me.TextBox3 = wksCombo.Cells(Zeile, 5).Value
Me.TextBox4 = wksCombo.Cells(Zeile, 6).Value
Me.TextBox5 = wksCombo.Cells(Zeile, 7).Value
Me.TextBox6 = wksCombo.Cells(Zeile, 8).Value
Me.TextBox7 = wksCombo.Cells(Zeile, 9).Value
End Sub

Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Mitglieder")
'Sorten in Spalte B inkl. Anzeige Spalte C der Combobox1 als Auswahl zuweisen
With wksCombo
Set rngSorte = .Range(.Cells(3, 2), .Cells(.Rows.Count, 2).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row '1. Zeile mit Sorteneintrag
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
'Konfigurieren Combobox
With Me.ComboBox1
.ColumnCount = 3
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
End Sub
Den möcht ich aber im automatisch öffneten userfom Haben
Anzeige
AW: ist doch richtig.
07.11.2011 00:56:01
hary
Hallo Fredy
setz die beiden Codes in den Code des UserForms.
Diese Codezeile startet den Code wenn UserForm geoeffnet wird. 

Private Sub UserForm_Initialize()

gruss hary
AW: ist doch richtig.
07.11.2011 14:24:54
Fredy
Danke hary konnte das Problem Anders lösen

34 Forumthreads zu ähnlichen Themen

Variable für Diagramm nicht definiert
greenhorn

Hallo,
ich habe ein (für euch sicher simples) Problem.
Das kommt bei mir im Editor:

wo muss ich die Variable definieren? Es handelt sich um ein Diagramm.
christian
20.08.2008 10:39:00
Thread-ID: 1003126
15 Beiträge
Anzeige
Variable nicht definiert bei: 'vbext_pp_locked' ?!
Andreas

Hallo Herber Fans,
ich habe eine Prozedur, die im Aktiven Workbook einen Code in ein die VBA Umgebung eines Worksheets packen soll. Wen das Ziel (Aktive) Workbook einen VBA Projektschutz hat, soll eine Meldung kommen, daß diese Aktion nicht ausgeführt werden kann.
Dafür habe ich die Zei...
24.03.2009 15:28:01
Thread-ID: 1063387
3 Beiträge
Fehler: Variable nicht definiert
ing.grohn

Hallo Forum,
folgenden Sequenz hat bisher immer funktioniert.
Jetzt meldet VBA: Fehler bei compilieren, Variable nicht definiert!
Private Sub CommandButton22_Click() Dim Zeile As String Dim Laenge As Integer Dim Posi As Integer Set frm4 = UserForm4 ' Was...
06.09.2009 13:04:24
Thread-ID: 1100857
6 Beiträge
Anzeige
Variable nicht definiert
Heinz

Hallo Leute
Habe plötzlich ein Problem bei "Calendar1"
Bis jetzt ist es immer problemlos gegangen.Jetzt kommt plötzlich n"Variable nicht definiert"
Könnte mir bitte jemand helfen.
Gruß
Heinz
Private Sub ListBox1_Click() If ListBox1.Value "" And Calendar1.Value "" Then...
11.10.2010 02:28:32
Thread-ID: 1181647
3 Beiträge
Variable nicht definiert
René

Hallo liebe Excelgemeinde,
ich möchte beim Öffnen einer Arbeitsmappe alle Daten löschen die älter als ein Monat sind. Das funktioniert auch wenn ich das Makro über eine Schaltfläche händisch starte. Aber wenn ich es in die Workbook Open schreibe kommt in der Zeile x = 2 Variable nicht defin...
09.05.2011 10:37:00
Thread-ID: 1213592
6 Beiträge
VBA zu Tabelle - Variablenwerte kommen nicht an
Perry

Hallo!
Mein Problem stellt sich folgendermaßen dar:
Habe eine Arbeitsmappe mit mehreren Worksheets - das erste ist eine Übersicht, die zusammenfassend angeben soll, wie oft bestimmte Ausdrücke in den nachfolgenden Worksheets vorkommen.
Das Zusammenzählen, wie oft die gesuchten Ausdr...
03.07.2011 19:12:26
Thread-ID: 1220730
2 Beiträge
Fehler: Variable nicht definiert
Peter

Hallo zusammen,
ich bekomme beim Start eines Makros die Fehlermeldung "Variable nicht definiert". Was ist im Code falsch? Das Makro starte ich über ein Formular (Name des Formulars: "Master") per "Call ABCMakro". Der Code für das Makro "ABCMakro" steht in einem Modul namens "ABC".
Danke...
12.08.2011 10:46:56
Thread-ID: 1225810
4 Beiträge
xlOpenXLMWorkbook --> Variable nicht definiert
Peter

Guten Tag
Ich verwende nachstehenden Code, um xls-Dateien auf xlsm-Dateien umzustellen. Das klappt. Nun möchte ich auch xls-Dateien auf xlsx-Dateien umstellen. Da erhalte ich eine VBA-Fehlermeldung "Fehler beim Kompilieren: Variable nicht definiert" und markiert wird xlOpenXLMWorkbook
M...
19.10.2011 10:05:43
Thread-ID: 1234475
3 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

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