Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Problem mit einer Verschachtelung

Problem mit einer Verschachtelung
19.07.2004 11:05:54
Chris
Hallo zusammen,
habe ein kleines Problem!
Ich habe eine Tabelle, in ihr möchte ich prüfen, ob die erste Zeile beschrieben ist! Danch möchte ich die Zeilen und Spalten kopieren und in eine andere Tabelle übertragen! funktioniert leider nicht!
Denke es liegt an meiner Verschachtelung!
Mein Makro so far!
Worksheets("......").Activate
j=0
Do While Cells(30,3+j) ""
j = j +1
Loop
k=j
For i = 30 to 45
For j = 3 to k
zelle = Stringändern(ActiveSheet.Range(Cells(i,k),Cells(i,k).Value)
Next j
Next i
Wäre klasse, wenn mir jemand helfen könnte!
Danke im Voraus!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem mit einer Verschachtelung
19.07.2004 11:08:53
joel
hallo chris
ist es möglich, dass du hier "k" mit "j" ersetzen musst?
zelle = Stringändern(ActiveSheet.Range(Cells(i,k),Cells(i,k).Value)
also
zelle = Stringändern(ActiveSheet.Range(Cells(i,j),Cells(i,j).Value)
gruss joel
AW: Problem mit einer Verschachtelung
19.07.2004 11:11:32
Chris
Habe es so auch schon versucht, leider schreibt er mir die Daten nicht in die nächste Reiche! Hättest mir noch ne andere Idee, wie ich so ne Verschachtelung machen könnte!?
AW: Problem mit einer Verschachtelung
Felix
Hallo,
Verschachtelung ist soweit okay, aber was soll die Zeile
zelle = Stringändern(ActiveSheet.Range(Cells(i,k),Cells(i,k).Value)
bewirken?
Felix
AW: Problem mit einer Verschachtelung
Ramses
Hallo
Der Fehler liegt in der Variable K.
Sie enthält das Maximum auf das du in deiner Cells-Anweisung verweist
For i = 30 to 45
For j = 3 to k
zelle = Stringändern(ActiveSheet.Range(Cells(i,k),Cells(i,k).Value)
Next j
Next i
Muss lauten
For i = 30 to 45
For j = 3 to k
zelle = Stringändern(ActiveSheet.Range(Cells(i,j),Cells(i,j).Value)
Next j
Next i
Gruss Rainer
Anzeige
AW: Problem mit einer Verschachtelung
Felix
Stimmt.
Außerdem fängst du ja in Zeile 3 an, also müsste es heißen:
For j = 3 to k+2
AW: Problem mit einer Verschachtelung
19.07.2004 11:16:14
Chris
Ich versuche die Daten von Exel nach Word zu bringen!
Deswegen Stringändern (ist ein Subprogramm)
Danke für Die Hilfe!
Probiers mal!

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige