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

VBA-Problem

VBA-Problem
20.09.2004 15:45:04
Stefan
Hallo,
ich habe gerade ein kleines VBA-Makro geschrieben.

Sub TEST()
Dim i As Integer
For i = 22 To Cells(65535, 22).End(xlUp).Row
If Cells(i, 22) <> 0 Then Cells(i, 35) = "0,01"
Next i
End Sub

Das Makro soll die Spalte 22 und 35 durchsuchen. Wenn in Spalte 22 ein Wert enthalten ist und in Spalte 35 keiner soll in die Spalte 35 (also die jeweilige Zeile natürlich) 0,01 eingetragen werden.
Mein Resultat ist der Fehler 13. Keine Ahnung wieso.
Die Spalten 22 und 35 enthalten Formeln. Muss ich evtl. diese durch die Werte ersetzen ?
thx
stefan

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Problem
harry
hi,
versuchs mal so:
If IsEmpty (Cells(i, 22) = False Then Cells(i, 35).Value = "0,01"
liebe grüße,
harry
AW: VBA-Problem
Stefan
Sorry, habe die alte Version eingestellt:

Sub TEST()
Dim i As Integer
For i = 22 To Cells(65535, 22).End(xlUp).Row
If Cells(i, 22) <> 0 And Cells(i, 35) = "" Then
Cells(i, 35) = "0,01"
Next i
End Sub

AW: VBA-Problem
Ulf

Sub TEST()
Dim i As Long
For i = 22 To Cells(65535, 22).End(xlUp).Row
If Cells(i, 22).Value <> 0 And Cells(i, 35).Value = "" Then
Cells(i, 35) = 0.01
Next i
End Sub

Ulf
Anzeige
danke...du hast es auf den punkt gebracht :-)
stefan
a

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige