Thema Datum  Von Nutzer Rating
Antwort
18.06.2018 16:57:07 Gast54515
*****
Solved
Blau SVERWEIS?
 24.06.2018 16:39:55 Gast41424
****
Solved
25.06.2018 13:53:20 Gast88672
***
Solved
26.06.2018 12:58:21 Gast62981
**
Solved
27.06.2018 09:55:43 Wannadu
*
Solved

Ansicht des Beitrags:
Von:
Gast41424		 Datum:
24.06.2018 16:39:55		 Views:
342		 Rating:
     
Antwort:
 Nein
Thema:
SVERWEIS?

Hi Gast, 

meinst du das in etwa so?

Sub Kopieren()

Set Blatt1 = Sheets("Tabelle1")
Set Blatt2 = Sheets("Tabelle2")

For z = 2 To Blatt2.Range("B2").End(xlDown).Row
  w = Blatt2.Range("C" & z)
  Set c = Blatt1.Range("A:A").Find(Blatt2.Range("B" & z))
  Do While c.Offset(0, 2 + x) <> ""
    x = x + 1
  Loop
  Cells(1, 3 + x) = "wert2 von B_ID"
  c.Offset(0, 2 + x) = w
  x = 0
Next z

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
18.06.2018 16:57:07 Gast54515
*****
Solved
Blau SVERWEIS?
 24.06.2018 16:39:55 Gast41424
****
Solved
25.06.2018 13:53:20 Gast88672
***
Solved
26.06.2018 12:58:21 Gast62981
**
Solved
27.06.2018 09:55:43 Wannadu
*
Solved