Ich hab in 3 verschiedenen Sheets verschieden lange Zellen (mit Text) ich würde jeweils in der letzten Zeile eine Verkettung der Zellen benötigen. Gibt es da einen fertigen Code?
LG
Thomas
LG
Thomas
Ein Code und keine Formel wenn möglich!
LG
Thomas
Di müßtest schon genauer schreiben was Du willst. Zellen verkettest Du mit =A1&A2
Gruß Hajo
aber in einem sheet hab ich texte von A1-A3
in dem anderen texte von A1-A5
und in den dritten von A1-A10
ich würde gerne ein automatisch verketten über alle sheets durchführen.
lg
thomas
ist es so zu verstehen, wie geschrieben
in Tabelle1 Daten von A1 bis A3 in alen Zeilen
in Tabelle2 Daten von A1 bis A5 in alen Zeilen
usw.
wo sollen die zusammen gefasten Werte hungeschrieben werden ??? immer in Spalte A??? sollen die einzelnen Zellen getrennt werden durch Leerstelle???
Gruß Hajo
entspricht dies Deinen Vorstellungen:
Viel Erfolg wünscht
WernerB.
sollte es so sein wie in meinem letzten Beitrag
Gruß Hajo
die zusammengefaßten Texte sollen in A4, A6 sowie A11 stehen. Jeweils in der ersten freien Zeile im jeweiligen Sheet.
LG
Thomas
ich habe jetzt hier keine Excel. Darum Lve
ändere die Zeile
.Cells(I, 1) = Wert
in
.Cells(I, J) = Wert
Gruß Hajo
Werd das gleich mal ausprobieren.
LG
Thomas
hab eine andere Variante programmiert:
Sub Verketten()
Dim intRow As Integer
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "ÜBERSICHT" Then
intRow = sh.Cells(Rows.Count, 4).End(xlUp).Row
For I = 2 To intRow
VERK = sh.Cells(I, 4).Text
sh.Cells(intRow + 1, 4) = VERK & " " & sh.Cells(intRow + 1, 4)
Next I
End If
Next
End Sub
Zur Info halt.
LG
Thomas
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen