Thema Datum  Von Nutzer Rating
Antwort
12.01.2009 14:54:14 Steffi
NotSolved
Blau Aw:VBA-Schleife - Division v. 2 Zellen in Leerzell
 14.01.2009 18:49:42 Holger
*
Solved

Ansicht des Beitrags:
Von:
Holger		 Datum:
14.01.2009 18:49:42		 Views:
793		 Rating:
     
Antwort:
 Nein
Thema:
Aw:VBA-Schleife - Division v. 2 Zellen in Leerzell
Hallo Steffi,
ich vermute, du möchtest die Werte aus Spalte Z durch die aus Spalte Y teilen, wenn sich in Spalte AC ein leeres Feld in der zugehörigen Zeile befindet.
Versuche
Sub Umschlagszahl()
Dim zelle As Range
lz = Cells(Rows.Count, 29).End(xlUp).Row
For Each zelle In Range("b1:b" & CStr(lz)).Cells.SpecialCells(xlCellTypeBlanks)
'MsgBox Range(zelle.Offset(1, 0), zelle.Offset(1, 0).End(xlDown)).Address
If val(Cells(zelle.Row, 29)) <> 0 Then zelle.Value = Cells(zelle.Row, 26) / Cells(zelle.Row, 25)
Next
End Sub
Du hast offenbar immer durch 0 geteilt, daher der Überlauf. Einen solchen Fehler kannst du abfangen. s.o.
Gruß
Holger

Steffi schrieb am 12.01.2009 14:54:14:

Hallo Leute,

Ich versuche gerade mit Hilfe einer Schleife in jeder Leerzelle 2 benachbarte
Zellen zu teilen, Jedoch kommt es immer zum Überlauf.
Welchen Datentyp brauche ich und ist die Syntax korrekt?
Vielen Dank im Voraus.


Hier die Schleife:

Sub Umschlagszahl()
Dim zelle As Range
Dim a As Integer

For Each zelle In Range("AC1:AC" & Range("AC65536").End(xlUp).Row - 1).Cells.SpecialCells(xlCellTypeBlanks)
MsgBox Range(zelle.Offset(1, 0), zelle.Offset(1, 0).End(xlDown)).Address
zelle.Value = a
a = "Z" / "Y"
Next

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.01.2009 14:54:14 Steffi
NotSolved
Blau Aw:VBA-Schleife - Division v. 2 Zellen in Leerzell
 14.01.2009 18:49:42 Holger
*
Solved