Microsoft Excel

Herbers Excel/VBA-Archiv

Hilfe beim abändern des Makros | Herbers Excel-Forum


Betrifft: Hilfe beim abändern des Makros von: Josef_T
Geschrieben am: 19.01.2012 06:13:36

Guten Morgen zusammen,

kann mir bitte jmd helfen, dass Makro so abzuändern, dass die Funktion erst ab Zeile 10 beginnt?

Dim intz1 As Integer
intz1 = Target.Cells.Row
With Me
If .Cells(intz1, 4).Value <> 0 Then .Cells(intz1, 5).Value = _
.Cells(intz1, 5).Value + .Cells(intz1, 4).Value: .Cells(intz1, 4).Value = ""
End With

Danke schon mal im Voraus.

Gruß
Josef

  

Betrifft: AW: Hilfe beim abändern des Makros von: Marc
Geschrieben am: 19.01.2012 06:21:17

Guten Morgen!
Versuch mal, eine einklammernder if-Bedingung einzubringen
Gruß, Marc

intz1 = Target.Cells.Row
if intz1 >= 10 then

With Me
If .Cells(intz1, 4).Value <> 0 Then .Cells(intz1, 5).Value = _
.Cells(intz1, 5).Value + .Cells(intz1, 4).Value: .Cells(intz1, 4).Value = ""
End With
end if


  

Betrifft: AW: Hilfe beim abändern des Makros von: Josef_T
Geschrieben am: 19.01.2012 06:39:47

Guten Morgen Marc,

so funktioniert es perfekt!

Danke sehr

Gruß
Josef


Beiträge aus den Excel-Beispielen zum Thema "Hilfe beim abändern des Makros"