Spaltenzuweisung

[RPP63]

Die Prüfung auf IsEmpty() macht natürlich Sinn, IchBinIch.

Edit:
Ich habe es mal eingearbeitet:

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

Gruß Ralf

[Timski]

Hallo Zusammen,

vielen Dank erstmals  für eure Beiträge.
um Makro zu erstellen gehe ich wie folgt vor:

In der Registerkarte „Entwicklertools“ finde ich Links unter „Code“ den Punkt „Makro aufzeichnen“. Sobald ich diesen anklicken, muß ich den Makronamen eingeben. Ich finde aber nirgends ein Feld wo ich den Code

Sub Quatsch()

....

End Sub


eingeben kann.

Gibt's andere Wege Makros zu erstellen!?

Danke im Voraus für Eure Hilfe

Gruß
Timski

[Kuwer]

Hallo Timski,

Guckst Du: Wie und wo fügt man ein Makro bzw. Code ein ;)

Gruß Uwe

[RPP63]

Du brauchst nicht erstellen, diese Arbeit habe ich Dir doch abgenommen.

1. Wechsel mit Alt+F8 in den VBA-Editor
   
2. Füge ein neues Modul ein (Einfügen, Modul)
   
3. Kopiere meinen Code in das Fenster
   
4. schließe den Editor (nicht unbedingt notwendig)
   
5. aktiviere das Blatt, wo das Gedöns stattfinden soll
   
6. Alt+F8 öffnet das Makro-Fenster
   
7. Starte das Makro Quatsch
   
8. enjoy!
   

Gruß Ralf

[RPP63]

Shit, Uwe!  :19:

Hab den Link nicht so schnell gefunden.  :16:
Hätte meiner Tastatur Abrieb erspart …

Gruß Ralf

[IchBinIch]

...

1. Wechsel mit Alt+F8 in den VBA-Editor
   
2. ...
   

Gruß Ralf

Nimm ALT+F11 statt F8 um den VBA-Editor zu starten.

Gruß
Ich

[RPP63]

Oops! 
Bin arm, habe mir die Tastatur vom Schrott zusammen gestöpselt, F11 war nicht greifbar.  :17:

Danke für den Hinweis auf den Tippfehler.

Gruß Ralf

[Timski]

Hallo Ralf,

Dein Skript scheint zu funktionieren, 1000Dank dafür, 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önntest du evt. weiterhelfen!?

Gruß
Timsky

[Timski]

Hallo zusammen,

hat jemand eine Idee, wie die ganze Mappe bearbeitet werden kann?

Danke im Voraus.

[schauan]

Hallöchen,

was steht denn in den beiden Variablen?