Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
15.02.2012 21:02:58 |
TW |
|
|
Daten auslesen waagrecht oder senkrecht je nach Suchbegriff |
16.02.2012 17:15:25 |
Holger |
|
|
|
19.02.2012 18:28:16 |
Gast47815 |
|
|
|
21.02.2012 17:28:21 |
Holger |
|
|
Von:
Holger |
Datum:
16.02.2012 17:15:25 |
Views:
861 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
Daten auslesen waagrecht oder senkrecht je nach Suchbegriff |
16.02.2012 17:15:25 |
Holger |
|
|
|
19.02.2012 18:28:16 |
Gast47815 |
|
|
|
21.02.2012 17:28:21 |
Holger |
|
|