Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Markierte Zellen Zusammenfassen per VBA
26.03.2007 19:16:04
lobby007
Hallo Excel Spezialisten,
ich habe in mehreren Zellen Untereinander Inhalte stehen. (Könnten auch nebeneinander stehen)
Die Inhalte der Zellen (i.d.R. Texte) sollen jetzt in einer Zelle zusammengefasst werden.
Am besten wäre es man markiert den Bereich, drückt auf Kopieren, geht dann in die Ziel-Zelle und gibt den speziellen Einfügebefehl ein und alles ist zusammengefasst.
Geht das?
gruß lobby007

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markierte Zellen Zusammenfassen per VBA
26.03.2007 20:39:15
Ramses
Hallo
1. Darf es VBA sein ?
2. "....und alles ist zusammengefasst..."
Horizontal oder Vertikal ?
Gruss Rainer
AW: Markierte Zellen Zusammenfassen per VBA
26.03.2007 20:45:00
lobby007
Hallo Rainer,
ja VBA-Lösunge wäre am besten.
Gruß lobby007
Ja und nun ? Was ist mit 2 ? o.w.T.
26.03.2007 21:12:41
Ramses
...
AW: Markierte Zellen Zusammenfassen per VBA
26.03.2007 21:25:00
lobby007
Hallo Ramses - da steht nichts drin.
gruß lobby007
Dann lassen wir es....
26.03.2007 22:58:05
Ramses
Hallo
.. ich kann dir nicht Nichtzusammenhängende Zellen kopieren ohne zu wissen wie ich sie wieder einfügen muss.
Grus Rainer
AW: Markierte Zellen Zusammenfassen per VBA
26.03.2007 23:10:00
Daniel
Hallo
Probier mal das Makro:

Sub Zusammenfassen()
Dim Text As String
Dim Zelle As Range
Dim TrennZ As String
'TrennZ = "" 'Direkt aneinander
'TrennZ = " " 'Leerzeichen
TrennZ = Chr(10) 'Neue Zeile
For Each Zelle In Selection
Text = Text & Zelle.Value & TrennZ
Next
Set Zelle = Nothing
On Error Resume Next
Set Zelle = Application.InputBox(Prompt:="Zielzelle auswählen", Type:=8)
On Error GoTo 0
If Not Zelle Is Nothing Then Zelle.Value = Left(Text, Len(Text) - 1)
End Sub
zum Ablauf:
- alle Zellen, die zusammengefasst werden sollen, markieren
- Makro starten (über Extras-Makro-Makros)
- Zelle markieren, in die der Text kopiert werden soll und OK drücken.
Falls du das Makro über eine bestimmte Taste starten willst, geht das über Extras-Makro-Makros-Optionen
gruß, Daniel
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige