Thema Datum  Von Nutzer Rating
Antwort
10.02.2021 15:36:07 Stephanie
Solved
Blau VBA Eingabe in Tabelle 1 an die richtige Stelle in Tabelle 2 kopieren
 10.02.2021 19:31:51 AlterDresdner
*****
Solved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
10.02.2021 19:31:51		 Views:
464		 Rating:
     
Antwort:
 Nein
Thema:
VBA Eingabe in Tabelle 1 an die richtige Stelle in Tabelle 2 kopieren

Hallo Stephanie,
als eigenständiges Sub:

Sub von1zu2()
  Dim spalte As Long, found As Variant
  Dim sh1 As Object, sh2 As Object
  Set sh1 = ThisWorkbook.Sheets("Tabelle1")
  Set sh2 = ThisWorkbook.Sheets("Tabelle2")
  Set found = sh2.Rows(1).Find(what:=Trim(sh1.Range("C1")), lookat:=xlWhole)
  If Not found Is Nothing Then
    sh1.Range(sh1.Cells(2, 3), sh1.Cells(3, 3)).Copy Destination:=sh2.Cells(2, found.Column)
  Else
    MsgBox "Suchbegriff " & sh1.Range("C1") & " in Tabelle2 nicht gefunden"
  End If
End Sub

Gruß der AlteDresdner

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
10.02.2021 15:36:07 Stephanie
Solved
Blau VBA Eingabe in Tabelle 1 an die richtige Stelle in Tabelle 2 kopieren
 10.02.2021 19:31:51 AlterDresdner
*****
Solved