Hallo Zusammen,
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 A2 hat den Wert "123", diesen möchte ich in "Spaltenname:123" umwandeln.
Spalte B
Gewicht
11kg
12kg
13kg
14kg
....
Spalte B
Gewicht
Gewicht:11kg
Gewicht:12kg
Gewicht:13kg
Gewicht:14kg
Ich habe es mit folgenden Code probiert:
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
If Not IsEmpty(arrTemp(cnt, col)) Then _
arrTemp(cnt, col) = Cells(1, col) & ": " & arrTemp(cnt, col)
Next
Next
.Value = arrTemp
End With
End Sub
aber ab zeile 175 bricht die Aktion ab und ab einer bestimmten Spalte wird die Aktion ebenfalls nicht ausgeführt.
Ich bekomme folgende Fehlermeldung:
Laufzeitfehler 9: Index außerhalb des gültigen Bereiches.
wenn ich Debug klicke, wird die folgende Zeile im Code gelb markiert "If Not IsEmpty(arrTemp(cnt, col)) Then"
Könntet Ihr evt. weiterhelfen!?
Danke im Voraus.
Gruß
Timski
|