VBA Verketten mit einzelnen Zellen

Hallo,
ich möchte über mehrere Blätter immer in die Zeile 8 (z.B. C8) das Ergebnis von Verketten darstellen, welches sich im Fall der Zelle C8 aus der Formel =VERKETTEN(C1;"_";C2;"_";C3;"_";C4;"_";C5;"_";C6) ergibt. Dann könnte man das Ganze ja nach rechts ziehen und hätte das gewünschte Ergebnis.
Ich möchte das Ganze jedoch per VBA lösen, da ich sehr viele Blätter habe und es immer identisch ist. Einzig variiert, wie viele Spalten belegt sind. Dies sieht man auch in der Arbeitsmappe. Man müsste also wahrscheinlich in jedem Blatt in Zeile 1 die letzte beschriebene Zelle identifizieren.
Hier der Link zu der Datei:
https://www.herber.de/bbs/user/156634.xlsx
Vielen Dank schon einmal vorab
Gruß Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Formel_eingeben() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets With Range(ws.Range("C1"), ws.Range("XFD1").End(xlToLeft)).Offset(7, 0) .FormulaLocalR1C1 = "=VERKETTEN(R1C;""_"";R2C;""_"";R3C;""_"";R4C;""_"";R5C;""_"";R6C)" Next Next End Sub

Hi
Manche Antworter schreiben die Codes oft direkt ins Forum und nicht in den VBA-Editor
dann ist der Code natürlich nicht auf Fehler oder so getestet.
Das ist meinsten dann der Fall, wenn es nur kurze Sachen sind und der Fragesteller keine Beispieldatei hochgeladen hat, in der man den Code testen könnte.
Dann ist es natürlich sehr wahrscheinlich, dass sich da Tipp- und Flüchtigkeitsfehler einschleichen, die dann nicht erkannt werden.
Aber das solltest du als zusätzlichen Ansporn nehmen, denn viele Antworter gehen davon aus, dass die Fragesteller selber programmieren lernen wollen und nicht einfach nur kostenlos fertige Codes abgreifen und anwenden möchten, ohne diese zu verstehen (wenn man das will, sollte man sich besser an einen professionellen Dienstleister wenden)
Und wer selber programmieren will, sollte irgendwann auch mal lernen, mit fehlern umzugehen.
Da du dich mit "VBA-Bescheiden" eingestuft hast, sollte dir der Fehler auffallen und du solltest ihn auch korrigieren können, da es sich ja nur um wenige einfache Codezeilen handelt, ich kürze es mal auf das wesentliche, vielleicht fällt dir was auf.
achte auf die Einrückungen sowie die Start- und Endzeile jedes Blocks (ein Block ist immer das, was in der selben Einrückungsebene steht) und schaue, ob diese zueinander passen:


    For Each ws In ...
With Range(...)
.FormulaLocalR1C1 = "..."
Next
Next

Gruß Daniel

dim sh as Worksheet dim sp as long for each sh in thisworkbook.worksheets sp = sh.Cells(1, columns.count).end(xltoleft).column sh.Cells(8, 3).Resize(1, sp - 2).formulalocal = "=VERKETTEN(C1;""_"";C2;""_"";C3;""_"";C4;""_"";C5;""_"";C6)" Next

Beliebteste Forumthreads (12 Monate)

VBA Verketten mit einzelnen Zellen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Verketten mit einzelnen Zellen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread