Hilfe Es wird nichts eingetragen es kommt aber auch keine Fehlermeldung

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von HenryV.

    Hilfe Es wird nichts eingetragen es kommt aber auch keine Fehlermeldung

    Hallo zusammen,

    ich habe folgendes Problem :
    Es werden keinerlei Werte eingetragen gespeichert noch sonst irgendwas. Eine Fehlermeldung wird auch nicht ausgespuckt ..:(

    Das sind meine ersten Anfänge überhaupt mit Excel und erst recht mit VBA .

    Ich habe den Code mal ganz eingestellt und auch ein Bild der Maske angefügt. Bitte erschreckt nicht, das ist nicht für den Konzern sondern
    für mich selbst kleines Licht um mir die Arbeit und Auswertung zu erleichtern.

    Ich bin dankbar für jeden hilfreichen Tip

    Danke sagt der blutige Anfänger


    Gesamter Code


    Quellcode

    1. Option Explicit
    2. Option Compare Text
    3. 'Speichern Schaltfläche Ereignisroutine Food
    4. Private Sub CommandButton1_Click()
    5. Dim lZeile As Long
    6. 'Wenn kein Datensatz in der ListBox1 markiert wurde, wird die Routine beendet
    7. If ListBox1.ListIndex = -1 Then Exit Sub
    8. 'Prüfen ob die ID Spalte auch gefüllt ist!!
    9. If Trim(CStr(TextBox1.Text)) = "" Then
    10. 'Meldung ausgeben
    11. MsgBox "Du musst Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
    12. 'Abbrechen der Speicherroutine
    13. Exit Sub
    14. End If
    15. 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
    16. 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    17. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    18. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    19. Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
    20. 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
    21. If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
    22. 'Eintrag gefunden, TextBoxen in die Zellen schreiben
    23. Tabelle1.Cells(lZeile, 1).Value = Trim(CStr(TextBox1.Text))
    24. Tabelle1.Cells(lZeile, 2).Value = TextBox2.Text
    25. Tabelle1.Cells(lZeile, 3).Value = TextBox3.Text
    26. Tabelle1.Cells(lZeile, 4).Value = TextBox4.Text
    27. Tabelle1.Cells(lZeile, 5).Value = TextBox5.Text
    28. Tabelle1.Cells(lZeile, 6).Value = TextBox6.Text
    29. Tabelle1.Cells(lZeile, 7).Value = TextBox7.Text
    30. Tabelle1.Cells(lZeile, 8).Value = TextBox8.Text
    31. Tabelle1.Cells(lZeile, 9).Value = TextBox9.Text
    32. Tabelle1.Cells(lZeile, 10).Value = TextBox10.Text
    33. Tabelle1.Cells(lZeile, 11).Value = TextBox11.Text
    34. Tabelle1.Cells(lZeile, 12).Value = TextBox12.Text
    35. Tabelle1.Cells(lZeile, 13).Value = TextBox13.Text
    36. Tabelle1.Cells(lZeile, 14).Value = TextBox14.Text
    37. Tabelle1.Cells(lZeile, 15).Value = TextBox15.Text
    38. Tabelle1.Cells(lZeile, 16).Value = TextBox16.Text
    39. Tabelle1.Cells(lZeile, 17).Value = TextBox17.Text
    40. Tabelle1.Cells(lZeile, 18).Value = TextBox18.Text
    41. Tabelle1.Cells(lZeile, 19).Value = TextBox19.Text
    42. Tabelle1.Cells(lZeile, 20).Value = TextBox20.Text
    43. Tabelle1.Cells(lZeile, 21).Value = TextBox21.Text
    44. Tabelle1.Cells(lZeile, 22).Value = TextBox22.Text
    45. Tabelle1.Cells(lZeile, 23).Value = TextBox23.Text
    46. Tabelle1.Cells(lZeile, 24).Value = TextBox24.Text
    47. Tabelle1.Cells(lZeile, 25).Value = TextBox25.Text
    48. Tabelle1.Cells(lZeile, 26).Value = TextBox26.Text
    49. Tabelle1.Cells(lZeile, 27).Value = TextBox27.Text
    50. Tabelle1.Cells(lZeile, 28).Value = TextBox28.Text
    51. Tabelle1.Cells(lZeile, 29).Value = TextBox29.Text
    52. Tabelle1.Cells(lZeile, 30).Value = TextBox30.Text
    53. Tabelle1.Cells(lZeile, 31).Value = TextBox31.Text
    54. Tabelle1.Cells(lZeile, 32).Value = TextBox32.Text
    55. 'Die ListBox muss nun neu geladen werden
    56. 'allerdings nur, wenn sich der Name (ID) geändert hat
    57. If ListBox1.Text <> Trim(CStr(TextBox1.Text)) Then
    58. Call UserForm5_Initialize
    59. If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    60. End If
    61. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    62. End If
    63. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    64. Loop
    65. End Sub
    66. 'Speichern Schaltfläche Ereignisroutine dairy
    67. Private Sub CommandButton2_Click()
    68. Dim lZeile As Long
    69. 'Wenn kein Datensatz in der ListBox2 markiert wurde, wird die Routine beendet
    70. If ListBox2.ListIndex = -1 Then Exit Sub
    71. 'Prüfen ob die ID Spalte auch gefüllt ist!!
    72. If Trim(CStr(TextBox33.Text)) = "" Then
    73. 'Meldung ausgeben
    74. MsgBox "Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
    75. 'Abbrechen der Speicherroutine
    76. Exit Sub
    77. End If
    78. 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
    79. 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    80. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    81. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    82. Do While Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) <> ""
    83. 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
    84. If ListBox2.Text = Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) Then
    85. 'Eintrag gefunden, TextBoxen in die Zellen schreiben
    86. Tabelle11.Cells(lZeile, 1).Value = Trim(CStr(TextBox33.Text))
    87. Tabelle11.Cells(lZeile, 2).Value = TextBox34.Text
    88. Tabelle11.Cells(lZeile, 3).Value = TextBox35.Text
    89. Tabelle11.Cells(lZeile, 4).Value = TextBox36.Text
    90. Tabelle11.Cells(lZeile, 5).Value = TextBox37.Text
    91. Tabelle11.Cells(lZeile, 6).Value = TextBox37.Text
    92. Tabelle11.Cells(lZeile, 7).Value = TextBox39.Text
    93. Tabelle11.Cells(lZeile, 8).Value = TextBox40.Text
    94. Tabelle11.Cells(lZeile, 9).Value = TextBox41.Text
    95. Tabelle11.Cells(lZeile, 10).Value = TextBox42.Text
    96. Tabelle11.Cells(lZeile, 11).Value = TextBox43.Text
    97. 'Die ListBox2 muss nun neu geladen werden
    98. 'allerdings nur, wenn sich der Name (ID) geändert hat
    99. If ListBox2.Text <> Trim(CStr(TextBox33.Text)) Then
    100. Call UserForm5_Initialize
    101. If ListBox2.ListCount > 0 Then ListBox2.ListIndex = 0
    102. End If
    103. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    104. End If
    105. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    106. Loop
    107. End Sub
    108. 'Speichern Schaltfläche Ereignisroutine bev components
    109. Private Sub CommandButton3_Click()
    110. Dim lZeile As Long
    111. 'Wenn kein Datensatz in der ListBox3 markiert wurde, wird die Routine beendet
    112. If ListBox3.ListIndex = -1 Then Exit Sub
    113. 'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
    114. If Trim(CStr(TextBox44.Text)) = "" Then
    115. 'Meldung ausgeben
    116. MsgBox "Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
    117. 'Abbrechen der Speicherroutine
    118. Exit Sub
    119. End If
    120. 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
    121. 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    122. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    123. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    124. Do While Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) <> ""
    125. 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
    126. If ListBox3.Text = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) Then
    127. 'Eintrag gefunden, TextBoxen in die Zellen schreiben
    128. Tabelle12.Cells(lZeile, 1).Value = Trim(CStr(TextBox44.Text))
    129. Tabelle12.Cells(lZeile, 2).Value = TextBox45.Text
    130. Tabelle12.Cells(lZeile, 3).Value = TextBox46.Text
    131. Tabelle12.Cells(lZeile, 4).Value = TextBox47.Text
    132. Tabelle12.Cells(lZeile, 5).Value = TextBox48.Text
    133. Tabelle12.Cells(lZeile, 6).Value = TextBox49.Text
    134. Tabelle12.Cells(lZeile, 7).Value = TextBox50.Text
    135. Tabelle12.Cells(lZeile, 8).Value = TextBox51.Text
    136. Tabelle12.Cells(lZeile, 9).Value = TextBox52.Text
    137. Tabelle12.Cells(lZeile, 10).Value = TextBox53.Text
    138. Tabelle12.Cells(lZeile, 11).Value = TextBox54.Text
    139. 'Die ListBox muss nun neu geladen werden
    140. 'allerdings nur, wenn sich der Name (ID) geändert hat
    141. If ListBox3.Text <> Trim(CStr(TextBox44.Text)) Then
    142. Call UserForm5_Initialize
    143. If ListBox3.ListCount > 0 Then ListBox3.ListIndex = 0
    144. End If
    145. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    146. End If
    147. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    148. Loop
    149. End Sub
    150. 'Speichern Schaltfläche Ereignisroutine Promo
    151. Private Sub CommandButton4_Click()
    152. Dim lZeile As Long
    153. 'Wenn kein Datensatz in der ListBox4 markiert wurde, wird die Routine beendet
    154. If ListBox4.ListIndex = -1 Then Exit Sub
    155. 'Wir müssen prüfen, ob die ID Spalte auch gefüllt ist!!
    156. If Trim(CStr(TextBox55.Text)) = "" Then
    157. 'Meldung ausgeben
    158. MsgBox "Du musst ein Datum auswählen!", vbCritical + vbOKOnly, "FEHLER!"
    159. 'Abbrechen der Speicherroutine
    160. Exit Sub
    161. End If
    162. 'Ausbauoption: Prüfen, ob die ID in Tabelle1 Spalte 1 schon vorhanden ist!
    163. 'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
    164. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    165. 'Schleife solange etwas in der ersten Spalte in Tabelle 13 drin steht
    166. Do While Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) <> ""
    167. 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen
    168. If ListBox4.Text = Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) Then
    169. 'Eintrag gefunden, TextBoxen in die Zellen schreiben
    170. Tabelle13.Cells(lZeile, 1).Value = Trim(CStr(TextBox55.Text))
    171. Tabelle13.Cells(lZeile, 2).Value = TextBox56.Text
    172. Tabelle13.Cells(lZeile, 3).Value = TextBox57.Text
    173. Tabelle13.Cells(lZeile, 4).Value = TextBox58.Text
    174. Tabelle13.Cells(lZeile, 5).Value = TextBox59.Text
    175. Tabelle13.Cells(lZeile, 6).Value = TextBox60.Text
    176. Tabelle13.Cells(lZeile, 7).Value = TextBox61.Text
    177. Tabelle13.Cells(lZeile, 8).Value = TextBox62.Text
    178. Tabelle13.Cells(lZeile, 9).Value = TextBox63.Text
    179. Tabelle13.Cells(lZeile, 10).Value = TextBox64.Text
    180. Tabelle13.Cells(lZeile, 11).Value = TextBox65.Text
    181. 'Die ListBox muss nun neu geladen werden
    182. 'allerdings nur, wenn sich der Name (ID) geändert hat
    183. If ListBox4.Text <> Trim(CStr(TextBox55.Text)) Then
    184. Call UserForm5_Initialize
    185. If ListBox4.ListCount > 0 Then ListBox4.ListIndex = 0
    186. End If
    187. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    188. End If
    189. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    190. Loop
    191. End Sub
    192. 'Beenden Schaltfläche Ereignisroutine
    193. Private Sub CommandButton5_Click()
    194. Unload Me
    195. End Sub
    196. 'Beenden Schaltfläche Ereignisroutine
    197. Private Sub CommandButton6_Click()
    198. Unload Me
    199. End Sub
    200. 'Beenden Schaltfläche Ereignisroutine
    201. Private Sub CommandButton7_Click()
    202. Unload Me
    203. End Sub
    204. 'Beenden Schaltfläche Ereignisroutine
    205. Private Sub CommandButton8_Click()
    206. Unload Me
    207. End Sub
    208. 'Klick auf die ListBox Ereignisroutine
    209. Private Sub ListBox1_Click()
    210. Dim lZeile As Long
    211. 'Wenn der Benutzer einen Namen anklickt, suchen wir
    212. 'diesen in der Tabelle1 heraus und tragen die Daten
    213. 'in die TextBoxen ein.
    214. 'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    215. TextBox1 = ""
    216. TextBox2 = ""
    217. TextBox3 = ""
    218. TextBox4 = ""
    219. TextBox5 = ""
    220. TextBox6 = ""
    221. TextBox7 = ""
    222. TextBox8 = ""
    223. TextBox9 = ""
    224. TextBox10 = ""
    225. TextBox11 = ""
    226. TextBox11 = ""
    227. TextBox13 = ""
    228. TextBox14 = ""
    229. TextBox15 = ""
    230. TextBox16 = ""
    231. TextBox17 = ""
    232. TextBox18 = ""
    233. TextBox19 = ""
    234. TextBox20 = ""
    235. TextBox21 = ""
    236. TextBox22 = ""
    237. TextBox23 = ""
    238. TextBox24 = ""
    239. TextBox25 = ""
    240. TextBox26 = ""
    241. TextBox27 = ""
    242. TextBox28 = ""
    243. TextBox29 = ""
    244. TextBox30 = ""
    245. TextBox31 = ""
    246. TextBox32 = ""
    247. 'Nur wenn ein Eintrag selektiert/markiert ist
    248. If ListBox1.ListIndex >= 0 Then
    249. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    250. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    251. Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
    252. 'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
    253. 'gefunden haben, übertragen wir die anderen Spalteninhalte
    254. 'in die TextBoxen!
    255. If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then
    256. 'TextBoxen füllen
    257. TextBox1 = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
    258. TextBox2 = Tabelle1.Cells(lZeile, 2).Value
    259. TextBox3 = Tabelle1.Cells(lZeile, 3).Value
    260. TextBox4 = Tabelle1.Cells(lZeile, 4).Value
    261. TextBox5 = Tabelle1.Cells(lZeile, 5).Value
    262. TextBox6 = Tabelle1.Cells(lZeile, 6).Value
    263. TextBox7 = Tabelle1.Cells(lZeile, 7).Value
    264. TextBox8 = Tabelle1.Cells(lZeile, 8).Value
    265. TextBox9 = Tabelle1.Cells(lZeile, 9).Value
    266. TextBox10 = Tabelle1.Cells(lZeile, 10).Value
    267. TextBox11 = Tabelle1.Cells(lZeile, 11).Value
    268. TextBox12 = Tabelle1.Cells(lZeile, 12).Value
    269. TextBox13 = Tabelle1.Cells(lZeile, 13).Value
    270. TextBox14 = Tabelle1.Cells(lZeile, 14).Value
    271. TextBox15 = Tabelle1.Cells(lZeile, 15).Value
    272. TextBox16 = Tabelle1.Cells(lZeile, 16).Value
    273. TextBox17 = Tabelle1.Cells(lZeile, 17).Value
    274. TextBox18 = Tabelle1.Cells(lZeile, 18).Value
    275. TextBox19 = Tabelle1.Cells(lZeile, 19).Value
    276. TextBox20 = Tabelle1.Cells(lZeile, 20).Value
    277. TextBox21 = Tabelle1.Cells(lZeile, 21).Value
    278. TextBox22 = Tabelle1.Cells(lZeile, 22).Value
    279. TextBox23 = Tabelle1.Cells(lZeile, 23).Value
    280. TextBox24 = Tabelle1.Cells(lZeile, 24).Value
    281. TextBox25 = Tabelle1.Cells(lZeile, 25).Value
    282. TextBox26 = Tabelle1.Cells(lZeile, 26).Value
    283. TextBox27 = Tabelle1.Cells(lZeile, 27).Value
    284. TextBox28 = Tabelle1.Cells(lZeile, 28).Value
    285. TextBox29 = Tabelle1.Cells(lZeile, 29).Value
    286. TextBox30 = Tabelle1.Cells(lZeile, 30).Value
    287. TextBox31 = Tabelle1.Cells(lZeile, 31).Value
    288. TextBox32 = Tabelle1.Cells(lZeile, 32).Value
    289. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    290. End If
    291. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    292. Loop
    293. End If
    294. End Sub
    295. 'Klick auf die ListBox Ereignisroutine
    296. Private Sub ListBox2_Click()
    297. Dim lZeile As Long
    298. 'Wenn der Benutzer einen Namen anklickt, suchen wir
    299. 'diesen in der Tabelle1 heraus und tragen die Daten
    300. 'in die TextBoxen ein.
    301. 'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    302. TextBox33 = ""
    303. TextBox34 = ""
    304. TextBox35 = ""
    305. TextBox36 = ""
    306. TextBox37 = ""
    307. TextBox38 = ""
    308. TextBox39 = ""
    309. TextBox40 = ""
    310. TextBox41 = ""
    311. TextBox42 = ""
    312. TextBox43 = ""
    313. 'Nur wenn ein Eintrag selektiert/markiert ist
    314. If ListBox2.ListIndex >= 0 Then
    315. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    316. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    317. Do While Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) <> ""
    318. 'Wenn wir den Namen aus der ListBox11 in der Tabelle1 Spalte 1
    319. 'gefunden haben, übertragen wir die anderen Spalteninhalte
    320. 'in die TextBoxen!
    321. If ListBox2.Text = Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) Then
    322. 'TextBoxen füllen
    323. TextBox33 = Trim(CStr(Tabelle11.Cells(lZeile, 1).Value))
    324. TextBox34 = Tabelle11.Cells(lZeile, 2).Value
    325. TextBox35 = Tabelle11.Cells(lZeile, 3).Value
    326. TextBox36 = Tabelle11.Cells(lZeile, 4).Value
    327. TextBox37 = Tabelle11.Cells(lZeile, 5).Value
    328. TextBox38 = Tabelle11.Cells(lZeile, 6).Value
    329. TextBox39 = Tabelle11.Cells(lZeile, 7).Value
    330. TextBox40 = Tabelle11.Cells(lZeile, 8).Value
    331. TextBox41 = Tabelle11.Cells(lZeile, 9).Value
    332. TextBox42 = Tabelle11.Cells(lZeile, 10).Value
    333. TextBox43 = Tabelle11.Cells(lZeile, 11).Value
    334. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    335. End If
    336. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    337. Loop
    338. End If
    339. End Sub
    340. 'Klick auf die ListBox Ereignisroutine
    341. Private Sub ListBox3_Click()
    342. Dim lZeile As Long
    343. 'Wenn der Benutzer einen Namen anklickt, suchen wir
    344. 'diesen in der Tabelle1 heraus und tragen die Daten
    345. 'in die TextBoxen ein.
    346. 'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    347. TextBox44 = ""
    348. TextBox45 = ""
    349. TextBox46 = ""
    350. TextBox47 = ""
    351. TextBox48 = ""
    352. TextBox49 = ""
    353. TextBox50 = ""
    354. TextBox51 = ""
    355. TextBox52 = ""
    356. TextBox53 = ""
    357. TextBox54 = ""
    358. 'Nur wenn ein Eintrag selektiert/markiert ist
    359. If ListBox3.ListIndex >= 0 Then
    360. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    361. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    362. Do While Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) <> ""
    363. 'Wenn wir den Namen aus der ListBox1 in der Tabelle1 Spalte 1
    364. 'gefunden haben, übertragen wir die anderen Spalteninhalte
    365. 'in die TextBoxen!
    366. If ListBox3.Text = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) Then
    367. 'TextBoxen füllen
    368. TextBox44 = Trim(CStr(Tabelle12.Cells(lZeile, 1).Value))
    369. TextBox45 = Tabelle12.Cells(lZeile, 2).Value
    370. TextBox46 = Tabelle12.Cells(lZeile, 3).Value
    371. TextBox47 = Tabelle12.Cells(lZeile, 4).Value
    372. TextBox48 = Tabelle12.Cells(lZeile, 5).Value
    373. TextBox49 = Tabelle12.Cells(lZeile, 6).Value
    374. TextBox50 = Tabelle12.Cells(lZeile, 7).Value
    375. TextBox51 = Tabelle12.Cells(lZeile, 8).Value
    376. TextBox52 = Tabelle12.Cells(lZeile, 9).Value
    377. TextBox53 = Tabelle12.Cells(lZeile, 10).Value
    378. TextBox54 = Tabelle12.Cells(lZeile, 11).Value
    379. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    380. End If
    381. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    382. Loop
    383. End If
    384. End Sub
    385. 'Klick auf die ListBox Ereignisroutine
    386. Private Sub ListBox4_Click()
    387. Dim lZeile As Long
    388. 'Wenn der Benutzer einen Namen anklickt, suchen wir
    389. 'diesen in der Tabelle1 heraus und tragen die Daten
    390. 'in die TextBoxen ein.
    391. 'Wir löschen standardmäßig alle bisherigen TextBoxen-Inhalte
    392. TextBox55 = ""
    393. TextBox56 = ""
    394. TextBox57 = ""
    395. TextBox58 = ""
    396. TextBox59 = ""
    397. TextBox60 = ""
    398. TextBox61 = ""
    399. TextBox62 = ""
    400. TextBox63 = ""
    401. TextBox64 = ""
    402. TextBox65 = ""
    403. 'Nur wenn ein Eintrag selektiert/markiert ist
    404. If ListBox4.ListIndex >= 0 Then
    405. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    406. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    407. Do While Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) <> ""
    408. 'Wenn wir den Namen aus der ListBox4 in der Tabelle13 Spalte 1
    409. 'gefunden haben, übertragen wir die anderen Spalteninhalte
    410. 'in die TextBoxen!
    411. If ListBox4.Text = Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) Then
    412. 'TextBoxen füllen
    413. TextBox55 = Trim(CStr(Tabelle13.Cells(lZeile, 1).Value))
    414. TextBox56 = Tabelle13.Cells(lZeile, 2).Value
    415. TextBox57 = Tabelle13.Cells(lZeile, 3).Value
    416. TextBox58 = Tabelle13.Cells(lZeile, 4).Value
    417. TextBox59 = Tabelle13.Cells(lZeile, 5).Value
    418. TextBox60 = Tabelle13.Cells(lZeile, 6).Value
    419. TextBox61 = Tabelle13.Cells(lZeile, 7).Value
    420. TextBox62 = Tabelle13.Cells(lZeile, 8).Value
    421. TextBox63 = Tabelle13.Cells(lZeile, 9).Value
    422. TextBox64 = Tabelle13.Cells(lZeile, 10).Value
    423. TextBox65 = Tabelle13.Cells(lZeile, 11).Value
    424. Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist
    425. End If
    426. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    427. Loop
    428. End If
    429. End Sub
    430. Private Sub UserForm5_Activate()
    431. 'Wenn die Eingabemaske angezeigt wird, markieren wir den ersten Namen
    432. 'jedoch nur, wenn auch Einträge in der Liste stehen
    433. If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    434. If ListBox2.ListCount > 0 Then ListBox2.ListIndex = 0
    435. If ListBox3.ListCount > 0 Then ListBox3.ListIndex = 0
    436. If ListBox4.ListCount > 0 Then ListBox4.ListIndex = 0
    437. End Sub
    438. 'Startroutine, wird ausgeführt bevor die Eingabemaske angezeigt wird
    439. Private Sub UserForm5_Initialize()
    440. UserForm5.Label2.Caption = Worksheets("Tabelle1").Range("B7")
    441. UserForm5.Label3.Caption = Worksheets("Tabelle1").Range("B8")
    442. UserForm5.Label4.Caption = Worksheets("Tabelle1").Range("B9")
    443. UserForm5.Label5.Caption = Worksheets("Tabelle1").Range("B10")
    444. UserForm5.Label6.Caption = Worksheets("Tabelle1").Range("B11")
    445. UserForm5.Label7.Caption = Worksheets("Tabelle1").Range("B12")
    446. UserForm5.Label8.Caption = Worksheets("Tabelle1").Range("B13")
    447. UserForm5.Label9.Caption = Worksheets("Tabelle1").Range("B14")
    448. UserForm5.Label10.Caption = Worksheets("Tabelle1").Range("B15")
    449. UserForm5.Label11.Caption = Worksheets("Tabelle1").Range("B16")
    450. UserForm5.Label12.Caption = Worksheets("Tabelle1").Range("B17")
    451. UserForm5.Label13.Caption = Worksheets("Tabelle1").Range("B18")
    452. UserForm5.Label14.Caption = Worksheets("Tabelle1").Range("B19")
    453. UserForm5.Label15.Caption = Worksheets("Tabelle1").Range("B20")
    454. UserForm5.Label16.Caption = Worksheets("Tabelle1").Range("B21")
    455. UserForm5.Label17.Caption = Worksheets("Tabelle1").Range("B22")
    456. UserForm5.Label18.Caption = Worksheets("Tabelle1").Range("B23")
    457. UserForm5.Label19.Caption = Worksheets("Tabelle1").Range("B24")
    458. UserForm5.Label20.Caption = Worksheets("Tabelle1").Range("B25")
    459. UserForm5.Label21.Caption = Worksheets("Tabelle1").Range("B26")
    460. UserForm5.Label22.Caption = Worksheets("Tabelle1").Range("B27")
    461. UserForm5.Label23.Caption = Worksheets("Tabelle1").Range("B28")
    462. UserForm5.Label24.Caption = Worksheets("Tabelle1").Range("B29")
    463. UserForm5.Label25.Caption = Worksheets("Tabelle1").Range("B30")
    464. UserForm5.Label26.Caption = Worksheets("Tabelle1").Range("B31")
    465. UserForm5.Label27.Caption = Worksheets("Tabelle1").Range("B32")
    466. UserForm5.Label28.Caption = Worksheets("Tabelle1").Range("B33")
    467. UserForm5.Label29.Caption = Worksheets("Tabelle1").Range("B34")
    468. UserForm5.Label30.Caption = Worksheets("Tabelle1").Range("B35")
    469. UserForm5.Label31.Caption = Worksheets("Tabelle1").Range("B36")
    470. UserForm5.Label32.Caption = Worksheets("Tabelle1").Range("B37")
    471. UserForm5.Label34.Caption = Worksheets("Tabelle1").Range("F7")
    472. UserForm5.Label35.Caption = Worksheets("Tabelle1").Range("F8")
    473. UserForm5.Label36.Caption = Worksheets("Tabelle1").Range("F9")
    474. UserForm5.Label37.Caption = Worksheets("Tabelle1").Range("F10")
    475. UserForm5.Label38.Caption = Worksheets("Tabelle1").Range("F11")
    476. UserForm5.Label39.Caption = Worksheets("Tabelle1").Range("F12")
    477. UserForm5.Label40.Caption = Worksheets("Tabelle1").Range("F13")
    478. UserForm5.Label41.Caption = Worksheets("Tabelle1").Range("F14")
    479. UserForm5.Label42.Caption = Worksheets("Tabelle1").Range("F15")
    480. UserForm5.Label43.Caption = Worksheets("Tabelle1").Range("F16")
    481. UserForm5.Label45.Caption = Worksheets("Tabelle1").Range("F17")
    482. UserForm5.Label46.Caption = Worksheets("Tabelle1").Range("F18")
    483. UserForm5.Label47.Caption = Worksheets("Tabelle1").Range("F19")
    484. UserForm5.Label48.Caption = Worksheets("Tabelle1").Range("F20")
    485. UserForm5.Label49.Caption = Worksheets("Tabelle1").Range("F21")
    486. UserForm5.Label50.Caption = Worksheets("Tabelle1").Range("F22")
    487. UserForm5.Label51.Caption = Worksheets("Tabelle1").Range("F23")
    488. UserForm5.Label52.Caption = Worksheets("Tabelle1").Range("F24")
    489. UserForm5.Label53.Caption = Worksheets("Tabelle1").Range("F25")
    490. UserForm5.Label54.Caption = Worksheets("Tabelle1").Range("F26")
    491. UserForm5.Label56.Caption = Worksheets("Tabelle1").Range("F27")
    492. UserForm5.Label57.Caption = Worksheets("Tabelle1").Range("F28")
    493. UserForm5.Label58.Caption = Worksheets("Tabelle1").Range("F29")
    494. UserForm5.Label59.Caption = Worksheets("Tabelle1").Range("F30")
    495. UserForm5.Label60.Caption = Worksheets("Tabelle1").Range("F31")
    496. UserForm5.Label61.Caption = Worksheets("Tabelle1").Range("F32")
    497. UserForm5.Label62.Caption = Worksheets("Tabelle1").Range("F33")
    498. UserForm5.Label63.Caption = Worksheets("Tabelle1").Range("F34")
    499. UserForm5.Label64.Caption = Worksheets("Tabelle1").Range("F35")
    500. UserForm5.Label65.Caption = Worksheets("Tabelle1").Range("F36")
    501. Dim lZeile As Long
    502. 'Alle TextBoxen leer machen
    503. TextBox1 = ""
    504. TextBox2 = ""
    505. TextBox3 = ""
    506. TextBox4 = ""
    507. TextBox5 = ""
    508. TextBox6 = ""
    509. TextBox7 = ""
    510. TextBox8 = ""
    511. TextBox9 = ""
    512. TextBox10 = ""
    513. TextBox11 = ""
    514. TextBox11 = ""
    515. TextBox13 = ""
    516. TextBox14 = ""
    517. TextBox15 = ""
    518. TextBox16 = ""
    519. TextBox17 = ""
    520. TextBox18 = ""
    521. TextBox19 = ""
    522. TextBox20 = ""
    523. TextBox21 = ""
    524. TextBox22 = ""
    525. TextBox23 = ""
    526. TextBox24 = ""
    527. TextBox25 = ""
    528. TextBox26 = ""
    529. TextBox27 = ""
    530. TextBox28 = ""
    531. TextBox29 = ""
    532. TextBox30 = ""
    533. TextBox31 = ""
    534. TextBox32 = ""
    535. TextBox33 = ""
    536. TextBox34 = ""
    537. TextBox35 = ""
    538. TextBox36 = ""
    539. TextBox37 = ""
    540. TextBox38 = ""
    541. TextBox39 = ""
    542. TextBox40 = ""
    543. TextBox41 = ""
    544. TextBox42 = ""
    545. TextBox43 = ""
    546. TextBox44 = ""
    547. TextBox45 = ""
    548. TextBox46 = ""
    549. TextBox47 = ""
    550. TextBox48 = ""
    551. TextBox49 = ""
    552. TextBox50 = ""
    553. TextBox51 = ""
    554. TextBox52 = ""
    555. TextBox53 = ""
    556. TextBox54 = ""
    557. TextBox55 = ""
    558. TextBox56 = ""
    559. TextBox57 = ""
    560. TextBox58 = ""
    561. TextBox59 = ""
    562. TextBox60 = ""
    563. TextBox61 = ""
    564. TextBox62 = ""
    565. TextBox63 = ""
    566. TextBox64 = ""
    567. TextBox65 = ""
    568. 'In dieser Routine laden wir alle vorhandenen
    569. 'Einträge in die ListBox1 bis Listbox4
    570. ListBox1.Clear 'Zuerst einmal die Liste leeren
    571. ListBox2.Clear
    572. ListBox3.Clear
    573. ListBox4.Clear
    574. lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
    575. 'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
    576. Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> ""
    577. 'Aktuelle Zeile in die ListBox eintragen
    578. ListBox1.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
    579. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    580. Loop
    581. Do While Trim(CStr(Tabelle11.Cells(lZeile, 1).Value)) <> ""
    582. 'Aktuelle Zeile in die ListBox eintragen
    583. ListBox1.AddItem Trim(CStr(Tabelle11.Cells(lZeile, 1).Value))
    584. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    585. Loop
    586. Do While Trim(CStr(Tabelle12.Cells(lZeile, 1).Value)) <> ""
    587. 'Aktuelle Zeile in die ListBox eintragen
    588. ListBox1.AddItem Trim(CStr(Tabelle12.Cells(lZeile, 1).Value))
    589. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    590. Loop
    591. Do While Trim(CStr(Tabelle13.Cells(lZeile, 1).Value)) <> ""
    592. 'Aktuelle Zeile in die ListBox eintragen
    593. ListBox1.AddItem Trim(CStr(Tabelle13.Cells(lZeile, 1).Value))
    594. lZeile = lZeile + 1 'Nächste Zeile bearbeiten
    595. Loop
    596. End Sub




    *Codetags korrigiert und Spoiler eingefügt* ~NoFear23m
    PS: @Benny ändere doch bitte den Titel auf etwas sinnvolleres und erkläre besser wo genau das problem ist. Da es dein erster Beitrag ist sehe ich es dir nochmal nach. Gebe dir aber bitte etwas mehr mühe.
    Bilder
    • userform5.PNG

      376,04 kB, 1.170×619, 15 mal angesehen

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Nofear23m“ ()

    Ohne jetzt jede Zeile Code überprüft zu haben, könnte der Fehler in den Do...Loop-Anweisungen liegen.
    Schau dir z.B. die Zeile #23 einmal an und überlegt dir was sie macht.
    Spoiler anzeigen
    Lösung: Mach was wenn Zelle nicht leer ist.

    Sonst einmal hier Debuggen, Fehler finden und beseitigen oder google.com/search?q=vba+richtig+debuggen