Thema Datum  Von Nutzer Rating
Antwort
Rot Daten per schleife einlesen und wieder per schleife ausgeben!
 18.04.2012 15:56:56 b-baller-juka
NotSolved
18.04.2012 16:00:49 Gast26946
NotSolved
18.04.2012 19:01:48 Till
NotSolved
18.04.2012 19:04:02 Till
NotSolved
19.04.2012 14:20:48 Gast89230
NotSolved

Ansicht des Beitrags:
Von:
b-baller-juka		 Datum:
18.04.2012 15:56:56		 Views:
2025		 Rating:
     
Antwort:
  Ja
Thema:
Daten per schleife einlesen und wieder per schleife ausgeben!

Hallo zusammen,

 

ich habe folgendes Problem:

Ich habe ein Sheet und auf diesem Sheet sind 6 identische Vorlagen untereinander (also Seite 1-6). Nun möchte ich per Makro ab einer bestimmten Zeile immer 7 Spalten und 10 Zeilen einlesen.

Also beispielsweise ab C18, 7 Spalten nach rechts und 10 Zeilen nach unten einlesen. Das klappt beim ersten Blatt auch wunderbar. Nun muss ich aber die restlichen 5 Seiten auch einlesen können...

 

so lese ich ein...

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Range("C18").Select
         
            For o = 0 To 9
             
                    Items(o, 0) = Range("C18").Offset(o, 0).Value
                     
                    Items(o, 1) = Range("D18").Offset(o, 0).Value
                     
                    Items(o, 2) = Range("E18").Offset(o, 0).Value
                     
                    Items(o, 3) = Range("F18").Offset(o, 0).Value
                     
                    Items(o, 4) = Range("G18").Offset(o, 0).Value
                     
                    Items(o, 5) = Range("H18").Offset(o, 0).Value
                     
                    Items(o, 6) = Range("I18").Offset(o, 0).Value
 
</span>
?
1
2
3
4
5
6
7
counter = 0
 
   For o = 0 To 9
       For i = 0 To 6
           counter = counter + 1
           Selection.Offset(0, 17 + counter).Value = Items(o, i)
       Next

 

Wie kann ich bestimmte Bereiche einlesen und dann auch alle wieder ausgeben? Gesagt sei auch, dass alle Zeilen in einer neuen Datei in eine EINZIGE Zeile nach rechts geschrieben werden.

 

Bei Fragen könnt ihr euch nochmal gerne an mich wenden.

 

Grüße,

 

b-baller-juka

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot Daten per schleife einlesen und wieder per schleife ausgeben!
 18.04.2012 15:56:56 b-baller-juka
NotSolved
18.04.2012 16:00:49 Gast26946
NotSolved
18.04.2012 19:01:48 Till
NotSolved
18.04.2012 19:04:02 Till
NotSolved
19.04.2012 14:20:48 Gast89230
NotSolved