Doppelte For Funktion

Sam85 · 11. Juni 2017, 17:32

Hallo,

ich wollte eine doppelte For Funktion ausführen, leider scheint dabei etwas noch nicht ganz zu stimmen:
Y wird korrekt berechnet ergibt die Anzahl Tage im Monat. Und genauso oft soll der I Block ausgeführt werden bzw. in das Tabellenblatt eingefügt werden.
Bisher erscheint er aber nur einmal. Was muss ich anders machen?

VB.NET-Quellcode

fspalte = ActiveSheet.Cells(5, ActiveSheet.Columns.Count).End(xlToLeft).Column + 1
For y = 1 To (tbl.ListColumns(monat).DataBodyRange.Count - wsf.CountBlank(tbl.ListColumns(monat).DataBodyRange))
datatherapeut = frmTherapeut.lb_therapeut.ListCount - 1
Set datacells = Range(Cells(5, fspalte), Cells(5, fspalte).Offset(0, datatherapeut))
frmTherapeut.lb_therapeut.RowSource = "dt_Therapeut[Nachname_Therapeut]"
For i = 0 To frmTherapeut.lb_therapeut.ListCount - 1
datacells(1, i) = frmTherapeut.lb_therapeut.List(i, 0)
Next i
Next y

VB1963 · 11. Juni 2017, 20:21

Beschreibe einmal genau, was dieser Code machen soll - ich durchblicke ihn nicht ganz...
Du verwendest die Variable y nicht weiter - muss die dann irgendwas machen?

Sam85 · 11. Juni 2017, 20:29

@VB1963 Ja genau die soll was machen :).

Also es sollen Werte aus einer ListBox "Y"-Mal in die Spalten geschrieben werden.
Die Werte "I" sind also alle Einträge aus der ListBox.
Bisher läuft es so, dass alle Einträge aus der ListBox einmal auf die Tabelle geschrieben werden. Aber eigentlich soll Y dafür sorgen, dass das öfter passiert.
Ich kann auch eine Beispiel Datei hochladen, falls es das einfach macht.

VB1963 · 11. Juni 2017, 20:41

Sam85 schrieb:

Also es sollen Werte aus einer ListBox "Y"-Mal in die Spalten geschrieben werden.

Wo geschieht das in deinem Code? Du verwendest Y niergends...

Sam85 · 11. Juni 2017, 20:44

ja genau das ist auch mein Problem,

ich bin nicht sicher wie ich Y korrekt einsetze.

VB1963 · 11. Juni 2017, 20:52

Du iterierst mit Y durch irgend eine Liste und was soll bei jedem Loop dann mit Y passieren?

Sam85 · 11. Juni 2017, 20:57

Also y soll einfach diese liste ans Ende des ersten Eintrages stellen. Hoffe das Beispiel macht Sinn. Ansonsten ich stell die Datei auch gerne zur Verfügung.

Kurz mal als Beispiel:

i = 0 to end (Daten aus ListBox)
A
B

Y = 1 to end (Ermittelte Länge einer Tabelle)

Ergebnis
AB AB AB

Sam85 · 11. Juni 2017, 21:47

Hier mal der Upload.

frmMain
Button "Monat erzeugen"
Zeile 152

VaporiZed · 11. Juni 2017, 21:55

Der bisherige Code schreibt die Nachnamen bis zu 31 Mal immer an die selben Stellen, da die Koordinaten immer gleich bleiben. Aber was willst Du in den Plänen genau drinhaben? Immer die selben Namen pro Spalte? Von morgens bis abends?

Sam85 · 11. Juni 2017, 22:00

@VaporiZed ups...das ist ja nicht das was ich wollte :).
Genau die Namen werden aus der ListBox geladen. Und die Uhrzeit steht einmal vorne, sozusagen der Rahmen des Plans. Dann soll für jeden Tag der Namensbereich dupliziert werden.
In den Feldern selbst wird einfach mit Doppelklick die Auswahl gestartet um Werte in den Plan einzutragen.

Ich würde auch gerne an den ersten erzeugten Namen und alle folgenden ersten Namen, den Tag aus der ListBox stehen haben.
Diese Zeile wird dann in jeder Spalte in einer Combobox eingetragen und mit dem Goto befehlt selektiert.

Das wäre dann aber erst das nächste :)..da wollte ich nämlich

