Thema Datum  Von Nutzer Rating
Antwort
15.02.2012 21:02:58 TW
NotSolved
Blau Daten auslesen waagrecht oder senkrecht je nach Suchbegriff
 16.02.2012 17:15:25 Holger
NotSolved
19.02.2012 18:28:16 Gast47815
NotSolved
21.02.2012 17:28:21 Holger
NotSolved

Ansicht des Beitrags:
Von:
Holger		 Datum:
16.02.2012 17:15:25		 Views:
859		 Rating:
     
Antwort:
  Ja
Thema:
Daten auslesen waagrecht oder senkrecht je nach Suchbegriff

Hallo TW,

ich habe dein Makro nicht vollständig analysiert, glaube aber, du im Bereich A1 bis Z100 immer nur das erste Auftreten der Suchbegriffe bestimmst und dann bereits auf das nächste Workbook gehst. Wenn das stimmt, könntest du den Suchteil gegen nachstehende Zeile austauschen. Ich auch diese nicht getestet, sie sollten aber im Wesentlichen laufen. Melde bitte den Erfolg!

With Workbooks(sWbName).Worksheets(1).Range("a1:z100")
    For i = 1 To iSbAnzahl
        Set rFound = .Find(sSuchbegriff(i), LookIn:=xlValues)
        If Not rFound Is Nothing Then
            firstAddress = rFound.Address
            vWert = Cells(rFound.Row, rFound.Column + 2).Value
            oMe.Cells(iZeile, i).Value = vWert
            Do
                Set rFound = .FindNext(rFound)
                If Not rFound Is Nothing Then
                    vWert = Cells(rFound.Row, rFound.Column + 2).Value
                    oMe.Cells(iZeile, i).Value = vWert
                End If
            Loop While Not rFound Is Nothing And c.Address <> firstAddress
        End If
    Next
End With

Gruß
Holger

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.02.2012 21:02:58 TW
NotSolved
Blau Daten auslesen waagrecht oder senkrecht je nach Suchbegriff
 16.02.2012 17:15:25 Holger
NotSolved
19.02.2012 18:28:16 Gast47815
NotSolved
21.02.2012 17:28:21 Holger
NotSolved