Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Excel Daten durchsuchen und in anderer Tabelle einfügen
29.06.2020 14:09:40 Wilhelm
NotSolved
29.06.2020 14:42:43 Holger
NotSolved
29.06.2020 14:45:55 Gast29124
NotSolved
30.06.2020 11:08:14 Holger
NotSolved

Ansicht des Beitrags:
Von:
Wilhelm
Datum:
29.06.2020 14:09:40
Views:
34
Rating: Antwort:
  Ja
Thema:
VBA: Excel Daten durchsuchen und in anderer Tabelle einfügen
Hallo community, Ich habe folgendes Problem: ich möchte meine Excel Tabelle nach 3 Kriterien durchsuchen, wenn die Kriterien alle vorhanden sind in der Tabelle, dann soll mir der VBA code alle gefundenen Werte in eine neue Tabelle übertragen. Das Fundament habe ich bereits und nur noch der Code ist irgendwie nicht ganz korrekt, da er mir falsche Werte rausgibt. Könnte mir jemand helfen, bitte? Code: Sub searchdata() Dim erow As long Dim ws As Worksheet Din lastrow As Long Dim count As Integer Lastrow = Sheets(‘‘expoure“).Cells(Rows.count, 5) .End(xlUp) .row Dim row As Long row = 3 For x = 2 To lastrow If Sheets(“exposure“) .Cells(x, 5) = Tabelle2.Range(“B2“) Then Tabelle2.Cells(row, 4) = Sheets(“exposure“) .Cells(x, 1) Tabelle2.Cells(row, 6) = Sheets(“exposure“) .Cells(x, 9) row = row + 1 End if If Sheets(“exposure“) .Cells(x, 6) = Tabelle2.Range(“B3“) Then Tabelle2.Cells(row, 4) = Sheets(“exposure“) .Cells(x, 1) Tabelle2.Cells(row, 6) = Sheets(“exposure“) .Cells(x, 9) row = row +1 End if Next x End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA: Excel Daten durchsuchen und in anderer Tabelle einfügen
29.06.2020 14:09:40 Wilhelm
NotSolved
29.06.2020 14:42:43 Holger
NotSolved
29.06.2020 14:45:55 Gast29124
NotSolved
30.06.2020 11:08:14 Holger
NotSolved