Excel Drehfeld Zellenzuweisung übernehmen?
Hallo Community, folgendes Problem: Ich haben eine Excel Tabelle mit ca 7 x 56 Feldern in denen je ein Drehfeld ist (es handelt sich um eine Art "wer hat wie viel konsumiert" in einem Club). Nun möchte ich dass jedes Drehfeld bei dieser großen Tabelle mit der Zelle links davon verknüpft ist, doch wenn ich jetzt die Zellenzuweisung bei jeden dieser Drehfelder ändern muss werde ich alt ;) Gibt es ein Makro der die Zellenzuweißung automatisch der Zelle links davon einstellt?
oder eine andere Art das Problem zu lösen.
Freu mich über jede Antwort. MFG hontsch
3 Antworten
Das "Handling" von Objekten ist eigentlich nicht so mein "Ding", aber ich habe es mal versucht.
Hier ist erstmal ein ganz primitives Makro, das den Drehfeldern in Tabelle2 (den Namen musst Du anpassen) der Reihe nach die Zellen von A1 bis Ax als Zellverknüpfung zuweist.
Teste das mal in einer KOPIE Deiner Datei (ich übernehme keine Garantie!).
Sub Drehfelder()
Dim Feld As Variant
Dim i As Integer
i = 1
With Sheets("Tabelle2")
For Each Feld In .Shapes
Feld.Select
Selection.LinkedCell = .Cells(i, 1).Address
i = i + 1
Next Feld
End With
End Sub
(Ich versuche eigentlich immer "Select" zu vermeiden, aber hier bekomme ich es ohne irgendwie nicht hin.)
Wenn das klappt, müsstest Du mal schauen in welcher Reihenfolge die Drehfelder durchlaufen werden und welche Zellen der Reihe nach verknüpft werden.
Dementsprechend muss dann i - und wahrscheinlich auch noch eine Variable j - aufgebaut werden, um mit cell(i,j) die jeweils richtige Zelle anzusprechen.
Danke für deine schnelle Antwort, hab das mal probiert...
im Grunde versteh ich was du vorgehabt hast, aber nach den Ausführen schreibt mir Excel: "Laufzeitfehler '438': Objekt unterstützt diese Eigenschaft oder Methode nicht" bei der Zeile "Selection.LinkedCell = .Cells(i, 1).Address"
Weist du was es da für ein Problem gibt?
Ok, hab das nochmal probiert in einer neuen Tabelle und jetzt funktioniert es wie es soll!
Vielen Dank :)