Private Sub UserForm_Initialize()
'Combo Boxen Listen Zuweisen'
ComboBox1.RowSource = "=rng_Kunden_Liste"
ComboBox2.RowSource = "=rng_Mitarbeiter_Liste"
ComboBox3.RowSource = "=rng_Mitarbeiter_Liste"
ComboBox4.RowSource = "=rng_Mitarbeiter_Liste"
ComboBox5.RowSource = "='Rohdaten1'!$O$2:$O$3"
ComboBox6.RowSource = "=rng_Einsatzgrund_Liste"
ComboBox7.RowSource = "=rng_Einsatzgrund_Liste"
ComboBox8.RowSource = "=rng_Einsatzgrund_Liste"
ComboBox9.RowSource = "=rng_Vorlagen_Wartungen_Liste"
'ComboBox9.Text = "Vorlagen für Tätigkeiten"'
'vorhandene Daten aus Excel in die Combo und Text Boxen holen'
ComboBox1.Value = Worksheets("Sander EB").Range("$J$9").Value 'holt alle Werte gleichzeitig
ComboBox2.Value = Worksheets("Sander EB").Range("$Z$9").Value
ComboBox3.Value = Worksheets("Sander EB").Range("$Z$10").Value
ComboBox4.Value = Worksheets("Sander EB").Range("$Z$11").Value
ComboBox5.Value = Worksheets("Sander EB").Range("$T$14").Value
ComboBox6.Value = Worksheets("Sander EB").Range("$Z$15").Value
ComboBox7.Value = Worksheets("Sander EB").Range("$Z$16").Value
ComboBox8.Value = Worksheets("Sander EB").Range("$Z$17").Value
ComboBox9.ListIndex = ListenIndexCB9 'setzt die Box Nr 9 auf den Zuletzt gewählten Listen Punkt'
TextBox10.Value = Worksheets("Sander EB").Range("$J$15").Value
TextBox15.Value = Worksheets("Sander EB").Range("$J$16").Value
TextBox16.Value = Worksheets("Sander EB").Range("$J$17").Value
TextBox17.Value = Worksheets("Sander EB").Range("$M$17").Value
TextBox20.Value = Worksheets("Sander EB").Range("$AB$7").Value
TextBox21.Value = Worksheets("Sander EB").Range("$AB$8").Value
TextBox22.Value = Worksheets("Sander EB").Range("$Z$12").Value
TextBox23.Value = Worksheets("Sander EB").Range("$Z$13").Value
TextBox24.Value = Worksheets("Sander EB").Range("$Z$14").Value
TextBox25.Value = Worksheets("Speicher").Range("$B$" & ListenIndexCB9 + 2).Value
End Sub
'ComboBox Auftraggeber'
Private Sub ComboBox1_Change()
Dim Wert As String
'Tabellenblatt Sander EB setzen und Zelle J9 aktivieren'
Sheets("Sander EB").Activate
ActiveSheet.Range("$J$9").Select
'in die aktive Zelle den Wert der ComboBox eintragen, in diesem Fall der Auftraggeber'
ActiveCell.Value = Me.ComboBox1.Value
If ComboBox1 = "" Or ComboBox1 = "Auswählen oder Eintragen" Then
Label1.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label1.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
'Textboxen mit den Werten aus der Exel Tabelle füllen'
Wert = Worksheets("Sander EB").Range("$J$10").Value 'Info1'
TextBox2.Value = Wert
Wert = Worksheets("Sander EB").Range("$J$11").Value 'Info2'
TextBox3.Value = Wert
Wert = Worksheets("Sander EB").Range("$J$12").Value 'Strasse'
TextBox5.Value = Wert
Wert = Worksheets("Sander EB").Range("$J$13").Value 'PLZ'
TextBox6.Value = Wert
Wert = Worksheets("Sander EB").Range("$M$13").Value 'Ort'
TextBox7.Value = Wert
End Sub
Private Sub ComboBox2_Change()
Worksheets("Sander EB").Range("$Z$9").Value = ComboBox2.Value
End Sub
Private Sub ComboBox3_Change()
Worksheets("Sander EB").Range("$Z$10").Value = ComboBox3.Value
End Sub
Private Sub ComboBox4_Change()
Worksheets("Sander EB").Range("$Z$11").Value = ComboBox4.Value
End Sub
Private Sub ComboBox5_Change()
Worksheets("Sander EB").Range("$T$14").Value = ComboBox5.Value
End Sub
Private Sub ComboBox6_Change()
Worksheets("Sander EB").Range("$Z$15").Value = ComboBox6.Value
End Sub
Private Sub ComboBox7_Change()
Worksheets("Sander EB").Range("$Z$16").Value = ComboBox7.Value
End Sub
Private Sub ComboBox8_Change()
Worksheets("Sander EB").Range("$Z$17").Value = ComboBox8.Value
End Sub
Private Sub ComboBox9_Change()
Dim Inhalt As String
Sheets("Speicher").Activate 'Tabellenblatt "Speicher" aktivieren'
ActiveSheet.Range("$A$1").Select 'A1 aktivieren'
ActiveCell.Value = Me.ComboBox9.Value 'ComboBox9 Wert in die aktive Zelle schreiben
If ComboBox9.ListIndex > -1 Then ' -1 bedeutet das an der ComboBox etwas geändert wurde
ListenIndexCB9 = ComboBox9.ListIndex 'Wert des aktuellen Listen Punkts speichern'
Inhalt = Worksheets("Speicher").Range("$B$" & ListenIndexCB9 + 2).Value 'Liest im Tabellenblatt "Speicher" den _
Inhalt der Zelle B1 aus (Wartungstext)'
TextBox25.Value = Inhalt 'Schreibt den gespeicherten Wert "Inhalt" in meine Text Box
Sheets("Sander EB").Activate 'Aktiviert wieder den Sander EB
End If
End Sub
Private Sub TextBox1_Change() 'Ansprechpartner'
Worksheets("Sander EB").Range("$J$14").Value = TextBox1.Value
If TextBox1 = "" Then
Label2.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label2.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
Private Sub TextBox5_Change() 'Straße'
If TextBox5 = "" Then
Label6.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label6.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
Private Sub TextBox6_Change() 'PLZ'
If TextBox6 = "" Then
Label7.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label7.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
'Begrenzung auf Zahlen Textbox 6 PLZ Auftraggeber'
Private Sub textbox6_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 59
Case Else: KeyAscii = 0
End Select
End Sub
Private Sub TextBox10_Change() 'Kundenname'
Worksheets("Sander EB").Range("$J$15").Value = TextBox10.Value
If TextBox10 = "" Then
Label10.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label10.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
Private Sub TextBox15_Change() 'Straße'
Worksheets("Sander EB").Range("$J$16").Value = TextBox15.Value
If TextBox15 = "" Then
Label15.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label15.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
Private Sub TextBox16_Change() 'PLZ'
Worksheets("Sander EB").Range("$J$17").Value = TextBox16.Value
If TextBox16 = "" Then
Label16.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label16.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
'Begrenzung auf Zahlen Textbox 16 PLZ Kunde'
Private Sub textbox16_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 59
Case Else: KeyAscii = 0
End Select
End Sub
Private Sub TextBox17_Change() 'Ort'
Worksheets("Sander EB").Range("$M$17").Value = TextBox17.Value
End Sub
Private Sub TextBox20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox20
If Not IsDate(.Text) And Not .Text = "" Then
.Text = ""
MsgBox "Bitte ein gültiges Datum eingeben!"
Cancel = True
Else
On Error Resume Next
.Text = CDate(.Text)
End If
Worksheets("Sander EB").Range("$AB$7").Value = TextBox20.Value
End With
End Sub
Private Sub TextBox20_Change() 'Datum von'
If TextBox20 = "" Then
Label19.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label19.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
Private Sub TextBox21_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox21
If Not IsDate(.Text) And Not .Text = "" Then
.Text = ""
MsgBox "Bitte ein gültiges Datum eingeben!"
Cancel = True
Else
On Error Resume Next
.Text = CDate(.Text)
End If
Worksheets("Sander EB").Range("$AB$8").Value = TextBox21.Value
End With
End Sub
Private Sub TextBox21_Change() 'Datum von'
If TextBox21 = "" Then
Label20.ForeColor = RGB(255, 0, 0) 'Wenn Leer dann Rot
Else
Label20.ForeColor = RGB(0, 125, 0) 'Wenn voll dann Grün
End If
End Sub
Private Sub TextBox22_Change() 'PO Nummer'
Worksheets("Sander EB").Range("$Z$12").Value = TextBox22.Value
End Sub
Private Sub TextBox23_Change() 'Job,AB,KD'
Worksheets("Sander EB").Range("$Z$13").Value = TextBox23.Value
End Sub
Private Sub TextBox24_Change() 'Case Nummer'
Worksheets("Sander EB").Range("$Z$14").Value = TextBox24.Value
End Sub
Private Sub TextBox25_Change() 'Textfeld Einsatz'
WartungTextvorlage = TextBox25.Value 'Speichern des Inhaltes in einer Variable
End Sub
'Abbruch Button'
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
'Drucken eines bestimmten Tabellen Blattes'
Private Sub CommandButton2_Click()
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Einsatzbericht" & ".pdf", "PDF- _
Dateien (*.pdf), *.pdf")
Sheets("Sander EB").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub
'Drucken mehrerer Tabellenblätter'
Private Sub CommandButton3_Click()
Dim pdfName As String
pdfName = Application.GetSaveAsFilename(Environ("USERPROFILE") & "\Desktop\" & "Einsatzberichte" & ".pdf", "PDF- _
Dateien (*.pdf), *.pdf")
Sheets(Array("Sander EB", "SEA-WA", "USV1", "Tabelle5", "Tabelle6")).Copy
With ActiveWorkbook
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
.Close savechanges:=False
End With
End Sub
'Speichern der Änderungen im Arbeitsbericht'
Private Sub CommandButton4_Click()
If ComboBox9.Value = "" Then ' Wenn leer dann Fehler Meldung
MsgBox "Unzulässige Eingabe, das Namensfeld darf nicht leer sein.", vbOKOnly, "Achtung"
Else
ListenIndexCB9 = ComboBox9.ListIndex 'Wert des aktuellen Listen Punkts in Variable speichern'
ListenNameCB9 = ComboBox9.Value 'ListenNameCB9 in Variable Speichern
WartungTextvorlage = TextBox25.Value
'Worksheets("Speicher").Range("$A$" & ListenIndexCB9 + 2).Value = ComboBox9.Value ' Den Namen der Vorlage _
Speichern
Worksheets("Speicher").Range("$B$" & ListenIndexCB9 + 2).Value = WartungTextvorlage 'Die geänderte Wartungsvorlage _
Speichern
Worksheets("Sander EB").Range("$B$20").Value = WartungTextvorlage 'Die geänderte Textvorlage in den Sander EB _
schreiben
'TextBox25.Value = WartungTextvorlage 'Speichern des Inhaltes in einer Variable
'MsgBox "Listen Nummer: " & ListenIndexCB9 + 2 & " Listen Name: " & ListenNameCB9, vbOKOnly, "Hinweis aus _
Speichern"
End If
Sheets("Sander EB").Activate 'Aktiviert wieder den Sander EB
End Sub