Spaltenzuweisung

[Timski]

Hallo,
ich habe eine Excel-Tabelle mit ca. 1200 Spalten (Spalte A:Länge, Spalte B:Breite, Spalte C:Gewicht...).
Die Zellen bei jeder Spalte sind teilweise ohne Werte.
Ich möchte dem Wert in den jeweiligen Zellen den Spaltenname zuweisen, zB. die Zelle A28 hat den Wert "123", diesen möchte ich in "Spaltenname:123" umwandeln.
würde sowas mit Makros gehen!?
Vielen Dank im Voraus.

[Luffy]

Hallo,

weis nicht ob das für dich eine Option ist:

Rechtsklick auf Zelle - Benutzerdefiniert - und  dann bei Typ: 

Code:

"Spaltenname: "0

oder als Formel in eine Zelle: (Zeile 28)

Code:

="Spaltenname :"&A28

[Timski]

Hallo Luffy,

danke für den Tipp, leider komme ich damit nicht weiter.

Gruß
Tim

[steve1da]

Hola,

@Luffy: ich glaube es war eher gemeint, den Werten den jeweiligen Spaltennamen aus Zeile 1 voranzustellen.

Gruß,
steve1da

[Timski]

genau, das ist gemeint steve1da!
Gruß
Timski

[IchBinIch]

Hi,

ich habe das so verstanden:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C
1	Länge	Breite	Gewicht
2	45	21	45
3	17	57	59
4	18	40	39
5	32	58	24
6		58	31
7	49	23	21
8	18		25
9	34	38
10	24	50	54
11	43	25	31
12	33	20	40
13	50	60	23

Code:

Sub Verketten()
Dim z As Long
Dim s As Long

For s = 1 To 3
   For z = 2 To Cells(Rows.Count, s).End(xlUp).Row
       If Not IsEmpty(Cells(z, s)) Then
           Cells(z, s).Value = Cells(1, s).Value & ": " & Cells(z, s)
       End If
   Next z
Next s

End Sub

Gruß
Ich

[RPP63]

Moin!
Mir ist der Sinn hinter der Geschichte unklar.
Durch die Verkettung zerschießt es Dir jede Auswertung!
Geht es Dir nur darum, die Überschriften immer zu sehen?
Dann Ansicht, Fenster einfrieren, oberste Zeile
Alternative:
Mache aus der Tabelle ein List-Objekt (Einfügen, Tabelle)
Dann wandern die Überschriften beim Scrollen in die Spaltenköpfe.

Gruß Ralf

[Timski]

Hallo Zusammen,

mir geht's darum aus

Spalte B
Gewicht
11kg
12kg
13kg
14kg
....

Spalte B
Gewicht
Gewicht:11kg
Gewicht:12kg
Gewicht:13kg
Gewicht:14kg

und zwar bei ca. 1200Spalten mit verschiedenen Eigenschaften (Gewicht, Länge, Durchmesser...)

[IchBinIch]

Ich denke genau das macht mein Makro.

Wobei ich Ralf zustimme, auswerten wird dann haarig.
Der Tabellenausschnitt von mir oben, ist der Ursprungszustand. Das Makro liefert das was Du bezweckst.

[RPP63]

Moin mal wieder!
Gibt es 1.200 verschiedene Eigenschaften??
Da dürfte selbst der Duden Schwierigkeiten haben, die zusammen zu bekommen …
Davon ab:
Nur 1.000 Datensätze mit 1.200 Eigenschaften à durschn. 10 Buchstaben blähen Dein Blatt um schlappe 12 MByte auf.

Nun, Gottes Wille ist sein Himmelreich!
Nimm ein Array, wenn Du vor morgen fertig sein willst:

Sub Quatsch()
Dim arrTemp As Variant
Dim cnt&, col&
With Range("A2", Range("A2").SpecialCells(xlLastCell))
   arrTemp = .Value
   For cnt = 1 To Ubound(arrTemp)
      For col = 1 To ActiveSheet.UsedRange.Columns.Count
         arrTemp(cnt, col) = Cells(1, col) & ": " & arrTemp(cnt, col)
      Next
   Next
   .Value = arrTemp
End With
End Sub

Gruß Ralf