Thema Datum  Von Nutzer Rating
Antwort
13.10.2017 10:22:24 Rene
NotSolved
13.10.2017 16:06:57 Mackie
NotSolved
Rot For Mackie
 13.10.2017 16:42:32 Gast81969
NotSolved
13.10.2017 17:05:04 Gast7777
NotSolved

Ansicht des Beitrags:
Von:
Gast81969		 Datum:
13.10.2017 16:42:32		 Views:
746		 Rating:
     
Antwort:
  Ja
Thema:
For Mackie

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

 

?
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
34
35
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:
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
13.10.2017 10:22:24 Rene
NotSolved
13.10.2017 16:06:57 Mackie
NotSolved
Rot For Mackie
 13.10.2017 16:42:32 Gast81969
NotSolved
13.10.2017 17:05:04 Gast7777
NotSolved