Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Felder prüfen ob leer, falls ja, andere Felder kopieren
zurück: Arbeitsmappen zu einer Gesamtmappe weiter: Problem mit FormulaLocal Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gonzo1
Gast


Verfasst am:
10. Jul 2009, 16:12
Rufname:

Felder prüfen ob leer, falls ja, andere Felder kopieren - Felder prüfen ob leer, falls ja, andere Felder kopieren

Nach oben
       Version: Office XP (2002)

Hallo zusammen,

ich möchte gerne aus mehreren Excel-Dateien Datenreihen auslesen, wenn die Zelle links von der obersten Zelle leer ist (kein String enthält).

Sofern ich diese Bedingung nicht vorgebe (und eine for-Schleife nutze) klappt dies sehr gut. Leider haben nicht alle Dateien die gleiche Anzahl von Spalten. Zudem sind die Spalten nicht zusammenhängend (jeweils 2 Zeilen dazwischen).

Vermute daher, dass ich dem Datentyp "String" ein Problem habe.

Anbei ein Auszug aus meinem Code

['Quelldatei öffnen
'und 1. Registerblatt auswählen
Set wkbInput = Application.Workbooks.Open(strPath & "\" & strFile)
Set wksInput = wkbInput.Worksheets("sheet1")
wksInput.Activate

'Daten auslesen
wkbName = ActiveWorkbook.name

i = startSpalte
jumperColumns = 3

Do Until IsEmpty(Cells(startZeile, i - 2))

wksInput.Activate
ideaNr = Cells(startZeile, i - 2).Value
ideaDes = Cells(startZeile + 1, i - 2).Value
wksInput.Range(Cells(startZeile, i), Cells(endZeile, i)).Select
Selection.Copy
meins.Activate
MySheet.Activate

'Zaehler für Ursprungstabelle um 3 hochsetzen
Debug.Print i
i = i + 3
Debug.Print i

'Ideebeschreibung und Nr einfuegen
MySheet.Cells(2 + delta, jumperColumns).Value = ideaNr
MySheet.Cells(3 + delta, jumperColumns).Value = ideaDes

'Bewertungen einfuegen
MySheet.Range(Cells(4 + delta, jumperColumns), Cells(4 + (endZeile - startZeile) + delta, jumperColumns)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

'Spalte eine weiter in Zieldatei
jumperColumns = jumperColumns + 1

Loop
]

Bei dieser Variante zieht Excel nur die erste Spalte von mehreren und geht dann zur nächsten Datei.

Vielen Dank für eure Tipps.

Gruß,
Gono1[/code]
neckit
Bin verliebt in VBA! Doch Liebe macht blind!


Verfasst am:
10. Jul 2009, 21:48
Rufname:

AW: Felder prüfen ob leer, falls ja, andere Felder kopieren - AW: Felder prüfen ob leer, falls ja, andere Felder kopieren

Nach oben
       Version: Office XP (2002)

Hallo Gonzo1,

irgendwie komme ich nicht mit Deiner Beschreibung klar.
Kann es sein, das du dich da teilweise mit Spalten und Zeilen verhaspelst?
Mir geht es jedenfalls so, das ich nicht genau identifizieren kann, was du tun willst.

Im Code setzt du den Zeilenzähler jedenfalls nicht hoch und liest daher immer nur die erste Zeile jeder Datei. Ist das Deine Absicht?

Vielleicht kannst du noch mal neu beschreiben, was genau du tun willst und den Code auf das notwendigste - für die Problemlösung - beschränken.

Dann wird dir bestimmt auch geholfen.

Gruß
Ralf
gonzo1
Gast


Verfasst am:
20. Jul 2009, 09:52
Rufname:


AW: Felder prüfen ob leer, falls ja, andere Felder kopieren - AW: Felder prüfen ob leer, falls ja, andere Felder kopieren

Nach oben
       Version: Office XP (2002)

Hallo neckit,

zunächst vielen Dank für deine schnelle Antwort auf meine, beim zweiten Mal lesen, sehr kryptische Fragestellung.

Allerdings habe ich das Problem nach einer Woche Urlaub und etwas Abstand schnell gelöst bekommen.

Der Code macht nun tatsächlich was ich möchte (geht vermutlich auch wesentlich eleganter). Mein Fehler lag in der Do Until Schleife. Dort habe ich nach dem Durchlaufen der Schleife das Quelldatenblatt nicht mehr wieder aktiv gesetzt (was eine kleine Zeile nicht alles schafft).

In diesem Sinne noch fröhliches Proggen.

Gruß Gronzo1
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Kopieren von Formeln ohne Änderung des Bezugs? 3 madigo 1373 07. Sep 2005, 16:10
madigo Kopieren von Formeln ohne Änderung des Bezugs?
Keine neuen Beiträge Excel Formeln: Fußzeile in mehrere Exceldateien kopieren oder übergeben ... 2 nugget 1453 02. Aug 2005, 10:53
nugget Fußzeile in mehrere Exceldateien kopieren oder übergeben ...
Keine neuen Beiträge Excel Formeln: Runden über Tabellenblatt kopieren 2 CK_one_Gast 1489 27. Jul 2005, 10:01
CK_one_Gast Runden über Tabellenblatt kopieren
Keine neuen Beiträge Excel Formeln: Werte und leer Zellen addieren 6 Vsdon 1039 11. Jul 2005, 15:31
ae Werte und leer Zellen addieren
Keine neuen Beiträge Excel Formeln: Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren! 1 8Ball 1994 02. Jun 2005, 14:42
mruettler Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren!
Keine neuen Beiträge Excel Formeln: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren 2 Unregistered7 1556 05. Mai 2005, 22:32
Gast Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren
Keine neuen Beiträge Excel Formeln: Excel Problem: kopieren von mehreren Werten aus vielen Zeile 7 Darwin 972 04. Mai 2005, 07:59
Darwin Excel Problem: kopieren von mehreren Werten aus vielen Zeile
Keine neuen Beiträge Excel Formeln: farbige (nicht weiße) felder zählen 1 stoye46 5496 01. März 2005, 17:23
Hübi farbige (nicht weiße) felder zählen
Keine neuen Beiträge Excel Formeln: Formel zum kopieren 1 Fazer 665 26. Feb 2005, 18:12
G Formel zum kopieren
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Formel kopieren 5 Mike Hoffmann 1875 17. Jan 2005, 15:58
Mike Hoffmann Formel kopieren
Keine neuen Beiträge Excel Formeln: Zellinhalte KOPIEREN 5 hilfloses Wesen 1732 23. Dez 2004, 13:42
Gast Zellinhalte KOPIEREN
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: JavaScript