Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: pepo1943 am Oktober 14, 2012, 11:57:18 Vormittag
-
Hallo Freunde,
ich habe folgendes Problem und hofedass mir einer helfen kann.
Das nachstehende Makro soll in Form einer if-Schleife die Zellen 1.10 un 1.11 abfragen und wenn beide den Wert >1 enthalten UND in der Zelle 1.18 kein Wert steht in diese Zelle den Wert von AB1 schreiben. Leider funktioniert es aber nicht, keine Fehlermeldung und kein Erfolg.
Sub AktualisierenReferenzkunden()
Application.ScreenUpdating = False
Dim rngData As Range
Dim intZeile As Variant
ActiveSheet.Unprotect Password:="a1b2c3"
ThisWorkbook.Sheets("Buchhaltung").Unprotect Password:="a1b2c3"
Sheets("Buchhaltung").Select
Range("A1").Activate
For intZeile = 5 To 3490
Set rngData = Selection
If rngData.Cells(1, 10).Value > 0 And rngData.Cells(1, 11).Value > 0 And rngData.Cells(1, 18).Value > 0 Then
rngData.Cells(1, 18).Value = Range("AB1").Value
End If
ActiveCell.Offset(1, 0).Select
Next intZeile
Range("AB1").Value = Range("AB1").Value + 1
End Sub
Vielen Dank
Peter
-
Hi Pter,
versuche es mal so:
Sub AktualisierenReferenzkunden()
Dim lngZeile As Long
With Worksheets("Buchhaltung")
.Unprotect Password:="a1b2c3"
For lngZeile = 5 To 3490
If .Cells(lngZeile, 10).Value > 0 And .Cells(lngZeile, 11).Value > 0 _
And .Cells(lngZeile, 18).Value > 0 Then _
.Cells(lngZeile, 18).Value = .Range("AB1").Value
Next lngZeile
.Range("AB1").Value = .Range("AB1").Value + 1
.Protect Password:="a1b2c3"
End With
End Sub
Bis später,
Karin
-
Hallo Karin,
vielen Dank, es funktioniert!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Beste Grüße
Peter