Thema Datum  Von Nutzer Rating
Antwort
15.07.2016 11:30:12 David
NotSolved
15.07.2016 11:41:11 Crazy Tom
NotSolved
15.07.2016 11:59:21 David
NotSolved
15.07.2016 12:03:24 Crazy Tom
NotSolved
15.07.2016 12:09:40 Gast80986
NotSolved
15.07.2016 12:13:57 David
NotSolved
15.07.2016 12:29:27 Crazy Tom
NotSolved
15.07.2016 12:55:32 David
NotSolved
15.07.2016 13:02:14 Crazy Tom
NotSolved
15.07.2016 13:04:09 David
NotSolved
Rot Benötige Hilfe zur "Find(Range)-Methode
15.07.2016 13:43:44 Crazy Tom
Solved
15.07.2016 14:19:09 David
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
15.07.2016 13:43:44		 Views:
738		 Rating:
     
Antwort:
 Nein
Thema:
Benötige Hilfe zur "Find(Range)-Methode

HI

so habe ich es getestet

die Gruppennummer und -Name werden in meinem Test

in die Spalten A und B der aktiven Tabelle eingefügt

Sub test()
    Dim Gruppennummer_Analyse As Range
    Dim firstAddress
    Dim lngZiel As Long
    Dim i As Integer
    lngZiel = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 1 To 10
    With Worksheets("Tabelle1") 'Blattnamen anpassen
            Set Gruppennummer_Analyse = .Columns(5).Find(i, LookIn:=xlValues, lookat:=xlWhole)
            If Not Gruppennummer_Analyse Is Nothing Then
                firstAddress = Gruppennummer_Analyse.Address
                Do
                    Cells(lngZiel, 1).Value = .Cells(Gruppennummer_Analyse.Row, 5)
                    Cells(lngZiel, 2).Value = .Cells(Gruppennummer_Analyse.Row, 6)
                    lngZiel = lngZiel + 1
                    Set Gruppennummer_Analyse = .Columns(5).FindNext(Gruppennummer_Analyse)
                Loop While Not Gruppennummer_Analyse Is Nothing And Gruppennummer_Analyse.Address <> firstAddress
            End If
    End With
    Next
End Sub

MfG Tom

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
15.07.2016 11:30:12 David
NotSolved
15.07.2016 11:41:11 Crazy Tom
NotSolved
15.07.2016 11:59:21 David
NotSolved
15.07.2016 12:03:24 Crazy Tom
NotSolved
15.07.2016 12:09:40 Gast80986
NotSolved
15.07.2016 12:13:57 David
NotSolved
15.07.2016 12:29:27 Crazy Tom
NotSolved
15.07.2016 12:55:32 David
NotSolved
15.07.2016 13:02:14 Crazy Tom
NotSolved
15.07.2016 13:04:09 David
NotSolved
Rot Benötige Hilfe zur "Find(Range)-Methode
15.07.2016 13:43:44 Crazy Tom
Solved
15.07.2016 14:19:09 David
NotSolved