Hallo Liebe Forengemeinde,

ich hab mich zu einem Tunnelblick gearbeitet und blick nicht mehr durch.
Folgende Situation,

Das ganze soll ein "Etiketten" druck programm werden - gedacht sind 8 stück je a4 blatt also 2 pro spalte - der Inahlt Variabel

- Die VB 2008 Anwendung soll daten in eine Excel Tabelle schreiben (Funktioniert)
- Diese Aktion möchte ich X Fach durchführen (Funktioniert soweit auch).

wo es hackt ist wenn ich jetzt z.B. 1 Etikett eingebe und dann noch eins sollen diese beiden nebeneinander stehen.
steh da leider total am schlauch wie Ich das mit links rechts und drunter abfragen kann und umsetzen.

Bin für jede Hilfe Dankbar.

Beste Grüße Shadow

Vielleicht ein bischel Code wie deine bisherige Lösung aussieht und anhand dessen man ggf. Vorschläge machen könnte wäre ganz gut.

Hätte es einfach / Kompliziert gemacht und immer gesagt wenn eingabe X dann schreib da da da und da hin.
Wie gesagt zerbrech mir schon relativ lange den kopf und hab mitlerweile einen Tunnelblick.

Private Sub Inhalt()
Dim imput As Integer
imput = TextBox4.Text
Dim clear As String
clear = False

If imput = 1 Then
Anwendung.ActiveSheet.Cells(1, 1).Value = "Datum"
Anwendung.ActiveSheet.Cells(1, 2).Value = ":"
Anwendung.ActiveSheet.Cells(1, 3).Value = DateTimePicker1.Value.Date
Anwendung.ActiveSheet.Cells(2, 1).Value = "Autr.-Nr."
Anwendung.ActiveSheet.Cells(2, 2).Value = ":"
Anwendung.ActiveSheet.Cells(2, 3).Value = TextBox1.Text
Anwendung.ActiveSheet.Cells(3, 1).Value = "Dok.-Nr."
Anwendung.ActiveSheet.Cells(3, 2).Value = ":"
Anwendung.ActiveSheet.Cells(3, 3).Value = TextBox2.Text
Anwendung.ActiveSheet.Cells(4, 1).Value = "Dol.-Vers."
Anwendung.ActiveSheet.Cells(4, 2).Value = ":"
Anwendung.ActiveSheet.Cells(4, 3).Value = MaskedTextBox1.Text
Anwendung.ActiveSheet.Cells(5, 1).Value = "Art.-Nr."
Anwendung.ActiveSheet.Cells(5, 2).Value = ":"
Anwendung.ActiveSheet.Cells(5, 3).Value = MaskedTextBox2.Text
Anwendung.ActiveSheet.Cells(6, 1).Value = "Stückzahl"
Anwendung.ActiveSheet.Cells(6, 2).Value = ":"
Anwendung.ActiveSheet.Cells(6, 3).Value = TextBox3.Text
Anwendung.ActiveSheet.Cells(7, 1).Value = "AK"
Anwendung.ActiveSheet.Cells(7, 2).Value = ":"
Anwendung.ActiveSheet.Cells(7, 3).Value = ComboBox1.Text

clear = True
End If

If imput = 2 Then
Anwendung.ActiveSheet.Cells(1, 1).Value = "Datum"
Anwendung.ActiveSheet.Cells(1, 2).Value = ":"
Anwendung.ActiveSheet.Cells(1, 3).Value = DateTimePicker1.Value.Date
Anwendung.ActiveSheet.Cells(2, 1).Value = "Autr.-Nr."
Anwendung.ActiveSheet.Cells(2, 2).Value = ":"
Anwendung.ActiveSheet.Cells(2, 3).Value = TextBox1.Text
Anwendung.ActiveSheet.Cells(3, 1).Value = "Dok.-Nr."
Anwendung.ActiveSheet.Cells(3, 2).Value = ":"
Anwendung.ActiveSheet.Cells(3, 3).Value = TextBox2.Text
Anwendung.ActiveSheet.Cells(4, 1).Value = "Dol.-Vers."
Anwendung.ActiveSheet.Cells(4, 2).Value = ":"
Anwendung.ActiveSheet.Cells(4, 3).Value = MaskedTextBox1.Text
Anwendung.ActiveSheet.Cells(5, 1).Value = "Art.-Nr."
Anwendung.ActiveSheet.Cells(5, 2).Value = ":"
Anwendung.ActiveSheet.Cells(5, 3).Value = MaskedTextBox2.Text
Anwendung.ActiveSheet.Cells(6, 1).Value = "Stückzahl"
Anwendung.ActiveSheet.Cells(6, 2).Value = ":"
Anwendung.ActiveSheet.Cells(6, 3).Value = TextBox3.Text
Anwendung.ActiveSheet.Cells(7, 1).Value = "AK"
Anwendung.ActiveSheet.Cells(7, 2).Value = ":"
Anwendung.ActiveSheet.Cells(7, 3).Value = ComboBox1.Text

