Thema Datum  Von Nutzer Rating
Antwort
13.12.2018 19:01:12 Merih
NotSolved
Blau Wert X suchen und alle Zeilen danach kopieren
 13.12.2018 19:56:03 Gast46799
NotSolved
14.12.2018 12:32:07 Merih
NotSolved
14.12.2018 17:27:44 Gast46799
NotSolved
14.12.2018 19:25:40 Gast46799
*****
Solved
14.12.2018 20:06:39 Merih
NotSolved

Ansicht des Beitrags:
Von:
Gast46799		 Datum:
13.12.2018 19:56:03		 Views:
513		 Rating:
     
Antwort:
  Ja
Thema:
Wert X suchen und alle Zeilen danach kopieren		 

Sub Problem123()
Dim rngH As Range, RngT As Range, RngZ As Range

   With ActiveSheet
      .Columns("C:C").ClearContents
      Set rngH = Columns("A").Find(What:="Haupttext", LookIn:=xlValues, LookAT:=xlWhole)
      If rngH Is Nothing Then
         Call MsgBox("Haupttext - Begriff fehlt", vbExclamation, "Abbruch")
         Exit Sub
      End If
      
      Set RngT = .UsedRange.Columns("A")
      Set RngT = RngT.Offset(rngH.Row + 1).Resize(RngT.Rows.Count - (rngH.Row + 1))
      Set RngT = RngT.SpecialCells(2)
      
      RngT.Copy .Range("C1")
      
      Set RngZ = Columns("A").Find(What:="Termin", LookIn:=xlValues, LookAT:=xlWhole)
      If RngZ Is Nothing Then
         Call MsgBox("Termin - Begriff fehlt", vbExclamation, "Abbruch")
         Exit Sub
      End If
      
      Set RngZ = Range(RngZ.Offset(1), rngH.Offset(-1))
      Set RngZ = RngZ.SpecialCells(2)
      
      RngZ.Copy .Range("C" & .Rows.Count).End(xlUp).Offset(2)
      
   End With

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
13.12.2018 19:01:12 Merih
NotSolved
Blau Wert X suchen und alle Zeilen danach kopieren
 13.12.2018 19:56:03 Gast46799
NotSolved
14.12.2018 12:32:07 Merih
NotSolved
14.12.2018 17:27:44 Gast46799
NotSolved
14.12.2018 19:25:40 Gast46799
*****
Solved
14.12.2018 20:06:39 Merih
NotSolved