Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.10.2025 10:43:56
Flagstatus eines Meetingtems nicht abfragbar
09.10.2025 10:00:47
Von zwei Zellen mit Sverweis (B7 und H8) die Summe bilden
09.10.2025 09:48:16
Tabellen mit xverweis zusammen fügen
09.10.2025 09:37:38
Ausgabewert drei Spalten nach Rechts kopieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Frequenzzahlen gewichtet verteilen?

Forumthread: Frequenzzahlen gewichtet verteilen?

Frequenzzahlen gewichtet verteilen?
03.12.2019 20:04:52
Juergen
Hallo zusammen,
ich kniffel hier an einem Problem ohne zu einer Lösung zu kommen.
Ich habe eine Frequenzliste zum abstimmen. Die ermittelten Signale sind teilweise bestimmt und in meiner Liste eingetragen.
Nun soll in Abhängigkeit der jeweiligen 500er Schritte !gewichtet! nach den Werten die restlichen Zellen der 100er Werte gefüllt werden.
Eine regelmäßige Verteilung wäre einfach, aber wie bekomme ich die Abhängigkeiten zu den bestehenden Werten geregelt!?
Für jeden Hinweis dankbar!
Hier mein Beispiel:
https://www.herber.de/bbs/user/133571.xlsx
Gruss & Danke,
Juergen
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: interpolieren
03.12.2019 20:12:48
Fennek
Hallo,
von snb:
Sub M_snb()
For Each it In ActiveSheet.UsedRange.Columns(2).SpecialCells(4).Areas
x = it.Cells(1).Offset(-1)
y = it.Cells(1).Offset(it.Rows.Count)
Z = (y - x) / (it.Rows.Count + 1)
For j = 1 To it.Rows.Count
it.Cells(1).Offset(j - 1) = x + j * Z
Next
Next
End Sub

mfg
Anzeige
AW: interpolieren II
03.12.2019 20:13:37
Fennek 

Sub M_snb()
For Each it In ActiveSheet.UsedRange.Columns(2).SpecialCells(4).Areas
x = it.Cells(1).Offset(-1)
y = it.Cells(1).Offset(it.Rows.Count)
Z = (y - x) / (it.Rows.Count + 1)
For j = 1 To it.Rows.Count
it.Cells(1).Offset(j - 1) = x + j * Z
Next
Next
End Sub

Anzeige
AW: Vielen Dank :)
03.12.2019 20:54:12
Juergen
Hallo Fennek,
herzlichen Dank für das Script! Läuft astrein....da wäre ich nie draufgekommen!
Vielen Dank für die schnelle Hilfe!
Gruss, Juergen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige