Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Verkettenfunktion für Bereich

Betrifft: Verkettenfunktion für Bereich von: Marcus
Geschrieben am: 18.08.2004 09:05:44

Guten Morgen,

ich brauche ein Makro, das mir den Text von markierten Zellen (A3:A6) in eine Zelle (A2) kopiert.

Vielen Dank vorab
gruß
marcus

  


Betrifft: AW: Verkettenfunktion für Bereich von: joel
Geschrieben am: 18.08.2004 09:10:06

hallo marcus

text aus mehreren zellen in eine kopieren? wie soll das ganze verbunden werden?

hier ein vorschlag:

Sub Makro
dim r as range, c as range
dim s as string

ser r = tabelle1.range("A3:A6")
s = ""

for each c in r
if not isempty(c) then
s = s & cstr(c.value)
end if
next c

tabelle1.range("A2").value = s
End Sub


gruss joel

ps: code nicht getestet, sollte aber funzen


  


Betrifft: AW: Verkettenfunktion für Bereich von: Marcus
Geschrieben am: 18.08.2004 09:17:37

Hallo Joel,

wird das auch funzen, wenn ich der Bereich variabel ist? Ich möchte vorher den Bereich markieren und dann das Makro starten!
Wie muss der variable Bereich eingefügt werden?

gruss
Marcus


  


Betrifft: AW: Verkettenfunktion für Bereich von: joel
Geschrieben am: 18.08.2004 09:38:05

hallo marcus

klar doch!

einfach anstelle

ser r = tabelle1.range("A3:A6")

die zeile

set r = selection

gruss joel


ps: hab da grad noch n schreibfehler in meinem code gefunden ("ser" anstelle von "set"), hast du sicher auch bemerkt..


  


Betrifft: AW: Verkettenfunktion für Bereich von: Marcus
Geschrieben am: 18.08.2004 09:52:34

Danke!
Das läuft!


 

Beiträge aus den Excel-Beispielen zum Thema "Verkettenfunktion für Bereich"