ZeilenNr ermitteln und ausgeben

Hallo zusammen,

ich bräuchte mal wieder etwas Hilfe.

Ich habe eine Excel-Tabelle (Fahrtenbuch) in der in einem Blatt die Daten fürs Tanken und
den Wechsel der Räder enthalten sind.

Im 2. Blatt habe ich schon für die Winter-/Sommerreifen eine weitere Tabelle angelegt, in
der Datum, gefahrene Km und die Summe der gefahrenen Km ausgegeben werden sollen.

Für das Datum und die gefahrenen km habe ich auch schon Formeln gefunden und
erarbeitet, jedoch benötige ich dafür die ZeilenNummer im Blatt Fahrtenbuch!!!

Das habe ich bisher nicht hinbekommen, insbesondere, da die Wörter Winterreifen und
Sommerreifen ja ständig wiederkommen.

Mir würde es ja schon reichen, wenn lt. Formel die letzte Zeile ausgegeben wird und ich
die dafür nötige Formel sodann überschreiben müßte. (Ich weiß, ist albern, da ich die Zeilen-
nummer dann auch grad manuell eintragen kann. Aber dann hätte ich wenigstens dieses
Rätsel schon einmal gelöst).

Habe eine Excel-Tabelle vorbereitet.

Ist das möglich?
Wenn ja wie?

Hat jemand eine idee?

https://www.herber.de/bbs/user/158576.xlsm

Falls ich mich unverständlich ausgedrückt habe, bitte nachfragen.

VG
Jo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Reifen() Dim i&, lRowInSR&, lRowInWR&, lLastRow& lLastRow = Cells(Rows.Count, "B").End(xlUp).row For i = 2 To lLastRow If InStr(Cells(i, 6).Value, "Sommerreifen") > 0 Or _ InStr(Cells(i, 6).Value, "Winterreifen") > 0 Then Cells(i, 5).Font.Size = 8 With Cells(i, 6) .Font.Name = "Comic Sans MS" .Font.Size = 8 End With With Sheets("Reifen") lRowInWR = .Cells(Rows.Count, "D").End(xlUp).row + 1 lRowInSR = .Cells(Rows.Count, "I").End(xlUp).row + 1 If .Cells(lRowInWR, 4) = "" Then If InStr(Cells(i, 6).Value, "Winterreifen") Then If Application.WorksheetFunction.CountIf(.Columns(4), i) = 0 Then .Cells(lRowInWR, 4) = i End If If InStr(Cells(i, 6).Value, "Sommerreifen") Then If Application.WorksheetFunction.CountIf(.Columns(9), i) = 0 Then .Cells(lRowInSR, 9) = i End If End If End With End If Next i End Sub

Private Sub worksheet_change(ByVal target As Range) If Not Application.Intersect(Range("F3:F1607"), Range(target.Address)) Is Nothing Then If InStr(Cells(lRow, 6).Value, "reifen") > 0 Then Cells(target.row, 5).Font.Size = 8 Cells(target.row, 6).Font.Size = 8 Cells(target.row, 6).Font.Name = "Comic Sans MS" With Sheets("Reifen") If InStr(Cells(target.row, 6).Value, "Winterreifen") Then .Cells(.Cells(Rows.Count, "D").End(xlUp).row + 1, 4) = target.row If InStr(Cells(target.row, 6).Value, "Sommerreifen") Then .Cells(.Cells(Rows.Count, "I").End(xlUp).row + 1, 9) = target.row End With End If End If End Sub

Hallo Herbert,
vielen vielen lieben Dank. Vor ALLEM dafür, daß Du Dir so viel mehr Mühe machst, als wahrscheinlich notwendig. Echt Danke!!!

Die letzte Version klappt nicht. Da gibt es Probleme mit "lRow" in Zeile 3. Da kommt der "Fehler beim Kompilieren: Variable nicht definiert".
Aber egal, die "lange" Version funktioniert - so wie ich es bisher probieren konnte - einwandfrei. Danke

Ich weiß gar nicht, wie ich mich bedanken kann - wie gesagt auch für die Änderungen und "Kürzungen".
Bei meinem letzten Problem, bei dem ich hier um Rat fragte, war die Hilfe und Resonanz leider nicht so erfolgreich. Da wollte ich wissen,
wie ich eine Zelle (incl. Kommentierung+Farbe) kopieren und dann NUR den Kommentar + die Farbe in einer anderen Zelle einfügen kann,
ohne deren Inhalt zu überschreiben, und das in EINEM Schritt. Da konnte mir keiner richtig helfen. Naja, das werde ich dann irgendwann
später nochmal als Frage einstellen. Mir ist das halt auch irgendwie unangenehm, immer wieder Fragen zu stellen...

Also vielen vielen Dank
Liebe GrüZe
Jo

Sub einfügen() Dim varZWert As Variant varZWert = Cells(2, 6).Value 'hier den wert der Zielcelle einlesen Cells(2, 1).Copy _ Destination:=Cells(2, 6) ' hier den Wert der Quelle in die Zielcells kopieren Cells(2, 6).Value = varZWert ' hier in der Zielcelle den Zielwerte wieder einfügen. End Sub

Beliebteste Forumthreads (12 Monate)

37
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ZeilenNr ermitteln und ausgeben

37 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

37
Beiträge zum Forumthread

Beiträge zu diesem Forumthread