'2 Reihe

Anwendung.ActiveSheet.Cells(1, 5).Value = "Datum"
Anwendung.ActiveSheet.Cells(1, 6).Value = ":"
Anwendung.ActiveSheet.Cells(1, 7).Value = DateTimePicker1.Value.Date
Anwendung.ActiveSheet.Cells(2, 5).Value = "Autr.-Nr."
Anwendung.ActiveSheet.Cells(2, 6).Value = ":"
Anwendung.ActiveSheet.Cells(2, 7).Value = TextBox1.Text
Anwendung.ActiveSheet.Cells(3, 5).Value = "Dok.-Nr."
Anwendung.ActiveSheet.Cells(3, 6).Value = ":"
Anwendung.ActiveSheet.Cells(3, 7).Value = TextBox2.Text
Anwendung.ActiveSheet.Cells(4, 5).Value = "Dol.-Vers."
Anwendung.ActiveSheet.Cells(4, 6).Value = ":"
Anwendung.ActiveSheet.Cells(4, 7).Value = MaskedTextBox1.Text
Anwendung.ActiveSheet.Cells(5, 5).Value = "Art.-Nr."
Anwendung.ActiveSheet.Cells(5, 6).Value = ":"
Anwendung.ActiveSheet.Cells(5, 7).Value = MaskedTextBox2.Text
Anwendung.ActiveSheet.Cells(6, 5).Value = "Stückzahl"
Anwendung.ActiveSheet.Cells(6, 6).Value = ":"
Anwendung.ActiveSheet.Cells(6, 7).Value = TextBox3.Text
Anwendung.ActiveSheet.Cells(7, 5).Value = "AK"
Anwendung.ActiveSheet.Cells(7, 6).Value = ":"
Anwendung.ActiveSheet.Cells(7, 7).Value = ComboBox1.Text
clear = True
End If

If clear = True Then
Anwendung.ActiveSheet.Range("a1").Select()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
MaskedTextBox1.Text = ""
MaskedTextBox2.Text = ""
ComboBox1.Text = ""
End If


End Sub

wenn ich das ganze untereinander als loop mache schauts so aus
Private Sub Inhalt()
' Dim imput As Integer
' imput = TextBox4.Text
Dim clear As String
clear = False


Dim I As Integer
Anwendung.ActiveSheet.Range("a1").Select()
I = 0

Dim II As Integer
Anwendung.ActiveSheet.Range("a2").Select()
II = 0

Dim III As Integer
Anwendung.ActiveSheet.Range("a3").Select()
III = 0

Dim IV As Integer
Anwendung.ActiveSheet.Range("a4").Select()
IV = 0

Dim V As Integer
Anwendung.ActiveSheet.Range("a5").Select()
V = 0

Dim VI As Integer
Anwendung.ActiveSheet.Range("a6").Select()
VI = 0

Dim VII As Integer
Anwendung.ActiveSheet.Range("a7").Select()
VII = 0

Do
I = I + 7
Anwendung.ActiveSheet.Cells(I, 1).Select()
II = II + 7
Anwendung.ActiveSheet.Cells(II, 1).Select()
III = III + 7
Anwendung.ActiveSheet.Cells(III, 1).Select()
IV = IV + 7
Anwendung.ActiveSheet.Cells(VI, 1).Select()
V = V + 7
Anwendung.ActiveSheet.Cells(V, 1).Select()
VI = VI + 7
Anwendung.ActiveSheet.Cells(VI, 1).Select()
VII = VII + 7
Anwendung.ActiveSheet.Cells(VII, 1).Select()

If Anwendung.Selection.Value = "" Then Exit Do
Loop

Anwendung.ActiveSheet.Cells(I, 1).Value = "Datum"
Anwendung.ActiveSheet.Cells(I, 2).Value = ":"
Anwendung.ActiveSheet.Cells(I, 3).Value = DateTimePicker1.Value.Date
Anwendung.ActiveSheet.Cells(II, 1).Value = "Autr.-Nr."
Anwendung.ActiveSheet.Cells(II, 2).Value = ":"
Anwendung.ActiveSheet.Cells(II, 3).Value = TextBox1.Text
Anwendung.ActiveSheet.Cells(III, 1).Value = "Dok.-Nr."
Anwendung.ActiveSheet.Cells(III, 2).Value = ":"
Anwendung.ActiveSheet.Cells(III, 3).Value = TextBox2.Text
Anwendung.ActiveSheet.Cells(IV, 1).Value = "Dol.-Vers."
Anwendung.ActiveSheet.Cells(IV, 2).Value = ":"
Anwendung.ActiveSheet.Cells(IV, 3).Value = MaskedTextBox1.Text
Anwendung.ActiveSheet.Cells(V, 1).Value = "Art.-Nr."
Anwendung.ActiveSheet.Cells(V, 2).Value = ":"
Anwendung.ActiveSheet.Cells(V, 3).Value = MaskedTextBox2.Text
Anwendung.ActiveSheet.Cells(VI, 1).Value = "Stückzahl"
Anwendung.ActiveSheet.Cells(VI, 2).Value = ":"
Anwendung.ActiveSheet.Cells(VI, 3).Value = TextBox3.Text
Anwendung.ActiveSheet.Cells(VII, 1).Value = "AK"
Anwendung.ActiveSheet.Cells(VII, 2).Value = ":"
Anwendung.ActiveSheet.Cells(VII, 3).Value = ComboBox1.Text
Anwendung.activesheet.range("a1").select()
clear = True

