Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
24.10.2018 15:24:58 |
Natalie |
|
|
|
24.10.2018 15:48:53 |
Gast6071 |
|
|
Einen Wert suchen und Zeile auf einem separaten Tabellenblatt abspeichern |
24.10.2018 18:10:27 |
Ulrich |
|
|
Von:
Ulrich |
Datum:
24.10.2018 18:10:27 |
Views:
418 |
Rating:
|
Antwort:
|
Thema:
Einen Wert suchen und Zeile auf einem separaten Tabellenblatt abspeichern |
Hallo,
vielleicht geht es so (ungetestet):
Private Sub UserForm_Click()
Dim ws As Worksheet
Dim rng As Range
Dim wsZiel As Worksheet
Dim EinfuegeZeile As Long
Dim sAdrErsterFund As String
With Worksheets("Tabelle2")
' Zeile finden, in die eingefügt werden soll:
EinfuegeZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
If EinfuegeZeile <> 1 Then EinfuegeZeile = EinfuegeZeile + 1
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> .Name Then 'nicht in Tabelle2 suchen
Set rng = ws.Range("C:C").Find(What:=TextBox9.Value, LookAt:=xlWhole)
If Not rng Is Nothing Then 'falls was gefunden wurde
sAdrErsterFund = rng.Address
Do
rng.EntireRow.Copy Destination:=.Cells(EinfuegeZeile, 1)
'oder:
'rng.Offset(0, -2).Resize(1, 3).Copy Destination:=.Cells(EinfuegeZeile, 1)
Set rng = ws.Range("C:C").FindNext(rng) ' weiter suchen
Loop While sAdrErsterFund <> rng.Address
End If
End If
Next 'ws
End With
End Sub
Zu Range.FindNext müsstest du auch ein gutes Beispiel in der Hilfe finden (F1-Taste!).
Grüße, Ulrich
|
- 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
|
|
24.10.2018 15:24:58 |
Natalie |
|
|
|
24.10.2018 15:48:53 |
Gast6071 |
|
|
Einen Wert suchen und Zeile auf einem separaten Tabellenblatt abspeichern |
24.10.2018 18:10:27 |
Ulrich |
|
|