Thema Datum  Von Nutzer Rating
Antwort
Rot Automatisch kopieren und einfügen aus Datenbank
 28.03.2021 20:03:55 till
NotSolved

Ansicht des Beitrags:
Von:
till		 Datum:
28.03.2021 20:03:55		 Views:
923		 Rating:
     
Antwort:
  Ja
Thema:
Automatisch kopieren und einfügen aus Datenbank

Hallo zusammen,

und zwar habe ich eine Datenbank aus 4 Spalten erstellt. Ich möchte in einer anderen Tabelle, wenn ich einen Wert Eingebe, der In der Datenbak vorhanden ist, dass die 3 weiteren Zellen der Zeile kopiert und automatisch einfügt werden. 

Hier mein Code.

leider wird ab und zu der wert aus der 4Spalte nicht mitkopiert:

 

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim WSh As Worksheet, iZeile As Long, xBeginn As Integer, Sp As String

  Set WSh = Sheets("Datenbank")
  On Error Resume Next
  With Target
      If .Value = "" Then Exit Sub
      xBeginn = ((.Column - 1) \ 5) * 4 + 4
      Sp = Chr$((.Column + 65 - xBeginn))
      iZeile = Application.WorksheetFunction.Match(.Value, _
      WSh.Range(Sp & ":" & Sp), 0)
      If iZeile > 0 Then
         Cells(.Row, xBeginn).Resize(, 4).Value = WSh.Cells(iZeile, 1).Resize(, 4).Value
      End If
  End With

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 Automatisch kopieren und einfügen aus Datenbank
 28.03.2021 20:03:55 till
NotSolved