Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1528to1532
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

Code für alle Textboxen, Hilfe

Code für alle Textboxen, Hilfe
14.12.2016 17:49:52
Max2
Hallo Leute,
ich habe eine Userform mit 65 Textboxen, immer 5 gehören zueinander.
Die Daten aus den je 5 zusammengehörenden Textboxen sollen auf dem Tabellenblatt "Daten" in die vorgesehenen Zeilen u Spalten übertragen werden.
Falls im ersten Bereich schon Daten vorhanden sind sollen die nächsten Daten 3 Zeilen weiter drunter eingetragen werden.
Ich könnte jetzt 13 Subs schreiben, aber das wäre unnötig viel Code.
So ganz weiß ich aber auch nicht wie ich das mit den ganzen Textboxen und den vorgesehen Zeilen u Spalten anstellen soll.
Hier die Mappe mit Userform u. Code:

https://www.herber.de/bbs/user/110042.xlsm _
a>
Ich möchte dass der erste Datensatz eingetragen wird und sich dann y(Spalte) ändert und die Nächsten Daten an ihren Platz kommen.
Falls euch dazu was auf die schnelle einfällt würde ich mich freuen wenn Ihr eure Idee oder auch eure Kritik mit mir teilt.

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

Betreff
Datum
Anwender
Anzeige
AW: Code für alle Textboxen, Hilfe
15.12.2016 12:53:09
guenni
Über die Namen der Felder hast Du doch schon super angefangen
Das "B" in "B1_1" fest lassen und alles durchnummerieren von B1_1 bis B17_5
Dann

wähle letzten Eintrag in Spalte B (hierfür habe ich den Standardcode nicht herausgesucht)
If selection ="Standort" then
selection.offset(1,0).select
else
selection.offset(8,0).select
endif
selection=Standort
selection.offset(0,1) = Abteilung
selection.offset(0,2) = Bogen_Nr
for i=1 to 17
for j=1 to 5
if UserForm1.Controls("B"& i & "_" & j).Value ="" then
selection.offset(j-1,i+4) = 0
else
selection.offset(j-1,i+4) = UserForm1.Controls("B"& i & "_" & j).Value
endif
next j
next i
ggf noch Zeilen-und Spalten-Überschriften sowie Formatierungen einfügen
Gruß,
Günther
Anzeige
Danke Günther!
15.12.2016 16:00:50
Max2
Danke für deine Hilfe, habe deinen Code Vorschlag in meinen Code eingebaut und die TextBox Namen angepasst.
Funktioniert alles einwandfrei.

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige