Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Werte in verbundene Zellen mit Makro übertragen





Frage

Hallo zusammen, ich möchte aus Spalte A mit Werte in den Zellen 1-400 diese WErte in eine andere Spalte (B) des selben Arbeitsblattes übertragen. Das Problem ist, dass in diese SPalte jeweil 18 Zellen verbunden sind. Übernehme ich jeweils die ersten Werte mit (B1=A1;B19=A2") und ziehe dann die Werte runter(mit der Maus) dann erhalte ich für B37 nicht A3 sondern A37 als Wert. Was kann ich machen, damit hier dann der jeweils nächste WErte aus Spalte A übernommen wird? Danke im Voraus Blau

Antwort 1 von piano

Hallo
Da hast du nur eine Chance:
Statt "Zellen verbinden" Format / Horizontal: Über Auswahl zentrieren. Dann hast du nahezu den selben Effekt, aber die Zellen sind kopierbar.

Gruß piano

Es wäre nett, wenn Du ein Feedback abgeben könntest,
ob der Lösungsvorschlag Dein Problem gelöst hat.
- probieren geht über studieren -

Antwort 2 von JoeKe

Hallo Blau,

mit folgenden Code kannst du das realisieren:

Sub Makro1()
Dim zeile As Long, zeile1 As Long
zeile = 1
Do While zeile < Cells(Rows.Count, 1).End(xlUp)
For zeile1 = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 18
Cells(zeile, 2).FormulaLocal = "=A" & zeile1
zeile = zeile + 1
Next
Loop
End Sub



MfG

JöKe

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: