Value Befehl in Schleife



Excel-Version: 10.0 (Office XP)
nach unten

Betrifft: Value Befehl in Schleife
von: Harald
Geschrieben am: 26.06.2002 - 22:19:19

Hallo Excel Forum,
ich habe folgendes Makro, nun möchte ich jede Zelle nacheinander anwählen und value ausführen solange bis kein Wert in der Zelle ist.


Sub Spalte_B_value()
    ActiveSheet.Range("B17:B100").Value = ActiveSheet.Range("B17:B100").Value
End Sub

Vielen Dank für eure Hilfe

Gruß Harald

nach oben   nach unten

Re: Value Befehl in Schleife
von: MRR
Geschrieben am: 26.06.2002 - 22:34:29

Wenn ich Dich richtig verstehe, gibt es mehrere Möglichkeiten.

Dim As Integer
For i = 17 To 100
  If Cells(i, 2).Value <> "" Then
    ActiveSheet.Range("B17:B100").Value = ActiveSheet.Range("B17:B100").Value
  Else
    Exit Sub
  End If
Next
'oder aber
Dim Zelle As Range
For Each Zelle In Range("B17:B100")
  If Zelle.Value <> "" Then
    Zelle.Value = Zelle.Value
  Else
    Exit Sub
  End If
Next

Hilft Dir das als Ansatz weiter?
Matthias
nach oben   nach unten

Re: Value Befehl in Schleife
von: Harald
Geschrieben am: 26.06.2002 - 22:54:04

Hallo Matthias,
deine zweite Lösung läuft so wie ich mir das vorgestellt habe, vielen Dank für deine schnelle hilfe. Echt prima !!!

Gruß Harald


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Value Befehl in Schleife "