Zelleninhalt wird nicht kopiert

23.01.2025 12:19:18

Willi

Guten Morgen,

obwohl ich das Gefühl habe, daß mein Anliegen absolut trivial ist, will es mir syntaktisch nicht gelingen einen funktionierenden Code zu erstellen.


Sub RechnerListe()

'

X = 2                                                                                                                    ' Zeile

y = 2                                                                                                                     ' Spalte

For a = 9 To 21                                                                                                      ' Worksheets aus denen kopiert wird werden erhöht

    For b = 4 To 17                                                                                                   ' Zelle aus der kopiert wird

        Sheets(6).Cells(X, y) = Worksheets(Format(a, "00")).Range("V" & b).Value    ' kopieren nach Tabelle 6 - Spalte 9 - Zeile 4 etc.

        X = X + 1

    Next b

    X = 2

    y = y + 1

Next a

End Sub

Der Wert der in Worksheet(9) Zelle (V4) steht, wird gefunden aber wieso kopiert er nicht nach Tabelle (6)?

Wo liegt der Fehler. Ich - keine Ahnung.

Danke im Voraus

Willi

AW: Zelleninhalt wird nicht kopiert

23.01.2025 12:25:07

schauan

Hallöchen,

prüfe ob Du richtig liegst
z.B.
Sheets(6).Name
Sheets(6).Cells(X, y).Address

AW: Zelleninhalt wird nicht kopiert

23.01.2025 13:31:05

Willi

PASST!

zeigt auf $B$2, also genau dahin, wohin es soll.

AW: Zelleninhalt wird nicht kopiert

23.01.2025 12:52:39

Onur

Worksheets(Format(a, "00"))

bedeutet ja auch
Blatt mit dem NAMEN "09", und nicht Sheets(9) bzw das Blatt mit der NUMMER 9.

Worksheets(a)

wäre richtig !

AW: Zelleninhalt wird nicht kopiert

23.01.2025 13:37:11

Onur

Guckst du hier:

Userbild

Die Mappe hat 3 Blätter mit den CODENAMEN (die kannst du nicht ändern) Tabelle1, Tabelle2 und Tabelle3.
Die NAMEN lauten aber (die, die du auf den Reitern siehst): "Erste", "Zweite" und "Dritte".
SIe können SO angesprochen werden:

Sheets("Erste").Range("A1") 'mit NAMEN

oder

Tabelle1.Range("A1") 'mit CODENAMEN

oder

Sheets(1).Range("A1") ' mit Reihenfolge bei den Reitern - also das ERSTE Blatt

AW: Zelleninhalt wird nicht kopiert

23.01.2025 16:49:50

Willi

Danke an Alle.

Lösung gefunden dank ONUR.

Willi

AW: Zelleninhalt wird nicht kopiert

23.01.2025 12:55:41

schauan

... er schreibt aber, dass der Quellwert gefunden wird. Ich interpretiere das so, dass z.B. in der Überwachung oder beim Debug von Worksheets(Format(a, "00")).Range("V" & b).Value was steht ...

AW: Zelleninhalt wird nicht kopiert

23.01.2025 13:07:11

Onur

Was erwartest du denn bei: "Kaum Excel/VBA-Kenntnisse" ?
Er schreibt ja auch: "wieso kopiert er nicht nach Tabelle (6)? "
Die Frage ist ja auch noch: Wie heisst das Blatt jetzt richtig? Und wie ist der Codename?
Heisst sie jetzt "Tabelle (6)" oder "Tabelle6" oder wie?
Oder meint er einfach WorkSheets(6)?

AW: Zelleninhalt wird nicht kopiert

23.01.2025 13:22:56

schauan

... da sind wir uns einig und ich hoffe, dass er, wie geschrieben, z.B. mal Sheets(6).Name prüft ;-)

@TE
Gibt mehrerere ;-) Varianten

Tabelle6 --> deutsches Excel
Tabelle(6) --> gibt's nicht (... mehr, zuletzt vielleicht in Excel 4 oder 5)
Tabelle("6") --> gibt's nicht (... mehr, zuletzt vielleicht in Excel 4 oder 5)

oder auf engerlich

Sheets6 --> englisches Excel
Sheets(6)
Sheets("6")
oder auch Worksheets("6") oder ...("06")

...(6) wäre das 6. Blatt in Bezug auf die Position der Blattreiter. Wenn Du das verschiebst, steht ein anderes Blatt an Position 6 ...

AW: Zelleninhalt wird nicht kopiert

23.01.2025 15:23:29

Willi

Erstmal herzlichen Dank für die Unterstützung.

Hat schonmal dazu geführt, daß ich festgestellt habe, daß ich auch noch einen Logikfehler drin hatte. SORRY!

Hier nun also mit der von mir gewünschten Logik.

Führt aber leider nicht dazu, daß die Daten aus der Tabelle 11 in die Tabelle "Rechner" übertragen werden.

Nebenbei: Ist es richtig, daß man die Tabelle aus der kopiert werden soll mit "Worksheets(a).Select" erstmal ansprechen muß, damit die Daten übernommen werden; denn erst seit ich das mache, bekomme ich wenigstens die Daten angezeigt: "MsgBox "Inhalt aus der Von Tabelle: " & Range("V" & b)"



Sub RechnerListe()

' Rechner Liste erneuern

'

X = 2                                                                                           ' Zeile

y = 2                                                                                           ' Spalte



For a = 11 To 23                                                                                 ' Worksheets werden erhöht

     y = 2

     X = 2

     Worksheets(a).Select

     For b = 4 To 17                                                                            ' Zelle aus der kopiert wird

         Worksheets("Rechner").Cells(X, y) = Worksheets(Format(a, "00")).Range("V" & b).Value   ' kopieren nach Rechner Spalte 9 Zeile 4 etc.

MsgBox "Adresse in der Zieltabelle:   " & Worksheets("Rechner").Cells(X, y).Address

MsgBox "Inhalt aus der Von Tabelle:   " & Range("V" & b)

        y = y + 1

    Next b

    X = X + 1

'    If a = 12 Then GoTo ende

Next a

' ende:



End Sub

MsgBox "Adresse in der Zieltabelle: " & Worksheets("Rechner").Cells(X, y).Address
MsgBox "Inhalt aus der Von Tabelle: " & Range("V" & b)

Die angesprochene Zelle ist ebenso wie der Wert absolut richtig.

Willi

PS: Zu allem Übel kommt jetzt noch dazu, daß beim Starten das Kopieren (geht da natürlich auch nicht) der Laufzeitfehler 9 bei erreichen der Tabelle 3 erscheint. Bis dahin gibt es den Fehler nicht???? ist aber erstmal ein Nebenkriegsschauplatz.

AW: Zelleninhalt wird nicht kopiert

23.01.2025 15:31:31

Onur

Noch einmal: Was soll der Quatsch mit

Worksheets(Format(a, "00"))

???
Wenn du z.B "Tabelle11" meinst und a =11 ist,musst du

Worksheets("Tabelle" & a)

schreiben.
Format(a, "00") ergibt bei a=1 den Text "01" und nicht "1" bzw "Tabelle1".
Du suchst also mit dem obersten Code Das Blatt mit dem Namen "04" bis "17".
DAS ist doch nicht deine Absicht - oder ???

Zelleninhalt wird nicht kopiert

Forumthread: Zelleninhalt wird nicht kopiert

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Zelleninhalt wird nicht kopiert

Forumthread: Zelleninhalt wird nicht kopiert

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread