Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1416to1420
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
Inhaltsverzeichnis

Produkt, Intervallzeitraum, spezifischer Wert

Produkt, Intervallzeitraum, spezifischer Wert
06.04.2015 21:18:06
Tobias
Hey,
Ich hoffe ihr habt Ostern alle gut überstanden.
Angehängt ist eine Beispieldatei um mein Problem zu verdeutlichen.
Ich möchte das der Nutzer selber für ein Produkt Intervalle definieren kann.
Sobald er auf speichern klickt, soll dann in Spalte C soll dann der jeweilige Wert "Testung pro Woche" in jede Woche des Intervalls eingetragen werden.
Wichtig ist, dass zwischenzeitlich auch Kalenderwochen ohne Testung stattfinden können.
Beispiel:
Produkt A
Kalenderwoche 10-20 21-30 35-45
Testungpro Woche 1 10 5
Ich danke jedem, der versucht mir zu helfen. :)
Liebe Grüße
Tobias
https://www.herber.de/bbs/user/96895.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Produkt, Intervallzeitraum, spezifischer Wert
06.04.2015 22:55:29
Tobias
Okay, ich hab einfach zu sehr nen Brett vorm Kopf um das heute auch nur ansatzweise hinzubekommen.
Im Endeffekt möchte ich:
If Textbox7 in Spalte1 And Textbox1 in Spalte2 Then
Textbox8 = in die Zeile Spalte C
Das Ganze dann noch als Schleife mit Step = 1 mit Startwert Textbox8 und maximal Wert von Textbox4.
Ich würde euch wirklich gern nen Ansatz geben, aber das was ich rumprobiert hab funktioniert einfach garnicht...
Ich hoffe das ist verständlich :)

AW: Produkt, Intervallzeitraum, spezifischer Wert
07.04.2015 00:06:34
Tobias
und manchmal kommt man einfach drauf....
Private Sub CommandButton1_Click()
Dim posiini As Integer
posiini = 2
Dim product As String
Dim lfound As Boolean
lfound = False
product = UserForm1.TextBox7.Value
Do While lfound = False
If product = Application.Cells(posiini, 1).Value Then
lfound = True
Else
posiini = posiini + 52
End If
Loop
For i = posiini To posiini + 51
If Application.Cells(i, 2).Value >= Int(UserForm1.TextBox1.Value) And Application.Cells(i,  _
2).Value = Int(UserForm1.TextBox3.Value) And Application.Cells(i,  _
2).Value = Int(UserForm1.TextBox5.Value) And Application.Cells( _
i, 2).Value 
Verbesserungsvorschläge werden gern gehört.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige