Thema Datum  Von Nutzer Rating
Antwort
02.09.2015 13:33:04 Peter
NotSolved
02.09.2015 13:37:30 Gast17814
NotSolved
Rot Werte suchen und Zeile kopieren
 03.09.2015 15:35:54 Gast45082
NotSolved
03.09.2015 15:37:28 Peter
NotSolved
03.09.2015 18:44:35 Günther
Solved

Ansicht des Beitrags:
Von:
Gast45082		 Datum:
03.09.2015 15:35:54		 Views:
827		 Rating:
     
Antwort:
  Ja
Thema:
Werte suchen und Zeile kopieren		 
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("a:a").FindNext(rng)
  Loop While Not rng Is Nothing And rng.Address <> sfirstaddress
End If

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
02.09.2015 13:33:04 Peter
NotSolved
02.09.2015 13:37:30 Gast17814
NotSolved
Rot Werte suchen und Zeile kopieren
 03.09.2015 15:35:54 Gast45082
NotSolved
03.09.2015 15:37:28 Peter
NotSolved
03.09.2015 18:44:35 Günther
Solved