Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1632to1636
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
Inhaltsverzeichnis

Zellen zusammen setzen

Zellen zusammen setzen
20.07.2018 15:55:04
kurt
Hallo zusammen,
ich suche ein Makro wobei ich auf Druck in der activen Zelle RECHTS von der activen Zelle die nächsten 4 Zellen, jeweils mit Leerzeichen getrennt zusammensetzen kann.
mfg
kurt k

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

Betreff
Datum
Anwender
Anzeige
Habe es selbst herausgefunden -)
20.07.2018 16:06:02
kurt
Hallo,
habe dies mal eingesetzt und es klappt.
Public Sub Texte_rechts_zusammensetzen()
ActiveCell = ActiveCell.Offset(0, 1).FormulaR1C1 & " " & ActiveCell.Offset(0, 2) & " " & _
ActiveCell.Offset(0, 3) & " " & ActiveCell.Offset(0, 4)
End Sub
gruß
kurt k
AW: Zellen zusammen setzen
20.07.2018 16:20:50
UweD
    With Application
        ActiveCell = Join(.Transpose(.Transpose(ActiveCell.Offset(0, 1).Resize(1, 4).Value)), " ")
    End With
LG UweD
Anzeige
Danke Uwe, wie kann ich die 4 Zellen anschließend
20.07.2018 16:33:49
kurt
Hallo Uwe,
DANKE.
Wie kann ich die 4 kopierten Zellen die Werte löschen ?
gruß
kurt k
Danke Uwe, wie kann ich die 4 Zellen anschließend
20.07.2018 16:33:50
kurt
Hallo Uwe,
DANKE.
Wie kann ich die 4 kopierten Zellen die Werte löschen ?
gruß
kurt k
Habe geschafft -)
20.07.2018 16:54:12
kurt
Danke,
habs geschafft
ActiveCell.Offset(, 1).Select
ActiveCell.Resize(, 4).ClearContents
ActiveCell.Offset(, -1).Select
gruß
kurt k
AW: Zelleninhalte entfernen, kein Select
21.07.2018 05:30:33
Gerd
Moin
ActiveCell.Resize(1, 4).Offset(0, 1).ClearContents

Gruß Gerd
Guten morgen Gerd, DANKE -)
21.07.2018 10:47:36
kurt
Guten morgen Gerd, DANKE -)
21.07.2018 10:47:38
kurt

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige