Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
672to676
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
672to676
672to676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Auswahlfehler

Auswahlfehler
30.09.2005 09:58:40
Daniel
Hallo Leute.
Ich habe diesen einfachen Code hier. Aber erzeigt mir bei der Auswahl von Range("G"&z) einen Fehler an. Wieso? Wen ich das dann testweise auskommentiere zeigt er bei der If abfrage einen Fehler an. Ist der Code ein einziger großer Fehler? hat jemand ne Idee wie ich die fehler raus bekommen?
Vielen Dank für eure Mühe
Anzahl = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row

y = 30000
z = 5
For x = 5 To Anzahl
Sheets("Daten").Select
Range("G" & z).Select
If ActiveCell.Value = ">150000" And " Then
Range("G" & x) = y
End If
z = z + 1
Next x

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auswahlfehler
30.09.2005 10:08:09
Fred
Hi,

Sub til()
Dim Anzahl As Long, y As Integer, x As Long, z As Long
Anzahl = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
y = 30000
z = 5
Sheets("Daten").Select
For x = 5 To Anzahl
If Cells(z, 7) > 150000 And Cells(z, 7) < 150000 Then
Cells(z, 7) = y
End If
z = z + 1
Next x
End Sub

Wobei die Bedingung so > 150000 And Cells(z, 7) mfg Fred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige