Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen zusammen setzen

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige