Hallo zusammen ich versuche für meine Arbeit ein Telefonbuch zu Programmieren, dieses soll intern benutzt werden und im Gruppenverlauf abgelegt werden.
Ich habe 3 Arbeitsblätter
Blatt 1 Ausgabe als Pivot Tabelle (Telefonbuch)
Blatt 2 Kontaktdaten (Wird ausgeblendet und gesperrt es sollen nur Daten eingetragen werden, nur ich soll die Hinterlegten Daten ändern können erst einmal)
Blatt 3 Zuständigkeit (für die Combo Boxen, werden auch ausgeblendet)
Wenn ich die Daten nun in die Eingabemaske eintrage fügt er die Daten nicht in die Formatierte Tabelle ein sondern am ende des Tabellenblattes.
Wie bekomme ich es nun hin das die Daten aus dem Eingabefenster in die Formatierte Tabelle eingetragen werde ?
Ich danke schonmal für die Hilfe
Ich habe 3 Arbeitsblätter
Blatt 1 Ausgabe als Pivot Tabelle (Telefonbuch)
Blatt 2 Kontaktdaten (Wird ausgeblendet und gesperrt es sollen nur Daten eingetragen werden, nur ich soll die Hinterlegten Daten ändern können erst einmal)
Blatt 3 Zuständigkeit (für die Combo Boxen, werden auch ausgeblendet)
Wenn ich die Daten nun in die Eingabemaske eintrage fügt er die Daten nicht in die Formatierte Tabelle ein sondern am ende des Tabellenblattes.
Wie bekomme ich es nun hin das die Daten aus dem Eingabefenster in die Formatierte Tabelle eingetragen werde ?
Ich danke schonmal für die Hilfe
Visual Basic-Quellcode
- Private Sub UserForm_Initialize()
- 'Comboboxen Zuständigkeit Initialisieren
- Dim rngZuständigkeit As Range
- With Me.cboZuständigkeit
- .List = Range("Zuständigkeit").Value
- End With
- 'Comboboxen Firma Initialisieren
- Dim rngFirma As Range
- With Me.cboStadtFirma
- .List = Range("Firma").Value
- End With
- 'Comboboxen Zustimmung Initialisieren
- Dim rngZustimmung As Range
- With Me.cboZustimmung
- .List = Range("Zustimmung").Value
- End With
- End Sub
- Private Sub cboStadtFirma_Change()
- 'In Firma wird der Wert aus der Combobox als Variable Hinterlegt
- Firma = cboStadtFirma.Value
- End Sub
- Private Sub cboZuständigkeit_Change()
- 'In Zuständigkeut wird der Wert aus der Combobox Variable Hinterlegt
- Zuständigkeit = cboZuständigkeit.Value
- End Sub
- Private Sub cboZustimmung_Change()
- 'In Zustimmung wird der Wert aus der Combobox Variable Hinterlegt
- Zustimmung = cboZustimmung.Value
- End Sub
- Private Sub txtTel_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
- 'Im Mobilfeld sind nur Zahlen erlaubt
- Select Case KeyAscii
- Case 48 To 57
- Case Else: KeyAscii = 0
- End Select
- End Sub
- Private Sub txtMobil_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
- 'Im Mobilfeld sind nur Zahlen erlaubt
- Select Case KeyAscii
- Case 48 To 57
- Case Else: KeyAscii = 0
- End Select
- End Sub
- Private Sub cmdEinfügen_Click()
- 'Fügt die eigetragenen Werte ins Tabellenblatt und Schließt das Formular'
- intErsteLeereZeile = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
- 'Sucht die erste Leere Zeile
- Sheets("Daten").Cells(intErsteLeereZeile, 1).Value = txtAdresse.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 2).Value = cboZuständigkeit.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 3).Value = cboStadtFirma.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 4).Value = txtName.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 5).Value = txtTel.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 6).Value = txtMobil.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 7).Value = txtEmail.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 8).Value = txtAdresse.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 8).Value = txtAdresse.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 10).Value = txtCC.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 11).Value = txtInfo.Value
- Sheets("Daten").Cells(intErsteLeereZeile, 12).Value = cboZustimmung.Value
- 'Privottablle Aktuallisieren
- Dim wS As Worksheet
- Dim pt As PivotTable
- For Each wS In ActiveWorkbook.Worksheets
- For Each pt In wS.PivotTables
- pt.RefreshTable
- Next pt
- Next wS
- Unload frmKontakt
- End Sub
- Private Sub cmdAbbrechen_Click()
- 'Schließt das Formular'
- Unload frmKontakt
- End Sub