Thema Datum  Von Nutzer Rating
Antwort
30.01.2021 20:04:26 Stefan
NotSolved
Blau Tabelle durchsuchen und ganze Zeile kopieren
 31.01.2021 08:40:22 volti
NotSolved
31.01.2021 10:08:34 Stefan
NotSolved
31.01.2021 10:56:24 volti
NotSolved
31.01.2021 11:07:21 Stefan
Solved

Ansicht des Beitrags:
Von:
volti		 Datum:
31.01.2021 08:40:22		 Views:
456		 Rating:
     
Antwort:
  Ja
Thema:
Tabelle durchsuchen und ganze Zeile kopieren

Hallo Stefan,

Teste mal folgendes Makro:

Code:
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28		  
Sub Suche()
  Dim rBereich As Range
  Dim sIchsuche As String, sErsteAdresse As String
  Dim WSh As Worksheet, iZeile As Long

  sIchsuche = InputBox("Was brauchst du?", "Ersatzteilsuche")
  If sIchsuche = "" Then
     MsgBox "Junge nix kon ma ned findn", vbCritical, "Suche"
     Exit Sub
  End If

  Set WSh = Worksheets("Tabelle1")
  WSh.Range("A10:I1000").Clear

  With Worksheets("Tabelle2").Range("A:I")
      Set rBereich = .Find(sIchsuche, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
      If Not rBereich Is Nothing Then
         sErsteAdresse = rBereich.Address
         Do
            iZeile = WSh.Cells(Rows.Count, "A").End(xlUp).Row + 1
            rBereich.EntireRow.Copy WSh.Cells(iZeile, "A").EntireRow
            Set rBereich = .FindNext(rBereich)
         Loop While Not rBereich Is Nothing And rBereich.Address <> sErsteAdresse

      End If
  End With

End Sub
_________
viele Grüße
Karl-Heinz

Ihre Antwort
  • 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: Name: Email:



  • 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
30.01.2021 20:04:26 Stefan
NotSolved
Blau Tabelle durchsuchen und ganze Zeile kopieren
 31.01.2021 08:40:22 volti
NotSolved
31.01.2021 10:08:34 Stefan
NotSolved
31.01.2021 10:56:24 volti
NotSolved
31.01.2021 11:07:21 Stefan
Solved