Variable nicht richtig deklariert

Question

Hallo Excel Freunde,
kann mir einer die Variable A1:A12 in diesem Script richtig einbauen bzw. lauffähig machen.Gruß kallie

Sub Makro2()
Dim Zelle As Range
Dim ELager As Variant
Dim IndZaehler As Integer
Range ("A1:A12")
With Worksheets("Tabelle1")
ELager = .Cells(12, 1)
For IndZaehler = 12 To 2 Step -1
.Cells(IndZaehler, 1) = .Cells(IndZaehler - 1, 1)
Next IndZaehler
.Cells(1, 1) = ELager
End With

End Sub

Answer 1

hi kallie ^^

sag welcher bereich

gruss nighty

Answer 2

hi kallie ^^

schon mal vorweg

gruss nighty

Sub Tauschen()
Dim Tzahlen() As Variant
Dim zaehler As Integer
Tzahlen = Array(1, 2, 3, 4, 2, 1, 3, 4, 1, 3, 2, 4, 3, 2, 4, 1, 2, 3, 4, 1, 3, 4, 2, 1, 4, 2, 1, 3, 2, 4, 1, 3, 4, 1, 2, 3, 1, 2, 3, 4)
For zaehler = 0 To UBound(Tzahlen) Step 4
'zeile 1,2,3,4 wird bei den cells anweisungen angegeben,7 fuer spalte g
If Cells(1, 7) = Tzahlen(zaehler) And Cells(2, 7) = Tzahlen(zaehler + 1) And Cells(3, 7) = Tzahlen(zaehler + 2) And Cells(4, 7) = Tzahlen(zaehler + 3) Then
'hier genauso bei den naechsten 4 zeilen,1,2,3,4 wird bei den cells anweisungen angegeben,7 fuer spalte g
Cells(1, 7) = Tzahlen(zaehler + 4)
Cells(2, 7) = Tzahlen(zaehler + 5)
Cells(3, 7) = Tzahlen(zaehler + 6)
Cells(4, 7) = Tzahlen(zaehler + 7)
Exit For
End If
Next zaehler
End Sub

Answer 3

hi nighty,
äh du bist gut drauf, mit deiner schnellen Antwort, dafür müstest du noch extra Punkte bekommen.
ich werde dir die gleich geben, können wir uns danach noch mal schreiben wenn das dann bestätigt ist ?
Gruß kallie