Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1088to1092
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Programm-Fehler <Else ohne If>

Programm-Fehler <Else ohne If>
Ballie
Hallo Excel Freunde,
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 , kann mir da jemand dieses Programm richtig programmieren.
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Programm-Fehler <Else ohne If>
26.07.2009 10:50:12
Hajo_Zi
Halo,
du hast aus welchem Grud auch immer die Zeile If kk = 1 Then gelöscht.

AW: Programm-Fehler <Else ohne If>
26.07.2009 11:17:17
Ballie
Hallo Hajo_Zi,
ja du hast recht, ich habe die Zeile vergessen zu kopieren.
Jetzt gibt es eines neues Problem in der Zeile .
Laufzeitfehler .9.
Index außerhalb des gültigen Bereichs.
Gruß Ballie
If gehört aber immer for End If oder ElseIf oT
26.07.2009 10:53:21
Matthias
Anzeige

212 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige