Thema Datum  Von Nutzer Rating
Antwort
Rot Übertrag funktioniert nicht
 26.05.2020 19:45:16 Alexander
NotSolved
26.05.2020 23:24:07 Gast01233
NotSolved
27.05.2020 07:17:12 Gast25043
NotSolved
27.05.2020 09:31:36 Gast64272
NotSolved

Ansicht des Beitrags:
Von:
Alexander 		Datum:
26.05.2020 19:45:16		 Views:
1542		 Rating:
     
Antwort:
  Ja
Thema:
Übertrag funktioniert nicht

Hallo, habe ein Problem...

 

Und zwar funktioniert mein Übertrag bei allen Tabellen ausser einer. Hat Jemand eine Idee wodran das liegen könnte?

 

Danke im Voraus..

 
 

Ps: Wenn ich debugge kommt immer der Fehler bei der for schleife....

 

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub EINTRAG_UEBERTRAGEN()
 Dim lZeile As Long
 Dim i As Integer
 Dim Tabelle As String
  
  
     
   'lZeile = lCONST_STARTZEILENNUMMER_DER_TABELLE
    'Schleife bis eine leere ungebrauchte Zeile gefunden wird
    'Do While IST_ZEILE_LEER(lZeile) = False
       ' lZeile = lZeile + 1 'Nächste Zeile bearbeiten
   ' Loop
  
 Tabelle = ComboBox1.Value
  
    'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
    If ListBox1.ListIndex = -1 Then Exit Sub
    
    'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
   lZeile = ListBox1.List(ListBox1.ListIndex, 0)
     
    For i = 1 To iCONST_ANZAHL_EINGABEFELDER
       Sheets(Tabelle).Cells(lZeile, i) = Me.Controls("TextBox" & i)
    Next i
     
    'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
    'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
    ListBox1.List(ListBox1.ListIndex, 1) = TextBox1
    ListBox1.List(ListBox1.ListIndex, 2) = TextBox2
    ListBox1.List(ListBox1.ListIndex, 3) = TextBox3
 
     
End Sub

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Übertrag funktioniert nicht
 26.05.2020 19:45:16 Alexander
NotSolved
26.05.2020 23:24:07 Gast01233
NotSolved
27.05.2020 07:17:12 Gast25043
NotSolved
27.05.2020 09:31:36 Gast64272
NotSolved