Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.03.2022 08:55:10 |
Karl |
|
|
|
08.03.2022 10:37:03 |
fedjo |
|
|
|
08.03.2022 12:12:27 |
Gast78556 |
|
|
|
08.03.2022 13:12:54 |
Karl |
|
|
|
08.03.2022 13:32:24 |
Gast3511 |
|
|
Vorbelegte Textbox direkt schreiben lassen? |
10.03.2022 11:10:17 |
Karl |
|
|
|
10.03.2022 11:24:46 |
Gast18584 |
|
|
|
14.03.2022 10:00:45 |
Karl |
|
|
|
14.03.2022 14:39:01 |
Gast1649 |
|
|
|
15.03.2022 11:48:32 |
Karl |
|
|
|
15.03.2022 12:40:58 |
Gast85287 |
|
|
|
15.03.2022 13:27:12 |
Karl |
|
|
|
15.03.2022 13:51:53 |
Gast746 |
|
|
|
15.03.2022 14:20:57 |
Karl |
|
|
|
15.03.2022 16:11:13 |
Gast746 |
|
|
|
15.03.2022 16:13:52 |
Gast746 |
|
|
|
16.03.2022 11:33:15 |
Karl |
|
|
|
16.03.2022 11:36:47 |
Karl |
|
|
|
16.03.2022 12:00:43 |
Gast746 |
|
|
|
16.03.2022 12:10:55 |
Karl |
|
|
|
16.03.2022 12:28:17 |
Gast746 |
|
|
|
16.03.2022 12:59:00 |
Karl |
|
|
|
16.03.2022 14:17:12 |
Gast60907 |
|
|
|
16.03.2022 18:04:03 |
Gast31297 |
|
|
Von:
Karl |
Datum:
10.03.2022 11:10:17 |
Views:
410 |
Rating:
|
Antwort:
|
Thema:
Vorbelegte Textbox direkt schreiben lassen? |
Hmm das haut bei mir nicht ganz so hin,.....
Gibts noch eine andere Lösung?
Meine VBA Kenntnisse sind etwas beschränkt,....
Aktuell sieht mein Code so aus.
'Userform-Einstellungen
Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
End If
End Sub
'==============================================================================================
'Reiter: 0 Allgemein
Private Sub TextBox1_Change()
Range("A6").Value = TextBox1.Value
End Sub
Private Sub TextBox2_Change()
Range("B6").Value = TextBox2.Value
End Sub
Private Sub TextBox3_Change()
Range("D6").Value = TextBox3.Value
End Sub
Private Sub OptionButton1_Click()
If OptionButton1 = True Then Range("C6") = "Arbeitsmittel"
End Sub
Private Sub OptionButton2_Click()
If OptionButton2 = True Then Range("C6") = "Maschine"
End Sub
Private Sub OptionButton3_Click()
If OptionButton3 = True Then Range("C6") = "Tätigkeit"
End Sub
'Button Abbrechen
Private Sub Abbrechen_Click()
Rows(6).Delete
Worksheets("Betriebsanweisungen").Activate
ActiveSheet.Protect Password:="", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
ActiveSheet.EnableOutlining = True
Unload Userform_Betriebsanweisung
End Sub
'Button Weiter
Private Sub CommandWeiter0_Click()
MultiPage1.Value = 1
End Sub
'==============================================================================================
'Reiter: 1 Anwendungsbereich
Private Sub TextBox4_Change()
Range("F6").Value = TextBox4.Value
End Sub
Private Sub TextBox11_Change()
Range("E6").Value = TextBox11.Value
End Sub
'Button Weiter
Private Sub CommandButton4_Click()
MultiPage1.Value = 2
End Sub
'Button Zurück
Private Sub CommandZuruck1_Click()
MultiPage1.Value = 0
End Sub
'===============================================================================================================
'Reiter: 2 Gefahren für den Menschen
Private Sub TextBox5_Change()
Range("H6").Value = TextBox5.Value
End Sub
Private Sub TextBox12_Change()
Range("G6").Value = TextBox12.Value
End Sub
'Button Weiter
Private Sub CommandButton5_Click()
MultiPage1.Value = 3
End Sub
'Button Zurück
Private Sub CommandButton6_Click()
MultiPage1.Value = 1
End Sub
'===============================================================================================================
'Reiter 3 Schutzmaßnahmen und Verhaltensregeln
Private Sub TextBox6_Change()
Range("J6").Value = TextBox6.Value
End Sub
Private Sub TextBox13_Change()
Range("I6").Value = TextBox13.Value
End Sub
'Button Weiter
Private Sub CommandButton7_Click()
MultiPage1.Value = 4
End Sub
'Button Zurück
Private Sub CommandButton8_Click()
MultiPage1.Value = 2
End Sub
'===============================================================================================================
'Reiter 4 Verhalten bei Störung
Private Sub TextBox7_Change()
Range("L6").Value = TextBox7.Value
End Sub
Private Sub TextBox14_Change()
Range("K6").Value = TextBox14.Value
End Sub
'Button Weiter
Private Sub CommandButton9_Click()
MultiPage1.Value = 5
End Sub
'Button Zurück
Private Sub CommandButton10_Click()
MultiPage1.Value = 3
End Sub
'===============================================================================================================
'Reiter 5 Verhalten bei Unfall / Erste Hilfe
Private Sub TextBox8_Change()
Range("N6").Value = TextBox8.Value
End Sub
Private Sub TextBox15_Change()
Range("M6").Value = TextBox15.Value
End Sub
'Button Weiter
Private Sub CommandButton11_Click()
MultiPage1.Value = 6
End Sub
'Button Zurück
Private Sub CommandButton12_Click()
MultiPage1.Value = 4
End Sub
'===============================================================================================================
'Reiter 6 Instandhaltung / Entsorung
Private Sub TextBox9_Change()
Range("P6").Value = TextBox9.Value
End Sub
Private Sub TextBox16_Change()
Range("O6").Value = TextBox16.Value
End Sub
'Button Weiter
Private Sub CommandButton13_Click()
MultiPage1.Value = 7
End Sub
'Button Zurück
Private Sub CommandButton14_Click()
MultiPage1.Value = 5
End Sub
'===============================================================================================================
'Reiter 7 Zusätzlich zu beachten
Private Sub TextBox10_Change()
Range("R6").Value = TextBox10.Value
End Sub
Private Sub TextBox17_Change()
Range("Q6").Value = TextBox17.Value
End Sub
'Button Zurück
Private Sub CommandButton16_Click()
MultiPage1.Value = 6
End Sub
'Button Fertig
Private Sub CommandButton15_Click()
ActiveSheet.Protect Password:=""
ActiveWorkbook.Save
Unload Userform_Betriebsanweisung
Dim Pfad As String
Pfad = "T:\_THEMEN\HSE_Austausch\10_Betriebsanweisungen\"
Shell "explorer.exe /e, " & Pfad, vbMaximizedFocus
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
08.03.2022 08:55:10 |
Karl |
|
|
|
08.03.2022 10:37:03 |
fedjo |
|
|
|
08.03.2022 12:12:27 |
Gast78556 |
|
|
|
08.03.2022 13:12:54 |
Karl |
|
|
|
08.03.2022 13:32:24 |
Gast3511 |
|
|
Vorbelegte Textbox direkt schreiben lassen? |
10.03.2022 11:10:17 |
Karl |
|
|
|
10.03.2022 11:24:46 |
Gast18584 |
|
|
|
14.03.2022 10:00:45 |
Karl |
|
|
|
14.03.2022 14:39:01 |
Gast1649 |
|
|
|
15.03.2022 11:48:32 |
Karl |
|
|
|
15.03.2022 12:40:58 |
Gast85287 |
|
|
|
15.03.2022 13:27:12 |
Karl |
|
|
|
15.03.2022 13:51:53 |
Gast746 |
|
|
|
15.03.2022 14:20:57 |
Karl |
|
|
|
15.03.2022 16:11:13 |
Gast746 |
|
|
|
15.03.2022 16:13:52 |
Gast746 |
|
|
|
16.03.2022 11:33:15 |
Karl |
|
|
|
16.03.2022 11:36:47 |
Karl |
|
|
|
16.03.2022 12:00:43 |
Gast746 |
|
|
|
16.03.2022 12:10:55 |
Karl |
|
|
|
16.03.2022 12:28:17 |
Gast746 |
|
|
|
16.03.2022 12:59:00 |
Karl |
|
|
|
16.03.2022 14:17:12 |
Gast60907 |
|
|
|
16.03.2022 18:04:03 |
Gast31297 |
|
|