Privot Tabelle mit Eingabemaske und Formatierte Tablle

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Neo152.

    Privot Tabelle mit Eingabemaske und Formatierte Tablle

    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 :thumbup:



    Visual Basic-Quellcode

    1. Private Sub UserForm_Initialize()
    4. 'Comboboxen Zuständigkeit Initialisieren
    6. Dim rngZuständigkeit As Range
    8. With Me.cboZuständigkeit
    10. .List = Range("Zuständigkeit").Value
    12. End With
    14. 'Comboboxen Firma Initialisieren
    16. Dim rngFirma As Range
    18. With Me.cboStadtFirma
    20. .List = Range("Firma").Value
    22. End With
    24. 'Comboboxen Zustimmung Initialisieren
    26. Dim rngZustimmung As Range
    28. With Me.cboZustimmung
    30. .List = Range("Zustimmung").Value
    32. End With
    34. End Sub
    36. Private Sub cboStadtFirma_Change()
    38. 'In Firma wird der Wert aus der Combobox als Variable Hinterlegt
    40. Firma = cboStadtFirma.Value
    42. End Sub
    44. Private Sub cboZuständigkeit_Change()
    46. 'In Zuständigkeut wird der Wert aus der Combobox Variable Hinterlegt
    48. Zuständigkeit = cboZuständigkeit.Value
    50. End Sub
    52. Private Sub cboZustimmung_Change()
    54. 'In Zustimmung wird der Wert aus der Combobox Variable Hinterlegt
    56. Zustimmung = cboZustimmung.Value
    58. End Sub
    60. Private Sub txtTel_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    62. 'Im Mobilfeld sind nur Zahlen erlaubt
    64. Select Case KeyAscii
    66. Case 48 To 57
    67. Case Else: KeyAscii = 0
    69. End Select
    71. End Sub
    73. Private Sub txtMobil_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    75. 'Im Mobilfeld sind nur Zahlen erlaubt
    77. Select Case KeyAscii
    79. Case 48 To 57
    80. Case Else: KeyAscii = 0
    82. End Select
    84. End Sub
    86. Private Sub cmdEinfügen_Click()
    88. 'Fügt die eigetragenen Werte ins Tabellenblatt und Schließt das Formular'
    90. intErsteLeereZeile = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
    92. 'Sucht die erste Leere Zeile
    95. Sheets("Daten").Cells(intErsteLeereZeile, 1).Value = txtAdresse.Value
    96. Sheets("Daten").Cells(intErsteLeereZeile, 2).Value = cboZuständigkeit.Value
    97. Sheets("Daten").Cells(intErsteLeereZeile, 3).Value = cboStadtFirma.Value
    98. Sheets("Daten").Cells(intErsteLeereZeile, 4).Value = txtName.Value
    99. Sheets("Daten").Cells(intErsteLeereZeile, 5).Value = txtTel.Value
    100. Sheets("Daten").Cells(intErsteLeereZeile, 6).Value = txtMobil.Value
    101. Sheets("Daten").Cells(intErsteLeereZeile, 7).Value = txtEmail.Value
    102. Sheets("Daten").Cells(intErsteLeereZeile, 8).Value = txtAdresse.Value
    103. Sheets("Daten").Cells(intErsteLeereZeile, 8).Value = txtAdresse.Value
    104. Sheets("Daten").Cells(intErsteLeereZeile, 10).Value = txtCC.Value
    105. Sheets("Daten").Cells(intErsteLeereZeile, 11).Value = txtInfo.Value
    106. Sheets("Daten").Cells(intErsteLeereZeile, 12).Value = cboZustimmung.Value
    109. 'Privottablle Aktuallisieren
    111. Dim wS As Worksheet
    113. Dim pt As PivotTable
    114. For Each wS In ActiveWorkbook.Worksheets
    115. For Each pt In wS.PivotTables
    116. pt.RefreshTable
    117. Next pt
    118. Next wS
    121. Unload frmKontakt
    123. End Sub
    125. Private Sub cmdAbbrechen_Click()
    126. 'Schließt das Formular'
    128. Unload frmKontakt
    129. End Sub

    cry.baby schrieb:

    Bist Du sicher, dass die Tabelle auch als solche formatiert ist? Weil dann erweitert Excel die Tabelle eigentlich automatisch.


    Moin die Tabelle war formatiert, ich habe es jetzt so gelöst, das ich ihr über den Namensmanager ein Namen zugewiesen, damit lief es.

    Unten habe ich den neuen Quellcode mal eingefügt, dazu hätte ich noch eine frage:

    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

    Muss ich das machen oder kann ich das weglassen, ich war noch nie so gut in Programmieren zudem ist es jetzt auch eine weile her.

    Jetzt versuche ich grade eine MsgBox zu erstellen das die Textfelder ausgefüllt werden müssen, erst dann werden die Daten übernommen.
    Muss ich das mit einer If schleife machen ?



    z.B If txtAdresse gefüllt übernimm die daten

    else txtAdresse nicht gefüllt MsgBox (Adresse muss ausgefüllt sein)

    Visual Basic-Quellcode

    1. ​
    3. Private Sub UserForm_Initialize()
    5. 'Comboboxen Zuständigkeit Initialisieren
    7. Dim rngZuständigkeit As Range
    9. With Me.cboZuständigkeit
    11. .List = Range("Zuständigkeit").Value
    13. End With
    15. 'Comboboxen Firma Initialisieren
    17. Dim rngFirma As Range
    19. With Me.cboStadtFirma
    21. .List = Range("Firma").Value
    23. End With
    25. 'Comboboxen Zustimmung Initialisieren
    27. Dim rngZustimmung As Range
    29. With Me.cboZustimmung
    31. .List = Range("Zustimmung").Value
    33. End With
    35. End Sub
    37. Private Sub cboStadtFirma_Change()
    39. 'In Firma wird der Wert aus der Combobox als Variable Hinterlegt
    41. Firma = cboStadtFirma.Value
    43. End Sub
    45. Private Sub cboZuständigkeit_Change()
    47. 'In Zuständigkeut wird der Wert aus der Combobox Variable Hinterlegt
    49. Zuständigkeit = cboZuständigkeit.Value
    51. End Sub
    53. Private Sub cboZustimmung_Change()
    55. 'In Zustimmung wird der Wert aus der Combobox Variable Hinterlegt
    57. Zustimmung = cboZustimmung.Value
    59. End Sub
    61. Private Sub txtTel_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    63. 'Im Mobilfeld sind nur Zahlen erlaubt
    65. Select Case KeyAscii
    67. Case 48 To 57
    68. Case Else: KeyAscii = 0
    70. End Select
    72. End Sub
    74. Private Sub txtMobil_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    76. 'Im Mobilfeld sind nur Zahlen erlaubt
    78. Select Case KeyAscii
    80. Case 48 To 57
    81. Case Else: KeyAscii = 0
    83. End Select
    85. End Sub
    87. Private Sub cmdEinfügen_Click()
    89. 'Fügt die eigetragenen Werte ins Tabellenblatt und Schließt das Formular'
    91. intErsteLeereZeile = Range("Daten").Cells(Rows.Count, 1).End(xlUp).Row + 1
    93. 'Sucht die erste Leere Zeile
    96. Range("Daten").Cells(intErsteLeereZeile, 1).Value = txtAdresse.Value
    97. Range("Daten").Cells(intErsteLeereZeile, 2).Value = cboZuständigkeit.Value
    98. Range("Daten").Cells(intErsteLeereZeile, 3).Value = obFirma.Value Or obStadt.Value
    99. Range("Daten").Cells(intErsteLeereZeile, 4).Value = txtName.Value
    100. Range("Daten").Cells(intErsteLeereZeile, 5).Value = txtTel.Value
    101. Range("Daten").Cells(intErsteLeereZeile, 6).Value = txtMobil.Value
    102. Range("Daten").Cells(intErsteLeereZeile, 7).Value = txtEmail.Value
    103. Range("Daten").Cells(intErsteLeereZeile, 8).Value = txtAdresse.Value
    104. Range("Daten").Cells(intErsteLeereZeile, 8).Value = txtAdresse.Value
    105. Range("Daten").Cells(intErsteLeereZeile, 10).Value = txtCC.Value
    106. Range("Daten").Cells(intErsteLeereZeile, 11).Value = txtInfo.Value
    107. Range("Daten").Cells(intErsteLeereZeile, 12).Value = cboZustimmung.Value
    110. 'Optionsbottons Werte zuweisen die in die Spalte Firma oder Stadt geschrieben werden
    112. With frmKontakt
    114. Dim last As Integer
    116. If obStadt.Value = True Then Range("Daten").Cells(intErsteLeereZeile, 3).Value = "Stadt"
    117. If obFirma.Value = True Then Range("Daten").Cells(intErsteLeereZeile, 3).Value = "Firma"
    119. End With
    121. 'Privottablle Aktuallisieren
    123. Dim wS As Worksheet
    125. Dim pt As PivotTable
    126. For Each wS In ActiveWorkbook.Worksheets
    127. For Each pt In wS.PivotTables
    128. pt.RefreshTable
    129. Next pt
    130. Next wS
    133. Unload frmKontakt
    135. End Sub
    137. Private Sub cmdAbbrechen_Click()
    138. 'Schließt das Formular'
    140. Unload frmKontakt
    141. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Neo152“ ()

Facebook
Telefonspende