Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

@schauan: Benötige noch einmal deine Unterstützung

Forumthread: @schauan: Benötige noch einmal deine Unterstützung

@schauan: Benötige noch einmal deine Unterstützung
27.11.2025 19:27:25
Heike
Hallo schauan,

ich hatte zwar schon im ursprünglichen Thread mein folgendes Problem geschildert, bin mir aber nicht sicher (da es schon ein paar Tage her ist), ob du diesen noch liest.

Ich hoffe, das ist ok, dass ich dazu einen neuen Thread eröffne.

Also, dein Code passt prima, nur hatte ich 1 Sache nicht beachtet, und zwar:

Die Tabellenblätter MO1, MO2, MO3 haben zwischen den Kennzeichen 10 Zeilen, dein Code hierzu "... (Target.Row - 1) Mod 11, 2).Value ...) /funktioniert

Die Tabellenblätter MO4, MO5 haben aber zwischen den Kennzeichen 100 Zeilen.

Würdest du mir bitte schreiben, wie ich entsprechend deinen Code erweitern kann? Das wäre super.

Vielen Dank im Voraus.

Gruß Heike
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: @schauan: Benötige noch einmal deine Unterstützung
27.11.2025 22:01:57
schauan
Hallöchen,

also jetzt steht das Datum in den Zeilen 1, 12, 23 - also immer 11 weiter. So steht es auch im Code

rngFundstelle.Offset(, 1) = Cells(Target.Row - (Target.Row - 1) Mod 11, 2).Value

Wenn Du den Treffer in Zeile 7 hast, dann wird die Zeile so berechnet:

Target.Row - (Target.Row - 1) Mod 11

7 - Rest von (7 - 1) / 11 = 7 - Rest von (6 / 11) = 7 - 6 = 1

Stehen jetzt zwischen den Daten 100 Zeilen, die Daten also in 1, 102, 203 usw. dann wäre der Code

rngFundstelle.Offset(, 1) = Cells(Target.Row - (Target.Row - 1) Mod 101, 2).Value

Dann brauchst Du noch eine Fallunterscheidung

If sh.Name = "MO1" or sh.name = "MO2" or sh.name = "MO3" Then
' erste Formel
Else
'zweite Formel
End If





Anzeige
AW: @schauan: SUPER ...
27.11.2025 23:25:11
Heike
... funktoniert einwandfrei. Vielen lieben Dank schauan.

Gruß Heike
AW: Damit auch jeder weiß um welchen Thread es geht...
27.11.2025 21:42:41
Heike
Dankeschön SF
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18