Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Datensatz kopieren mit neuer ID
 13.10.2017 10:22:24 Rene
NotSolved
13.10.2017 16:06:57 Mackie
NotSolved
13.10.2017 16:42:32 Gast81969
NotSolved
13.10.2017 17:05:04 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Rene		 Datum:
13.10.2017 10:22:24		 Views:
1072		 Rating:
     
Antwort:
  Ja
Thema:
VBA Datensatz kopieren mit neuer ID
Hallo zusammen, vorab vielen Dank für den Support, ich bin brandneu hier und absoluter Anfänger in VBA. Folgendes Problem: Aus verschiedenen Codeschnipseln habe ich mir schon ein ganz gut funktionierendes Tool gebastelt. Ich möchte es um eine Kopierfunktion von Datensätzen erweitern. Die Idee ist folgende: Schritt 1 prüft, welcher Datensatz in der Userform in der Listbox ausgewählt ist Schritt 2 kopiert diesen Datensatz ab Spalte B bis TH und fügt ihn an die nächst mögliche Stelle unten in der DB ein Schritt 3: die neue fortlaufende ID wird vergeben ich glaube, dass 1 und 3 schon einigermaßen klappen, Probleme bereitet mir v.a. das Kopieren Private Sub CommandButton6_Click() ' Befehl aktuellen Datensatz finden und kopieren Dim lZeile As Long If ListBox1.ListIndex = -1 Then Exit Sub 'Datensatz identifizieren, welcher kopiert werden soll lZeile = 2 Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> "" 'Datensatz ID Spalte mit selektiertem Eintrag der ListBox vergleichen If ListBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) Then Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Copy Destination:=Worksheets("Datenbank").Range("B:TH") 'Die ListBox muss nun neu geladen werden! Call UserForm_Initialize If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0 Exit Do 'Vorzeitiges Ende, da der Datensatz schon gefunden ist End If lZeile = lZeile + 1 'Nächste Zeile bearbeiten Loop 'Befehl ID Vorschlag kopieren Dim lZeile As Long lZeile = 2 Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) <> "" lZeile = lZeile + 1 Loop Tabelle1.Cells(lZeile, 1) = CStr("ID-Vorschlag: " & lZeile) ListBox1.AddItem CStr("ID-Vorschlag: " & lZeile) ListBox1.ListIndex = ListBox1.ListCount - 1 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 VBA Datensatz kopieren mit neuer ID
 13.10.2017 10:22:24 Rene
NotSolved
13.10.2017 16:06:57 Mackie
NotSolved
13.10.2017 16:42:32 Gast81969
NotSolved
13.10.2017 17:05:04 Gast7777
NotSolved