VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Timski	Datum: 22.11.2016 12:58:52	Views: 1026	Rating:	Antwort:
Thema: Spaltenzuweisung
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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen