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

Ansicht des Beitrags:
Von:
Anna		 Datum:
04.01.2017 16:35:14		 Views:
1312		 Rating:
     
Antwort:
  Ja
Thema:
Neuen Eintrag einfügen

Hallo,

ich hänge gerade mit folgendem Problem rum. Vielleicht kann mir jemand behilflich sein.

Ich habe einen Formular mit VBA erstellt. Wenn ich neuen Eintrag einfügen möchte, soll der Eintrag von Spalte B anfangen. ICh würde gerne, dass der Eintrag von Spalte B anfängt. 

'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, 1).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, 1) = 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

 

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