Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
04.05.2024 08:24:07
Sortieren und übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige