|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Werte suchen und Zeile kopieren |
02.09.2015 13:33:04 |
Peter |
|
|
|
02.09.2015 13:37:30 |
Gast17814 |
|
|
|
03.09.2015 15:35:54 |
Gast45082 |
|
|
|
03.09.2015 15:37:28 |
Peter |
|
|
|
03.09.2015 18:44:35 |
Günther |
|
|
Von:
Peter |
Datum:
02.09.2015 13:33:04 |
Views:
1359 |
Rating:
|
Antwort:
|
Thema:
Werte suchen und Zeile kopieren |
|
hallo zusammen!
ich möchte aus einer Gesamtliste, in der sich in Spalte A und Spalte C die gesuchten Schlagworte befinden, nach diesen suchen und die gesamte Zeile in neues Blatt einfügen und dort untereinander auflisten.
...mit meinem "Versuch" erhalte ich jedoch die Meldung, "Wert 0 nicht gefunden"....
wäre super, wenn mir jemand weiterhelfen kann! Danke! schöne Grüße
Sub suchen1()
Dim rng As Range
Dim loKostenstelle As Long
Dim loGesamt As Long
Dim sFirstAdress As String
loKostenstelle = Kostenstelle 'gesuchte Werte
loGesamt = Gesamt:
Set rng = Worksheets("ag").Range("a:a").Find(loKostenstelle)
Set rng = Worksheets("ag").Range("c:c").Find(loGesamt)
If rng Is Nothing Then
MsgBox "Wert " & loKostenstelle & " nicht gefunden!"
MsgBox "Wert " & loGesamt & " nicht gefunden!"
Else
sfirstaddress = rng.Address
Do
rng.EntireRow.Copy
Worksheets("Tabelle3").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set rng = Worksheets("ag").Range("b:b").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If
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
|
Werte suchen und Zeile kopieren |
02.09.2015 13:33:04 |
Peter |
|
|
|
02.09.2015 13:37:30 |
Gast17814 |
|
|
|
03.09.2015 15:35:54 |
Gast45082 |
|
|
|
03.09.2015 15:37:28 |
Peter |
|
|
|
03.09.2015 18:44:35 |
Günther |
|
|