Thema Datum  Von Nutzer Rating
Antwort
04.01.2017 16:35:14 Anna
NotSolved
Blau Neuen Eintrag einfügen
05.01.2017 13:03:20 Werner
NotSolved

Ansicht des Beitrags:
Von:
Werner		 Datum:
05.01.2017 13:03:20		 Views:
540		 Rating:
     
Antwort:
  Ja
Thema:
Neuen Eintrag einfügen 
Hallo Anna,

wenn ich dich richtig verstanden habe dann:

'Neuer Eintrag Schaltfläche Ereignisroutine
 
Private Sub cmd_New_Record_Click()
 
Dim lZeile As Long
  'Wenn der Benutzer einen neuen Eintrag erzeugen möchten
  'erstellen wir einen neuen Eintrag in der ListBox und markieren
  'diesen, damit der Benutzer die Daten eintragen kann
   
  lZeile = 9 'Start in Zeile 2, Zeile 1 sind ja die Überschriftrn
  'Schleife solange etwas in der ersten Spalte in Tabelle 1 drin steht
  Do While Trim(CStr(Sheet1.Cells(lZeile, 2).Value)) <> ""
      lZeile = lZeile + 1 'Nächste Zeile bearbeiten
  Loop
   
  'Nach Durchlauf dieser Schleife steht lZeile in der ersten leeren Zeile von Sheet1
  'Neuen Eintrag in die Sheet1 schreiben, Spalte ID muss gefüllt sein, damit
  'unsere Routinen die Zeile wiederfinden!
  Sheet1.Cells(lZeile, 2) = CStr("Neuer Eintrag Zeile " & lZeile)
   
  'Und neuen Eintrag in die UserForm eintragen
  ListBox1.AddItem CStr("Neuer Eintrag Zeile " & lZeile)
   
  'Den neuen Eintrag markieren mit Hilfe des ListIndexes
  ListBox1.ListIndex = ListBox1.ListCount - 1
  'Durch das Click Ereignis der ListBox werden die Daten automatisch geladen
   
End Sub

Gruß Werner

 

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:



  • 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
04.01.2017 16:35:14 Anna
NotSolved
Blau Neuen Eintrag einfügen
05.01.2017 13:03:20 Werner
NotSolved