Sam85 · 12. Juni 2017, 00:13

@VaporiZed
Um deine Fragen expliziter zu beantworten:

Uhrzeit als einmalige Spalte (freezepane ist aktiv)
Die Namen immer wiedererholend pro Spalte in derselben Zeile
Und mit jeden y-namen Block, soll das datum aus der der tabelle, die zum Zählen verwendet wird, zwei zeilen über den namen hinzugefügt werden.

VaporiZed · 12. Juni 2017, 08:53

Sam85 schrieb:

Genau die Namen werden aus der ListBox geladen.

meinetwegen

Sam85 schrieb:

Und die Uhrzeit steht einmal vorne, sozusagen der Rahmen des Plans.

Uhrzeit soll in die erste Tabellenspalte. Ist sie ja schon bzw. macht ja Dein Makro.

Sam85 schrieb:

Dann soll für jeden Tag der Namensbereich dupliziert werden.

keine Ahnung, was Du damit meinst.*

Sam85 schrieb:

In den Feldern selbst wird einfach mit Doppelklick die Auswahl gestartet um Werte in den Plan einzutragen.

scheint das Formular zu betreffen und nicht Dein Codestolperstein, um den es hier geht.

Sam85 schrieb:

Ich würde auch gerne an den ersten erzeugten Namen und alle folgenden ersten Namen, den Tag aus der ListBox stehen haben.

erster Name? alle folgenden ersten Namen? Wo bist Du da gedanklich und was stellst Du Dir darunter vor?*

Sam85 schrieb:

Diese Zeile wird dann in jeder Spalte in einer Combobox eingetragen und mit dem Goto befehlt selektiert.

Comboboxeintrag bekommst Du bestimmt selber hin. GoTo? Wenns nicht mehr anders geht, ist das Programm falsch strukturiert.

Sam85 schrieb:

Das wäre dann aber erst das nächste :)..da wollte ich nämlich

da wolltest Du was?

Sam85 schrieb:

Uhrzeit als einmalige Spalte (freezepane ist aktiv)

freezepane hab ich gegooglet. Ist ja eh schon drin. Ne Problemfokussierung wäre hilfreich, sonst ertrinken wir in für uns irrelevanten Infos. Sorry für alle, die das anders sehen und die ich mit meiner Verallgemeinerung versehentlich miterfasst haben. Zumindest geht es aber mir so.

Sam85 schrieb:

Die Namen immer wiedererholend pro Spalte in derselben Zeile

mögen sie sich gut erholen. Auch mehrmals

wiederholend pro Spalte in derselben Zeile

*

Sam85 schrieb:

Und mit jeden y-namen Block, soll das datum aus der der tabelle, die zum Zählen verwendet wird, zwei zeilen über den namen hinzugefügt werden.

den kapier ich gar nicht*

*bitte Screenshot mit Ist- und Soll-Zustand. Ohne bin ich wohl zu inkompetent, es zu kapieren.

Sam85 · 12. Juni 2017, 09:13

@VaporiZed :)...tut mir Leid wenn ich zu unpräzise war.

warte hier ist ein Screenshot mit dem Ist und Soll Zustand.

Es soll natürlich der Bereich mit den Namen so oft dupliziert werden, wie Tage im Monat vorhanden sind.

Bzgl. dem ComboBox Eintrag. Im Grunde bekomme ich das hin, ich tu mir nur Schwer mit dem Code für "Suche immer in Zeile 2 von jeder benutzen Spalte"..

VB.NET-Quellcode

fspalte = ThisWorkbook.ActiveSheet.Cells(2, ActiveSheet.Columns.Count).End(xlToLeft).Column
cb_tag.List = ThisWorkbook.ActiveSheet.Range("A2:E" & fspalte).Value

und der entsprechenden Selektion. Ich bin noch am überlegen wie ich das am Besten aufbauen kann, eine Idee. Der Wert steht ja in der ComboBox aber nicht die Zeilen Bezeichnung?

VB.NET-Quellcode

Application.Goto reference:=Cells(Columns(5).Find(Date, lookat:=xlWhole).Row, 1), Scroll:=True

VaporiZed · 12. Juni 2017, 10:02

Ok, alle Namen sooft wie Tage im Monat: check. Das y muss mit der Namenanzahl multipliziert in die datacells mit rein.

