Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform und Optionsfeld

Forumthread: Userform und Optionsfeld

Userform und Optionsfeld
Fredy
Hallo alle
Ich möchte gerne auf meinem Userform das tabellenblatt mit Hilfe einer Optionsfeld aus wellen können in dem die eingegebene Daten eingetragen werben Solen
Gruss Fredy
https://www.herber.de/bbs/user/71778.xlsm
Anzeige
AW: Userform und Optionsfeld
07.10.2010 13:33:53
Beverly
Hi Fredy, 
Private Sub OptionButton4_Click()
Worksheets("Altpapier").Activate
End Sub
Private Sub OptionButton5_Click()
Worksheets("Zellstoff").Activate
End Sub


Anzeige
AW: Userform und Optionsfeld
07.10.2010 14:00:06
Fredy
Cool ist schon mal ein Anfang aber es sollte kompatibel mit dem bestehende code sein
Private Sub CommandButton1_Click()
Dim Zelle As Long
Dim i As Long
Dim leer As Long
Dim Zeile As Long
With Worksheets("Altpapier")
i = .Range("B:B").Find(what:=ComboBox1.Value).Row
For leer = i To 200000
If .Cells(i, 2) = "" Then
'Zelle = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Cells(i, 2) = TextBox1
.Cells(i, 3) = ComboBox1
.Cells(i, 4) = fncSchicht
.Cells(i, 5) = TextBox4
.Cells(i, 6) = TextBox5
.Cells(i, 7) = TextBox6
.Cells(i, 8) = TextBox7
.Cells(i, 9) = TextBox8
.Cells(i, 10) = TextBox9
.Cells(i, 11) = TextBox10
.Cells(i, 12) = TextBox11
.Cells(i, 13) = TextBox12
.Cells(i, 14) = TextBox13
.Cells(i, 15) = TextBox14
.Cells(i, 16) = TextBox15
.Cells(i, 17) = TextBox16
.Cells(i, 18) = TextBox17
.Cells(i, 19) = TextBox18
.Cells(i, 20) = TextBox19
.Cells(i, 21) = TextBox20
.Cells(i, 22) = TextBox21
.Cells(i, 23) = TextBox22
.Cells(i, 24) = TextBox23
.Cells(i, 25) = TextBox24
.Cells(i, 26) = TextBox25
.Cells(i, 27) = TextBox26
.Cells(i, 28) = TextBox27
GoTo liste
Exit Sub
End If
i = i + 1
Next
End With
GoTo liste
liste:
For Zeile = 3 To Worksheets("Altpapier").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("Altpapier").Cells(Zeile, 1) = Worksheets("Altpapier").Cells(Zeile, 1).Row - 2
Next
End Sub


Private Sub CommandButton2_Click()
Checkliste.Hide
End Sub

Private Sub CommandButton3_Click()
Dim Tb As Integer
On Error Resume Next
For Tb = 4 To 27
Me.Controls("TextBox" & Tb) = ""
Next Tb
End Sub

Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Combobox")
With wksCombo
Set rngSorte = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
With Me.ComboBox1
.ColumnCount = 2
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
TextBox1 = Date
End Sub

Private Function fncSchicht()
Dim bytSchicht As Byte
Dim arrSchicht
arrSchicht = Array("nichts gewählt", "Früh", "Mittag", "Nacht")
bytSchicht = -OptionButton1 - 2 * OptionButton2 - 3 * OptionButton3
fncSchicht = arrSchicht(bytSchicht)
End Function

Anzeige
AW: Userform und Optionsfeld
07.10.2010 14:02:17
Fredy
Cool ist schon mal ein Anfang aber es sollte kompatibel mit dem bestehende code sein
Private Sub CommandButton1_Click()
Dim Zelle As Long
Dim i As Long
Dim leer As Long
Dim Zeile As Long
With Worksheets("Altpapier")
i = .Range("B:B").Find(what:=ComboBox1.Value).Row
For leer = i To 200000
If .Cells(i, 2) = "" Then
'Zelle = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Cells(i, 2) = TextBox1
.Cells(i, 3) = ComboBox1
.Cells(i, 4) = fncSchicht
.Cells(i, 5) = TextBox4
.Cells(i, 6) = TextBox5
.Cells(i, 7) = TextBox6
.Cells(i, 8) = TextBox7
.Cells(i, 9) = TextBox8
.Cells(i, 10) = TextBox9
.Cells(i, 11) = TextBox10
.Cells(i, 12) = TextBox11
.Cells(i, 13) = TextBox12
.Cells(i, 14) = TextBox13
.Cells(i, 15) = TextBox14
.Cells(i, 16) = TextBox15
.Cells(i, 17) = TextBox16
.Cells(i, 18) = TextBox17
.Cells(i, 19) = TextBox18
.Cells(i, 20) = TextBox19
.Cells(i, 21) = TextBox20
.Cells(i, 22) = TextBox21
.Cells(i, 23) = TextBox22
.Cells(i, 24) = TextBox23
.Cells(i, 25) = TextBox24
.Cells(i, 26) = TextBox25
.Cells(i, 27) = TextBox26
.Cells(i, 28) = TextBox27
GoTo liste
Exit Sub
End If
i = i + 1
Next
End With
GoTo liste
liste:
For Zeile = 3 To Worksheets("Altpapier").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("Altpapier").Cells(Zeile, 1) = Worksheets("Altpapier").Cells(Zeile, 1).Row - 2
Next
End Sub

Private Sub CommandButton2_Click()
Checkliste.Hide
End Sub


Private Sub CommandButton3_Click()
Dim Tb As Integer
On Error Resume Next
For Tb = 4 To 27
Me.Controls("TextBox" & Tb) = ""
Next Tb
End Sub


Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Combobox")
With wksCombo
Set rngSorte = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
With Me.ComboBox1
.ColumnCount = 2
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
TextBox1 = Date
End Sub


Private Function fncSchicht()
Dim bytSchicht As Byte
Dim arrSchicht
arrSchicht = Array("nichts gewählt", "Früh", "Mittag", "Nacht")
bytSchicht = -OptionButton1 - 2 * OptionButton2 - 3 * OptionButton3
fncSchicht = arrSchicht(bytSchicht)
End Function

Anzeige
AW: Userform und Optionsfeld
07.10.2010 17:35:26
Beverly
Hi Fredy,
du musst nur in deinem Code an allen Stellen wo Worksheets("Altpapier") steht schreiben ActiveSheet - dann wird je nach dem, welches Optionsfeld aktiviert und damit das betreffende Tabellenblatt aktiv ist, sich auf dieses bezogen.

Anzeige
AW: Userform und Optionsfeld
07.10.2010 18:30:55
Fredy
So meinst du oder
With Worksheets("ActiveSheet")
AW: Userform und Optionsfeld
07.10.2010 18:40:38
Beverly
Hi Fredy,
ich meine das, was ich geschrieben habe. Der Name in Klammern und Anführungszeichen ist der Name, der auf dem Tabellenreiter steht.

Anzeige
AW: Userform und Optionsfeld
07.10.2010 18:50:43
Fredy
Ok habe ich gemacht geht aber immer noch nicht sorry
Immer wenn ich es ausführe kommt eine neue Meldung
Index außerhalb des gültigen Bereich und im code ist
With Worksheets("ActiveSheet") gelb markiert
Private Sub CommandButton1_Click()
Dim Zelle As Long
Dim i As Long
Dim leer As Long
Dim Zeile As Long
With Worksheets("ActiveSheet")
i = .Range("B:B").Find(what:=ComboBox1.Value).Row
For leer = i To 200000
If .Cells(i, 2) = "" Then
'Zelle = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Cells(i, 2) = TextBox1
.Cells(i, 3) = ComboBox1
.Cells(i, 4) = fncSchicht
.Cells(i, 5) = TextBox4
.Cells(i, 6) = TextBox5
.Cells(i, 7) = TextBox6
.Cells(i, 8) = TextBox7
.Cells(i, 9) = TextBox8
.Cells(i, 10) = TextBox9
.Cells(i, 11) = TextBox10
.Cells(i, 12) = TextBox11
.Cells(i, 13) = TextBox12
.Cells(i, 14) = TextBox13
.Cells(i, 15) = TextBox14
.Cells(i, 16) = TextBox15
.Cells(i, 17) = TextBox16
.Cells(i, 18) = TextBox17
.Cells(i, 19) = TextBox18
.Cells(i, 20) = TextBox19
.Cells(i, 21) = TextBox20
.Cells(i, 22) = TextBox21
.Cells(i, 23) = TextBox22
.Cells(i, 24) = TextBox23
.Cells(i, 25) = TextBox24
.Cells(i, 26) = TextBox25
.Cells(i, 27) = TextBox26
.Cells(i, 28) = TextBox27
GoTo liste
Exit Sub
End If
i = i + 1
Next
End With
GoTo liste
liste:
For Zeile = 3 To Worksheets("ActiveSheet").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("ActiveSheet").Cells(Zeile, 1) = Worksheets("ActiveSheet").Cells(Zeile, 1).Row - 2
Next
End Sub


Private Sub CommandButton2_Click()
Checkliste.Hide
End Sub

Private Sub CommandButton3_Click()
Dim Tb As Integer
On Error Resume Next
For Tb = 4 To 27
Me.Controls("TextBox" & Tb) = ""
Next Tb
End Sub

Private Sub UserForm_Initialize()
Dim rngSorte As Range
Set wksCombo = Worksheets("Combobox")
With wksCombo
Set rngSorte = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1))
Zeile1 = rngSorte.Row
Me.ComboBox1.RowSource = "'" & .Name & "'!" & rngSorte.Address
End With
With Me.ComboBox1
.ColumnCount = 2
.ListWidth = 200
.ColumnWidths = "50Pt;140Pt"
End With
TextBox1 = Date
End Sub

Private Function fncSchicht()
Dim bytSchicht As Byte
Dim arrSchicht
arrSchicht = Array("nichts gewählt", "Früh", "Mittag", "Nacht")
bytSchicht = -OptionButton1 - 2 * OptionButton2 - 3 * OptionButton3
fncSchicht = arrSchicht(bytSchicht)
End Function


Private Sub OptionButton4_Click()
Worksheets("Altpapier").Activate
End Sub


Private Sub OptionButton5_Click()
Worksheets("Zellstoff").Activate
End Sub

Anzeige
AW: Userform und Optionsfeld
07.10.2010 19:19:08
robert
Hi,
lies noch einmal langsam und genau, was Beverly geschrieben hat.
statt Worksheets("Altpapier"), ActiveSheet
gruß
robert
AW: Userform und Optionsfeld
07.10.2010 19:32:32
Fredy
Ok sorry dann las ich halb bin halb ne niete sorry für die Störung
AW: Userform und Optionsfeld
09.10.2010 12:01:46
Fredy
.
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