muss nur noch abgestimmt werden

Nächstes Mal bitte in VB-Tags setzten, lässt sich deutlich schöner lesen.

Gut, dann versuche ichs mal ohne zu testen ausm Kopf zu schreiben, dürfte ja nicht schwer sein, du machst also eine Auswahlbox wieviele Etiketten der Nutzer möchte, wir nehmen an das es nur 2 Spalten gibt, also nur 2 Nebeneinander sind.



Was wird gemacht: ganz einfach eine Schleife über die Anzahl der Etiketten. In der Variablen Column befindet sich die Spalte entweder 1 oder 5, die weiteren Spalten für die Einträge werden auf diese Variable indirekt Aufaddiert. Wurde eine Etikette erstellt wird die Spalte umgeswitched und CurrentEtikett wird um die Anzahl der Zeilen eines Etiketts erhöht plus 1 für eine Leerzeile und dann kommt das nächste Etikett. Die Etiketten werden nun also von Links nach Rechts, von Oben nach Unten in die Exceldatei geschrieben.
Das sollte so funktionieren, wenn nicht zu 100% (weil ausm Kopf geschrieben) hast du zumindest einen Lösungansatz um sicher selbst weiter zu lösen.

Sorry wusste noch das es sowas gibt und dachte es wird über Quellcode gemacht.

Funktioniert soweit muss nur noch die Zellen nebeneinander bringen diese macht er mir bis jetzt diagonal zueinander.

Danke dir Recht Herzlich für deine Hilfe.

Sollte er eigentlich neben einander ... zuerst ist Column 1 und da kommt der Name rein in Column + 1 also 2 kommt der Doppelpunkt und Column + 2 also 3 die Benutzereingaben. Beim nächsten Durchlauf sollte Column 5 sein und somit ist der Name in Spalte 5, Doppelpunkt in 5+1 und Benutzereingabe in 5+2 O.o

Aber ich sehe schon meinen Fehler *g*, die Zeile darf ja nur in jedem zweiten Durchlauf erhöht werden:

Funktioniert Traumhaft echt Super!!!

Den Code muss ich doch nur noch in eine Schleife Packen die mir die Letzte Leere Zeile Sucht um vor dem Druck andere Inhalte reinzupacken oder?

Da ist doch schon eine Schleife?? Wenn du die letzte Zeile haben willst, dann hast du sie auch schon, weil du die Variable CurrentEtikett hast, die Variable ist ja außerhalb der Schleife und du könntest sie direkt verwenden, müsstest nur nochmal 7 drauf zählen, weil CurrentEtikett die Zeile zu beginn der Etikette angibt.

Das heißt ich muss mir den NumericUpDown wert zwischenmerken nach dem ich die Daten Übernommenhabe und im 2 Durchgang zu CurrentEtikett dazurechnen.

Der Numeric Wert hat nichts damit zu tun.

Hier nochmal der komplette Code mit letzter Zeile etwas machen

Okay,
hab zwischenzeitlich noch etwas geändert und zwar das ich den Startpunkt Manuel ändern kann weil das 1te Etikett schon weg ist also Start bei 2
sieht aus wie folgt:


Fürs Verständniss:
Bei dem If Colum 5 Then CurrentEtikett muss ich die Prozedur bei der 2ten eingabe von diesem Punkt aus starten Sprich als Neuen Startpunkt oder bin ich da auch Falsch dran?

Ich blick nicht durch.
Jeder Lösungsversuch bringt kein anderes ergebniss

Habs jetzt auf die reihe gebracht,
zwar nicht ganz so elegant aber es Funktioniert


hatte mich zu sehr in die Falsche richtung fest gefahren und den hinweis mit 7 draufzählen total übergangen, sorry hierfür.

die Numeric felder 2 und 3 sind sicher nicht die beste lösung aber als Visuelle und gedankliche stütze funktioniert es und hat es mir geholfen den, für mich entstandenen, knackpunkt zu überspringen.

Vielen Dank für die Hilfe Dodo