Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA: Excel Daten durchsuchen und in anderer Tabelle einfügen |
29.06.2020 14:09:40 |
Wilhelm |
|
|
|
29.06.2020 14:42:43 |
Holger |
|
|
|
29.06.2020 14:45:55 |
Gast29124 |
|
|
|
30.06.2020 11:08:14 |
Holger |
|
|
Von:
Wilhelm |
Datum:
29.06.2020 14:09:40 |
Views:
1217 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
VBA: Excel Daten durchsuchen und in anderer Tabelle einfügen |
29.06.2020 14:09:40 |
Wilhelm |
|
|
|
29.06.2020 14:42:43 |
Holger |
|
|
|
29.06.2020 14:45:55 |
Gast29124 |
|
|
|
30.06.2020 11:08:14 |
Holger |
|
|