Thema Datum  Von Nutzer Rating
Antwort
16.12.2016 14:54:34 DP
NotSolved
Blau zelle vergleichen und gesamte zeile kopieren
 16.12.2016 17:21:38 Onur
*****
Solved
02.01.2017 09:13:01 DP
NotSolved
02.01.2017 09:43:38 DP
NotSolved
02.01.2017 10:39:51 Onur
NotSolved
02.01.2017 10:57:08 DP
NotSolved
02.01.2017 11:14:00 Onur
*****
Solved
02.01.2017 11:40:21 DP
NotSolved
02.01.2017 11:48:41 Onur
*****
Solved

Ansicht des Beitrags:
Von:
Onur		 Datum:
16.12.2016 17:21:38		 Views:
932		 Rating:
     
Antwort:
 Nein
Thema:
zelle vergleichen und gesamte zeile kopieren

Sub Makro2()
ze = 2: Rem Suche ab Zeile 2 - ggf  ändern
such$ = "xyz": Rem Hier wird der Suchstring übergeben - z.B.: such$=cells(3,3)
While Sheets("sheet1").Cells(ze, 1) <> "": Rem Mache Folgendes, bis bei spalte 1 (ggf ändern)- zeile ze die erste leere zelle gefunden wird
    If Sheets("sheet1").Cells(ze, 1) = such$ Then
        Sheets("sheet1").Select
        Range(Cells(ze, 1), Cells(ze, 10)).Select
        Selection.Copy
        Sheets("sheet2").Select
        Cells(ze, 1).Select
        ActiveSheet.Paste
    End If
    ze = ze + 1
Wend
End Sub

 

 

 

 

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
16.12.2016 14:54:34 DP
NotSolved
Blau zelle vergleichen und gesamte zeile kopieren
 16.12.2016 17:21:38 Onur
*****
Solved
02.01.2017 09:13:01 DP
NotSolved
02.01.2017 09:43:38 DP
NotSolved
02.01.2017 10:39:51 Onur
NotSolved
02.01.2017 10:57:08 DP
NotSolved
02.01.2017 11:14:00 Onur
*****
Solved
02.01.2017 11:40:21 DP
NotSolved
02.01.2017 11:48:41 Onur
*****
Solved