Hallo zusammen,
ich hoffe mir kann jemand weiterhelfen, da ich momentan echt ratlos bin. Ich habe bisher ein Makro erstellt, welches auch läuft, möchte aber nun eine UserForm dort einbinden und habe keine Ahnung wie das geht. Erst einmal hier mein Makro:
Sub Kontonummern()
' Kontonummern Bilanz Makro
Dim ZStart As Single, ZEnde As Single
Dim SStart As Single, SEnde As Single
Dim Kontonummer As Single, Ebene As Single
Dim Vorgänger As Variant
Dim I, J As Single
Dim Beginn As Variant, Schritt As Variant, Addition As Variant
Dim Start As Single, Ende As Single
'Eingabefeld anzeigen
UserForm1.Show
ZStart = 4
ZEnde = 40
SStart = 2
SEnde = 11
Kontonummer = 10
Ebene = 1
Planzahl = 11
Beginn = 1000000
Schritt = 1000000
Start = 4
Ende = 306
For I = Start To Ende
'Prüfung ob Planzahl
If Cells(I, Planzahl) = "" Then
'Keine Planzahl, also folgendes Makro zum befüllen der Kontonummer
For J = I - 1 To Start Step -1
If Cells(J, Ebene) "" Then
Addition = Schritt / (10 ^ (Cells(I, Ebene) - 1))
Cells(I, Kontonummer) = Vorgänger + Addition
End If
End If
End If
Next I
End Sub
Das Problem liegt nun bei der fett markierten Stelle im Makro. In der UserForm wird die Start-Zeile (TextFeld1) der Bilanzkonten als auch die End-Zeile (Textfeld2) der Bilanzkonten abgefragt (Abfrage daher, da diese varieren können). Bisher bin ich ins Makro reingegangen und habe die Werte bei "ZStart" und "ZEnde" manuell geändert. Nun sollen dort aber die Werte erscheinen, welche ich in die zwei Textfelder in der UserForm eingetragen habe. Ebenso habe ich in der UserForm ein CommandButton "Ok".
Nun weiß ich allerdings nicht, wie ich das in meinem derzeitigen Makro einbaue.
Ich bin über jede Hilfe dankbar!
Gruss Steffi