Excel Zahl Aus Anderem Blatt Übernehmen

Daten aus anderem tabellenblatt Übernehmen

• Excel

• Hallo liebe Community,

  ich würde gerne daten in einem tabellenblatt (Tabelle1), dice in tabelle2 vorhanden sind suchen und dice entsprechenden werte in den darauf folgenden spalten der tabelle i in tabelle 2 automatisch übernehmen.
  Wenn es den wert aus tabelle 2 in tabelle i nicht gibt, sollen die entprechenden Zellen leer bleiben.
  Ich hoffe ihr könnt mir helfen. Hier mein Lawmaking (ich bin ziemlich neu)...

  Visual Bones-Quellcode

  1. Sub test()
  3. Dim m As Integer, n Every bit Integer
  5. Worksheets(Tabelle1).Activate
  6. Worksheets(Tabelle2).Activate
  8. due north = 0
  9. m = 0
  11. Do While Worksheets("tabelle1").Cells(ii, 8 + n).Value < > ""
  13. If Sheets("tabelle2").Cells(8, 2 + due north).Value < > Sheets(Tabelle1).Cells(8, two + n).Value Then
  14. north = northward + 1
  15. Finish If
  16. 'Einsetzen der in den tabelle2 gefundenen Werte in den tabelle1
  17. Worksheets("Tabelle1").Cells(viii, ii + northward).Value = Worksheets(Tabelle2).Cells(8, 2 + n).Value
  18. Worksheets("Tabelle1").Cells(nine, ii + due north).Value = Worksheets(Tabelle2).Cells(9, ii + due north).Value
  19. Worksheets("Tabelle1").Cells(10, two + n).Value = Worksheets(Tabelle2).Cells(ten, 2 + n).Value
  20. Worksheets("Tabelle1").Cells(eleven, 2 + n).Value = Worksheets(Tabelle2).Cells(11, two + n).Value
  21. Worksheets("Tabelle1").Cells(8, ii + north).Value = Worksheets(Tabelle2).Cells(8, two + n).Value 'tabelle2
  22. Loop
  24. 'Falls die Tabelle ist, und die Firma nicht gefunden wurde, wird dice Zelle leer gelassen
  25. thou = northward + one
  26. If Worksheets("tabelle2").Cells(8, 2 + m).Value = "" And so Worksheets("tabelle1").Cells(eight, 2 + north).Value = ""
  28. End Sub

  Code-Tags eingefügt. ~Thunderbolt

  Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Thunderbolt" (thirty. November 2018, 15:45)

• Reicht es vielleicht einfach per Formelbezug? Oder machst du dann noch mehr im VBA?

• Ich wollte noch ein paar automationen einbinden, gerade da die Tabelle später noch mit mehr Inhalten gefüllt wird.
  Momentan läuft es noch über eine Formel, die ich eben jetzt ersetzen möchte

• Reicht ein Re-create + Paste per Makro? Ich weiß halt nicht genau was du noch machen möchtest.

  Anbei mal ein simples Beispiel für VBA das die einzelnen Zellen übernimmt. Das kann human being aber noch performanter machen,
  beispielweise mittels Kopieren und Ähnlichem.

  Visual Basic-Quellcode

  1. Sub SimpleExample()
  2. 'Daten von Tabelle1 in Tabelle2
  4. Dim prison cell As Range
  6. For Each jail cell In ThisWorkbook.Worksheets("Tabelle1").UsedRange
  8. ThisWorkbook.Worksheets("Tabelle2").Cells(cell.Row, prison cell.Column).Value2 = cell.Value2
  10. Adjacent cell
  12. End Sub

  
  
• Die Idee ist, dass man eine Liste von Firmen hat und automatisiert prüft, ob die Firma und deren zugehörige Daten bereits in Tabelle 1 also der Datenbank vorhanden sind.
  Bisher habe ich das eben nur mit dem sverweis gelöst, das reicht allerdings nicht mehr aus

• Mal sehen, ob dir dieser Ansatz schon genügend Info gibt um alleine weiter zu machen:

  Visual Bones-Quellcode

  1. ​For Each Prison cell in Intersect(UsedRange,Range("A:A"))
  2. FirmenName = Jail cell.Value
  3. Set FoundCell = Tabelle2.Range("A:A").Observe(Firmenname, LookIn:=xlValues, LookAt:=xlWhole)
  4. If FoundCell Is Null Then 'not constitute in table2
  5. 'do something
  6. End If
  7. Next

  --
  If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
  --

• Ähnliche Themen

  • 

  • 

  • 

  • 

Excel Zahl Aus Anderem Blatt Übernehmen,

Source: https://www.vb-paradise.de/index.php/Thread/127586-Daten-aus-anderem-tabellenblatt-%C3%9Cbernehmen/

Posted by: ganncacked1964.blogspot.com

Share this post