Office: Userform Textbox in variable umwandeln und per sql ausgeben

Hallo Leute ich brauche ich dringend Hilfe, wäre sooo lieb wenn mir jemand weiterhelfen könnte. Ich habe ein kleines Projekt aber komme gerade nicht voran. Crying or Very sad
Ich habe ein Userform angelegt mit einem TextBox bei dem man eine Kalenderwoche zwischen 1 und 52 eingeben muss. Dies soll durch eine verbindung einer anderen Datenbank die Kalenderwoche in excel per SQL abfrage ausgegeben werden.

Hier mein Code:

Userform

Option Explicit

Private Sub CommandButton1_Click()

If IsNumeric (tfTextBox) Then
Call Testmodul.Berechnung
Unload UserForm1
End
Else
MsgBox("Bitte geben Sie eine Kalenderwoche zwischen 1 und 52 ein!")
tfTextBox = ""
End If
End Sub



Testmodul

Option Explicit

Sub Berechnung()

Dim oCon As New ADODB.Connection
Dim oRS As New ADODB.Recordset
Dim strSQL As String
Dim owb As Workbook
Dim ows2 As Worksheet
Dim ausbeute, zahl As Double
Dim i,j SummeLeaves, Summereject as Long
Dim feldinhalt As String
Dim Woche As Byte
Dim gesamtausbeute As Double


Set owb = ThisWorkbook
Set ows2 = owb.Worksheets("files")
(woche = 22) ' Wenn ich das so lasse klappt es wunderbar, es wird jedoch nur
die woche 22 ausgegeben und nicht irgendeins wo man eingibt

'Vorher Inhalte von Tabelle löschen
Rows ("15:65536").Delete

' ows2.Activate
oCon.ConnectionString = Provider=Ora....blabla bla

strSQL= _
"SELECT " & _
"L3TYP, ZHLST, ABGMGE, AUSB " & _
"FROM blablaTabelle " & _
"WHERE WOCHE = " & woche & _
"ORDER BY L3TYP"


oRS.CursorType = adOpenDynamic
oRS.LockType = adLockOptimistic
oRS.CursorLocation = adUseClient
oRS.Open strSQL, oCon

ows2.Cells (4, 1) = "level3-Typ"
ows2.Cells (4, 2) = "zählstelle"
und so weiter

'Ausgabe der Reject und Unscrap

i = 5
Do Until oRS.EOF
ows2.Cells (i, "A") = oRS.Fields(0)
ows2.Cells (i, "B") = oRS.Fields(1)
....
....

i = i + 1
oRS.MoveNext
Loop
oRS.close

oCon.Close


Schonmal vielen Dank im voraus

 

Hallo,

Du hast eine Userform, in der das Formular(text)feld 'tfTextBox' und der Button 'CommandButton1' enthalten sind.
Ferner hast Du ein allgem. Codemodul 'Testmodul', in dem die Sub 'Berechnung' enthalten ist.

Du klickst auf den Button, testest, ob der Wert im Textfeld numerisch ist: falls ja, rufst Du die Sub 'Berechnung' auf.

Das grundlegende Problem dabei dürfte sein, dass die Sub nicht wissen kann, welchen Wert Du im Textfeld des Formulars eingegeben hast.

Um das möglichst einfach zu ändern,

1) deklarierst Du in der Sub nicht
Dim Woche as Byte
sondern entfernst diese Deklaration an dieser Stelle. Vielmehr fügst Du zwischen 'Option Explicit' und 'Sub Berechnung()' die folgende Deklaration auf Modulebene ein:
Public Woche As Byte
Dadurch wird die Variable 'Woche' im gesamten Projekt bekannt/verfügbar gemacht (Hast Du jedoch die Variable Woche in der Sub deklariert, wird sie bei jedem Aufruf der Sub auf 0 gesetzt !!)
Die bisherige Wertzuweisung 'Woche=22' musst Du natürlich in der Sub entfernen.

2) fügst Du in der Userform vor dem 'Call Textmodul.Berechnung' folgendes Zuweisungsstatement ein:
Woche = tfTextBox.Value
Dadurch wird der Wert des Formularfeldes der globalen Variablen 'Woche' zugewiesen. Diese wird dann in der Sub bei der Konstruktion des SQL-Abfragestrings in die Variable 'strSQL' eingebaut.

Was mir sonst noch aufgefallen ist:
1) Eventuell kann es hier ('strSQL') noch ein kleines Problem geben: es sieht so aus, als ob zwischen 'woche' und der SQL-Klausel 'ORDER' kein Leerzeichen im SQL-String 'strSQL' enthalten ist.
2) Kann es sein, dass Du bisher leistungsfähigere Programmiersprachen als VBA gewöhnt warst zu programmieren?
Dann hast Du wahrscheinlich die tatsächliche Wirkungsweise der folgenden Deklaration nicht so gewollt:
Dim ausbeute, zahl As Double
Dim i,j SummeLeaves, Summereject as Long
Es wird nämlich in diesem Fall die Variable 'ausbeute' als 'Variant' deklariert und nicht als 'Double' wie 'zahl' und ferner die Variablen 'i','j','SummeLeaves' nicht als 'Long', sondern ebenfalls als 'Variant'. Dabei dürfte zwischen 'j' und 'SummeLeaves' noch ein Komma fehlen. Also sollte sie so lauten:
Dim Ausbeute As Double, Zahl As Double
Dim i As Long, j As Long, SummeLeaves As Long, Summereject As Long

 

Vielen Dank für den Tipp!!! Werde ich mal gleich ausprobieren;)