Thema Datum  Von Nutzer Rating
Antwort
Rot Schleife erstellen
 31.05.2020 18:59:51 eewd
Solved
31.05.2020 19:27:31 Gast34725
Solved
31.05.2020 22:21:28 Gast3333
Solved

Ansicht des Beitrags:
Von:
eewd		 Datum:
31.05.2020 18:59:51		 Views:
1254		 Rating:
     
Antwort:
 Nein
Thema:
Schleife erstellen

Hallo,

mein Problem besteht darin, habe eine Tabelle mit mehr als 50 Tabellenblätter. Aus den Tabellenblättern fass ich Daten in einem neuen Tabellenblatt zusammen.

Die Verknüpfung auf das erste Tabellenblatt fangen in Zelle B9 an. z.B. ='1'!$D$6 und enden bei AO9

Dann kopier ich die Zellen nach unten, dabei bleibt der Bezug natürlich auf Tabellenblatt eins.

Mit Makro aufzeichnen habe ich den Code zum ändern des Tabellenblatts aufgezeichnet.

Hat auch funktioniert.

Nun hat sich die Anzahl der Spalten geändert. Ich ende jetzt bei AX9

Nun müßte ich im Makro den Befehl vervielfältigen, das ist umständlich.

Nun bin ich darauf gestoßen, dass das mit einer Schleife eleganter zu lösen wäre - leider habe ich keine Ahnung wie eine Schleife für mein Problem aussähe.

Vielleicht kann mir hier jemand helfen - das wäre super.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
ActiveCell.Replace What:="(1)", Replacement:="(2)", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Cells.Find(What:="(1)", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate
ActiveCell.Replace What:="(1)", Replacement:="(2)", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Replace What:="(1)", Replacement:="(2)", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate
 
ActiveCell.Replace What:="(1)", Replacement:="(3)", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Cells.Find(What:="(1)", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
    , SearchFormat:=False).Activate
ActiveCell.Replace What:="(1)", Replacement:="(3)", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Replace What:="(1)", Replacement:="(3)", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate

 

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 Schleife erstellen
 31.05.2020 18:59:51 eewd
Solved
31.05.2020 19:27:31 Gast34725
Solved
31.05.2020 22:21:28 Gast3333
Solved