Programm-Fehler <Else ohne If>
Ballie
ich habe ein Problem mit diesem Programm, ich wollte es so ändern, indem ich diese For Next Schleife zusätzlich rückwärts laufen lassen möchte. Man müßte die Zellen A1:A12 mit einer Zahlenfolge von 1:12 füllen. Im ersten VBA-Code läuft das Programm vorwärts und richtig, daraufhin habe ich es im zweiten VBA-Code geändertn danach läuft es nicht mehr und zeigt es die folgende Fehlermeldung
Gruß Ballie
1. Programm-VABA-Code
Sub Makro2()
Dim arrV As Variant, intNr As Integer
Dim ii As Integer, jj As Integer, varW As Variant
Range("A1:A12") = Range("A1:A12").Value
arrV = Application.Transpose(Range("A1:A12"))
intNr = IIf(Cells(15, 9) 12 Then jj = 1
Next ii
Range("D1:D12") = Application.Transpose(arrV) ' Ausgabe in D1:D12
Cells(15, 9) = intNr
Erase arrV
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
2. Programm VAB-Code' macht den Fehler
Sub Makro2()
Dim A As Integer
Dim B As Integer
Dim I As Integer
Dim II As Integer
arrV = Application.Transpose(Range("A1:A12"))
IntA = 11
intB = 12
For I = 1 To 4
IntA = IntA - 1
intB = intB - 1
For kk = IntA To intB
varW = arrV(kk)
arrV(kk) = arrV(kk + 1)
ElseIf kk 12 Then jj = 1
Range("D1:D12") = Application.Transpose(arrV)
End Sub