Visual Basic-Quellcode

Dim Offset As Integer
For y = 1 To (tbl.ListColumns(monat).DataBodyRange.Count - wsf.CountBlank(tbl.ListColumns(monat).DataBodyRange))
Offset = frmTherapeut.lb_therapeut.ListCount
Set datacells = Range(Cells(5, fspalte), Cells(5, fspalte).Offset(0, datatherapeut))
For i = 0 To frmTherapeut.lb_therapeut.ListCount - 1
datacells(1, Offset * (y - 1) + i + 1) = frmTherapeut.lb_therapeut.List(i, 0)
datacells(1, Offset * (y - 1) + i + 1).ColumnWidth = 30
Next i
Next y

Sam85 · 12. Juni 2017, 10:38

@VaporiZed Eins A :thumbsup:

genau so wollte ich das.

hier die Bilder zu dem Datum (Bild und Bild2). Dabei bin ich noch am Überlegen..am Ende wollte ich alle Spalten eines Monats auslesen für eine Tabelle zur Auswertung mit einer Splitfunktion (Bild3).
Jedoch weiß ich nicht ob es dafür sinnvoller ist in jeder Spalte ein Datum stehen zu haben oder ob Excel erkennt wenn nichts drin steht das einfach das letzte genommen werden soll?!

Hoffe das war zumindest etwas schlüssig.

VaporiZed · 12. Juni 2017, 10:54

Datumszeile: check
In die bestehende Schleife lässt sich auch das Datum einbauen. Mein Vorschlag:

Visual Basic-Quellcode

Dim ofs As Integer, Datum As Date
For y = 1 To (tbl.ListColumns(monat).DataBodyRange.Count - wsf.CountBlank(tbl.ListColumns(monat).DataBodyRange))
ofs = frmTherapeut.lb_therapeut.ListCount
Set datacells = Range(Cells(5, fspalte), Cells(5, fspalte).Offset(0, datatherapeut))
Datum = CDate(y & "." & cb_monat.ListIndex & "." & Right(tb_workbook.Text, 4))
Cells(2, ofs * (y - 1) + 2).Value = WeekdayName(Weekday(Datum), True) & ", " & y & "."
For i = 0 To frmTherapeut.lb_therapeut.ListCount - 1
datacells(1, ofs * (y - 1) + i + 1) = frmTherapeut.lb_therapeut.List(i, 0)
datacells(1, ofs * (y - 1) + i + 1).ColumnWidth = 30
Next i
Next y

btw: MsgBox ("Der Kalender ~~exestiert~~ existiert bereits."), vbExclamation

Sam85 · 12. Juni 2017, 11:12

wahnsinn...perfekt (kommt bei dir auch immer Freitag als Wochentag)?
ach diesen Rechtschreibfehler mach ich ständig, danke für die Korrektur.

VaporiZed · 12. Juni 2017, 11:15

Sam85 schrieb:

kommt bei dir auch immer Freitag als Wochentag

Es werden alle Wochentage aufgelistet. Als Kurzfassung. Auch Freitag, eben als Fr.. Soll der nicht auftauchen? Willst Du bestimmte Tage rausnehmen? Gehört Freitag bei Dir nicht zu Woche? => Ich find da Deine Frage ... irgendwie unklar.
Einfach dran denken: existieren kommt von Existenz. Oder im Englischen: If something exists. Nicht exests.

Sam85 · 12. Juni 2017, 11:28

Misverständnis. Bei mir steht überall Freitag siehe Bild (also kein Samstag bis Donnerstag).

Ja das passiert mir manchmal im leider Eifer des Gefechts, dass ich Worte falsch schreibe.

manchmal vergesse ich auch welche...

VaporiZed · 12. Juni 2017, 11:32

Bei mir läuft's. Gab's nen Codeübertragungsfehler von Forum zu Excel? Anbei Deine FrmMain-CodeDatei mit funktionierenden Wochentagen zurück. Einfach als Komplettersatz. Keine Sorge, hab sonst nix verändert

Doppelte For Funktion

Doppelte For Funktion

VB.NET-Quellcode

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

Sam85 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Visual Basic-Quellcode

Visual Basic-Quellcode

Sam85 schrieb:

Ähnliche Themen

3 Benutzer haben hier geschrieben