Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Schleife zur Jahresbestimmung

Schleife zur Jahresbestimmung
10.05.2006 13:09:33
Björn
Hi,
vereinfacht gesagt:
Ich habe ein Zeile in der von B:2 bis J:2 Jahre stehen
in der zweiten Zeile stehen Werte unter den verschiedenen Jahren.
Ich möchte jetzt zum Beispiel im Feld B:5 Die Jahreszahl stehen haben die als letzte einen Wert größer 0 aufweist
Bsp:
Jahre: 0, 1, 2, 3, 4, 5
Werte:12, 14, 15, 0, 0, 0,
im Feld B5 soll jetzt "2" stehen
Das muss doch mit einer Schleife lösbar sein, ich bekomms aber leider momentan nit hin, bin ein bissl aus der Übung
Gruß
Björn

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife zur Jahresbestimmung
10.05.2006 13:46:12
Ingo
hallo Björn

Sub jahr_ohne_Null()
Dim i As Integer
For i = 10 To 2 Step -1
If ActiveSheet.Cells(2, i) > 0 Then
ActiveSheet.[B5] = ActiveSheet.Cells(1, i)
Exit For
End If
Next
End Sub

mfG
Ingo Christiansen
AW: Schleife zur Jahresbestimmung
10.05.2006 13:59:32
WernerB.
Hallo Björn,
noch eine Variante:

Sub Bjoern()
Dim c As Range
Range("B5").ClearContents
For Each c In Range("B3:J3")
If c.Value > 0 Then
Range("B5").Value = c.Offset(-1, 0).Value
End If
Next c
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
AW: Schleife zur Jahresbestimmung
10.05.2006 14:13:55
Björn
Danke schön

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige