Von |
Renate |
Am |
20. September 2008 um 17:58:55 |
Frage |
Was läuft hier falsch?Habe mehrere Zahlen in einer Spalte h stehen.In der Spalte steht jeweil eine Formel(Ganzzahl)Jetzt möchte ich vom Beginn bis zum Ende der Spalte gehen und jeweils in die nächste Spalte einen Zusatz einfügen.Also wenn in Spalte H 1 steht soll in Spalte I Jahre stehen ansonsten Jahr.
Public Sub Jahre_berechnen_Original(iZeile As Integer, iSpalte As Integer) 'Schleife wird solange durchlaufen bis die letzte befüllte Zelle erreicht ist.'
Set Wks_Arbeit = Worksheets("Tabelle2") Set ilezteZelle = Wks_Arbeit.Range("H65536").End(xlUp).Offset(0, 0) 'letzte befüllte Zeile' ilezteZelle.Select 'lezte Zeile selektieren' ilezteZeile = ActiveCell.Row 'Zeile auslesen von lezter Zelle'
Do While Cells(iZeile, iSpalte) iJahre = Cells(iZeile, iSpalte).Value 'Zelleninhalt an Variable' Select Case iJahre Case Is = 1 'wenn iJahre=1' MsgBox iJahre Cells(iZeile, 11).Value = "Jahr" Case Is = 0 'wenn iJahre=0' Cells(iZeile, 11).Value = "Jahre" Case Is >= 2 'wenn iJahre<2' Cells(iZeile, 7).Value = "Jahre" End Select
iZeile = iZeile + 1 If (ActiveCell.Row = ilezteZeile) Then Exit Do 'wenn die Durchgänge erreicht sind dann Schleife beenden' Loop
End Sub
|
|