Funktion gesucht

17/08/2008 - 13:59 von Christian Hahn | Report spam
Hallo,
für Excel 2000 hàtte ich gerne 2 Funktionen bzw. Makros.

1.) Ich möchte die Werte, die in einer Zeile nebeneinander stehen, in eine
Spalte untereinander bringen und umgekehrt.
Also: A1, B1, C1 ... soll werden zu A1, A2, A3 ...

2.) Die Funktion VERKETTEN ist sehr umstàndlich, weil ich ja doch jeden
Zellnamen einzeln eintippen muss.
Ich hàtte gerne etwa folgendes: Entweder, man gibt in eine Funktion nur den
ersten und den letzten Zellnamen ein ( =VERKETTEN(A1:C1) geht ja nicht),
oder man markiert die betr. Zellen und startet ein Makro.

Der Code dazu könnte vielleicht so aussehen:
Dim tmpText As String
For Each c In ActiveSheet.Range(Cells(1, 1), Cells(1, 4))
tmpText = tmpText & c.Value & " "
Next

Nun fehlt mir aber noch die Übernahme der ersten und letzten Zelle der
Markierung
und die Bezeichnung für eine gewünschte Ziel-Zelle in Relation zur
Markierung.

besten Dank für Rat und Hilfe, Christian Hahn.
 

Lesen sie die antworten

#1 Hajo_Zi
17/08/2008 - 14:08 | Warnen spam
Hallo Christian,

zu1) Bereich markieren, kopieren, Zielzelle wàhlen, Bearbeiten, Inhalte
einfügen, transponieren.


Gruß Hajo
MVP für Microsoft Excel
Betriebssystem Vista Ultimate SP1 und Excel Version2007 SP1
http://Hajo-Excel.de/


"Christian Hahn" wrote:

Hallo,
für Excel 2000 hàtte ich gerne 2 Funktionen bzw. Makros.

1.) Ich möchte die Werte, die in einer Zeile nebeneinander stehen, in eine
Spalte untereinander bringen und umgekehrt.
Also: A1, B1, C1 ... soll werden zu A1, A2, A3 ...

2.) Die Funktion VERKETTEN ist sehr umstàndlich, weil ich ja doch jeden
Zellnamen einzeln eintippen muss.
Ich hàtte gerne etwa folgendes: Entweder, man gibt in eine Funktion nur den
ersten und den letzten Zellnamen ein ( =VERKETTEN(A1:C1) geht ja nicht),
oder man markiert die betr. Zellen und startet ein Makro.

Der Code dazu könnte vielleicht so aussehen:
Dim tmpText As String
For Each c In ActiveSheet.Range(Cells(1, 1), Cells(1, 4))
tmpText = tmpText & c.Value & " "
Next

Nun fehlt mir aber noch die Übernahme der ersten und letzten Zelle der
Markierung
und die Bezeichnung für eine gewünschte Ziel-Zelle in Relation zur
Markierung.

besten Dank für Rat und Hilfe, Christian Hahn.


Ähnliche fragen