Globale Variable einer Zelle zuweisen

Hallo,
folgendes Problem:


Public Daten_beginnen_in_Zeile As Integer
Sub variablen_initialisieren()
Daten_beginnen_in_Zeile = Sheets(data_admin).Cells(1, 1)
End Sub

ich möchte die globale Variable "Daten_beginnen_in_Zeile" nutzen, um bei allen verfügbaren _
Datenblättern bestimmte Zeilen für Kommentare und anderes übrig zu haben. Diese Werte sollen in _
dem sheet 'data_admin' über folgende Maske abgespeichert werden


Private Sub UserForm_Initialize()
begin_with_columns_text.Text = Daten_beginnen_in_Zeile
End Sub
Private Sub begin_with_columns_setbutton_Click()
If Trim(CStr(begin_with_columns_text.Text))  Int(begin_with_columns_text.Text) Then
MsgBox "Eine Zahl eingeben", vbCritical + vbOKOnly, "FEHLER!"
Exit Sub
End If
If Trim(CStr(begin_with_columns_text.Text))

Nun bekomme ich einen ersten fehler bei der Initialisierung.
Und einen zweiten bei meiner Eingabemaske, wenn ich Buchstaben, nicht Zahlen eingebe.
Any ideas?`
Lieben Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Für deine Lösung bekomme ich einen Laufzeitfehler 9 "außerhalb des gültigen Bereichs" bei "data_admin" und ohne die "" einen Laufzeitfehler 13 "Typen unverträglich". [(Name) ist data_admin & der angezeigte Name ist "Daten Administration".
Ich versuche das in einem Modul "global_variables":

Public Daten_beginnen_in_Zeile As Integer
Sub variablen_initialisieren()
Daten_beginnen_in_Zeile = Worksheets(data_admin).Cells(1, 1).Value
End Sub

Das hinter dem = in einen CInt() zu packen hat auch nicht funktioniert.
Ich hab bereits verschiedene Datentypen getestet (String, Variant..). bin etwas ratlos...
(eigentlich liegt in der Eingabemaske ja ein String vor, den ich zu einem int konvertieren will?)

' Code in Userform Option Explicit Private Sub UserForm_Initialize() ' Variable einlesen Call global_variables.variablen_initialisieren ' In Textbox einfügen begin_with_columns_text.Text = Daten_beginnen_in_Zeile End Sub ' In der Textbox 'begin_with_columns_text' nur Zahlen zulassen Private Sub begin_with_columns_text_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case 48 To 57 Case Else: KeyAscii = 0 End Select End Sub ' beim verlassen prüfen, ob Zahl größer 0 ist Private Sub begin_with_columns_text_Exit(ByVal Cancel As MSForms.ReturnBoolean) Daten_beginnen_in_Zeile = begin_with_columns_text.Value If Daten_beginnen_in_Zeile

Option Explicit Public Daten_beginnen_in_Zeile As Integer Sub variablen_initialisieren() With ThisWorkbook.Worksheets("data_admin").Cells(1, 1) If IsNumeric(.Value) Then Daten_beginnen_in_Zeile = .Value Else Daten_beginnen_in_Zeile = 0 MsgBox "Keine Zahl in der Zelle, manuelle Korrektur erforderlich" End If End With End Sub

Sub variablen_initialisieren() With data_admin.Cells(1, 1) If IsNumeric(.Value) Then Daten_beginnen_in_Zeile = .Value Else Daten_beginnen_in_Zeile = 0 MsgBox "Keine Zahl in der Zelle, manuelle Korrektur erforderlich" End If End With End Sub

' Modul 'global_variables' Option Explicit Public Daten_beginnen_in_Zeile As Integer Sub variablen_initialisieren() ' Name der Tabelle aus der die Variable geholt wird ist "data_admin" With ThisWorkbook.Worksheets("Daten Administration").Cells(1, 1) If IsNumeric(.Value) Then Daten_beginnen_in_Zeile = .Value Else Daten_beginnen_in_Zeile = 0 MsgBox "Keine Zahl in dedr Zelle A1" End If End With End Sub

Beliebteste Forumthreads (12 Monate)

Globale Variable einer Zelle zuweisen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Globale Variable einer Zelle zuweisen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread