Textbox Inhalt einer Userform in eine bestimmte Zelle schreiben - VBA - Hiiilfe

[Chris1112]

Hallo Liebes Excel Forum,

ich bin am verzweifeln und blutiger Anfänger, was VBA-Programmierung angeht... 

Zu meinem Problem:

Ich möchte aus einer Userform durch einen KlickButton den geschriebenen Inhalt einer Textbox in eine bestimmte Zelle schreiben... 

Ich hab schon sehr viel recherchiert und mir Codes zusammengebastelt, aber es funktioniert einfach nicht 100%ig... 
entweder wird der Code nur in eine bestimmte Zelle geschrieben und immer wieder überschrieben oder an ganz anderer Stelle als ich wollte hingeschrieben.. 

Als Ergänzung, der Textboxinhalt soll in eine bestehende Tabelle geschrieben werden, bzw. ergänzt werden... 

Ich glaube Excel denkt sehr oft, das in meiner Zelle schon was drin steht und will es an anderer Stelle hinschreiben...

Ich hoff ihr könnt mir weiterhelfen und evtl. auch die Codes ein wenig erklären :)

Hier meine Versuche: 

Private Sub CommandButton1_Click()  
Sheets("Standardschulungen").Range("F30").Value = Me.TextBox2.Value
   Cells(Cells(Rows.Count, "F").End(xlUp).Row + 1, "F").Value = Me.TextBox2.Value
   Sheets("Standardschulungen").Range("H30").Value = Me.TextBox4.Value
   Cells(Cells(Rows.Count, "H").End(xlUp).Row + 1, "H").Value = Me.TextBox4.Value
End Sub

Private Sub CommandButton1_Click()  
  Dim ZeileMax As Long
    Dim Zeile As Long
    With Tabelle3
    ZeileMax = .UsedRange.Rows.Count
    Zeile = ZeileMax + 1
    .Range("F" & Zeile).Value = Me.TextBox2.Value
    .Range("H" & Zeile).Value = Me.TextBox4.Value
    End With
End Sub



Ach ich hätte da noch eine Frage, wie ist es denn möglich, eine Userform dauerhaft auf einem Tabellenblatt angezeigt zu bekommen ohne das es wieder verschwindet? Also ohne das ich jedes mal über Makro ausführen gehen muss? 


Vielen Dank für Eure Hilfe :)

[Steffl]

Hallo,

du schreibst von einer bestimmten Zelle aber nicht welche Du meinst. Bei deinen Codebeispielen wird in die erste freie Zeile in den Spalten F und H die Werte eingetragen.

[Chris1112]

Hallo Seffl,

oh entschuldige... Also den Wert der Textbox2 soll in Zelle F30 und der Wert aus Textbox4 soll in Zelle H30 geschrieben werden und danach soll er immer in die Zeile darunter schreiben. Sprich: F31 und H31, F32 und H32 usw... 

Vielen Dank schonmal!

[Steffl]

Hallo,

versuche es mal so

Code:

Private Sub CommandButton1_Click()
   Dim lngC As Long
  
   With Worksheets("Standardschulungen")
      lngC = .Cells(.Rows.Count, "F").End(xlUp).Row + 1
      If lngC < 30 Then lngC = 30
      .Cells(lngC, "F").Value = Me.TextBox2.Value
      .Cells(lngC, "H").Value = Me.TextBox4.Value
   End With

End Sub

[Chris1112]

Hallo Stefan,

vielen Dank für deine Antwort! Deinen Code habe ich soeben ausprobiert, leider schreibt er die Werte der Textboxen in Zeile F93 und H93 (aber fortlaufend zumindest). Dieses Problem hatte ich auch schon, dass er die Codes in die genannten Zeilen schreibt und nicht in die gewünschte Zeile 30 fortlaufend... Ich bin echt ratlos... 

Hat Excel bzw. das Makro ein Problem, dass in der Tabelle Standardschulungen bereits Werte stehen? Also nicht in der gewünschten Zeile, aber generell? 

Hättest du noch Idee? 

Wäre es eigentlich möglich, die Zahlen in mehrere Zeilen gleichzeitig zu schreiben? Das wäre wünschenswert!

Also die Texatboxwerte sollen gleichzeitig in Zeile G14 und H14 (fortlaufend), F38 und H38 (fortlaufend), G69 und H69 (fortlaufend), F93 und H93 (fortlaufend)??? 

Wenn das funktionieren würde wär mir sehr geholfen ::)


Vielen Dank schonmal für deine Mühe!!


Grüße

[BoskoBiati]

Hallo,

Code:

lngC = .Cells(.Rows.Count, "F").End(xlUp).Row + 1

ermittelt die erste freie Zelle in F! Wenn das nicht die gewünschte Zeile ergibt, dann sind die darauffolgenden Zeilen nicht leer. Da wäre es sinnvoll, mal die Tabelle vorzustellen!

[RPP63]

Moin!
Meine Glaskugel sagt mir, dass dort durch Formeln generierte Leerstrings drinstehen.
Bei sowas bietet sich die .Find-Methode an:

Code:

Debug.Print Columns(1).Find("", Cells(1), xlValues, xlWhole).Row

Gruß Ralf

[Chris1112]

Vielen Dank für Eure Hilfe!!!

Also im Anhang hab ich jetzt mal das Excel-file angehängt, zwar gekürzt aber mit den relevanten Reitern... 

Im Reiter Standardschulungen, sollen wie beschrieben, die Texte und Werte der Textboxen eingefügt werden. 

Im Reiter Prozess hinzufügen soll die Userform fest verankert werden und die Prozesse hinzufügen...

Ich hoffe die Beispieldatei hilft euch weiter und verdeutlicht mein Problem. 



@Ralf: 

Wie kann ich dann die Formel in meinen Code verzweigen? Sry ich bin noch nicht so bewandert, was VBA-Programmierung angeht ::D

Was meinst du mit der Find-Methode? 


Vielen Dank an alle!

[RPP63]

Moin!
Du wirst nicht umhin kommen, die Datei komplett zu überarbeiten.
Excel ist eine Kalkulation und arbeitet mit auswertbaren Listen!
Siehe: http://www.online-excel.de/excel/singsel.php?f=52

Was Du da hast, ist praktisch ein Handzettel, der auf Excel umgebrochen ist.
Dies funktioniert so aber nicht bzw. nur mit unverantwortlichen Klimmzügen.

Sorry für die für Dich unbefriedigende Antwort!

Gruß Ralf

[Rabe]

Hi,

Du wirst nicht umhin kommen, die Datei komplett zu überarbeiten.
[...]
Was Du da hast, ist praktisch ein Handzettel, der auf Excel umgebrochen ist.
Dies funktioniert so aber nicht bzw. nur mit unverantwortlichen Klimmzügen.

ich würde eine intelligente Tabelle draus machen:

Standardschulungen

	A	B	C	D	E	F	G	H	I
1	Schulung	Bereich	Schulungsart	Schulungsinhalt	Aufgliederung	Anlage für Übungen WA	Minuten	Summe Minuten	Anzahl Schulungen
2	1	Wareneingang	Standardprozesse	RF-Bedienung			10
3	1	Wareneingang	Standardprozesse	Verpacken			80
4	1	Wareneingang	Standardprozesse	Einlagerung	Großteile	Rack	4
5	1	Wareneingang	Standardprozesse	Einlagerung	Großteile	Routenzug	5
6	1	Wareneingang	Standardprozesse	Einlagerung	Großteile	KRAG	2
7	1	Wareneingang	Standardprozesse	Einlagerung	Großteile	TANK	2
8	1	Wareneingang	Standardprozesse	Einlagerung	Großteile	FHK/KOML	4
9	1	Wareneingang	Standardprozesse	Einlagerung	Großteile	Pick&Pack	6
10	1	Wareneingang	Standardprozesse	Einlagerung	Kleinteile	Kleinteile	7
11	2	Warenausgang	Standardprozesse	RF-Bedienung			10
12	2	Warenausgang	Standardprozesse	Kommissionierung	Rack		5
13	2	Warenausgang	Standardprozesse	Kommissionierung	Routenzug		10
14	2	Warenausgang	Standardprozesse	Kommissionierung	KRAG		3
15	2	Warenausgang	Standardprozesse	Kommissionierung	TANK		2
16	2	Warenausgang	Standardprozesse	Kommissionierung	FHK/KOML		8
17	2	Warenausgang	Standardprozesse	Kommissionierung	Pick&Pack		12
18	2	Warenausgang	Standardprozesse	Kommissionierung	Kleinteile		15
19	2	Warenausgang	Standardprozesse	Verpacken			40
20	2	Warenausgang	Standardprozesse	Verladung			15
21	3	Wareneingang	Abweichende Prozesse	RF-Bedienung			10
22	3	Wareneingang	Abweichende Prozesse	Verpacken			80
23	3	Wareneingang	Abweichende Prozesse	Einlagerung	Großteile	Rack	4
24	3	Wareneingang	Abweichende Prozesse	Einlagerung	Großteile	Routenzug	5
25	3	Wareneingang	Abweichende Prozesse	Einlagerung	Großteile	KRAG	2
26	3	Wareneingang	Abweichende Prozesse	Einlagerung	Großteile	TANK	2
27	3	Wareneingang	Abweichende Prozesse	Einlagerung	Großteile	FHK/KOML	4
28	3	Wareneingang	Abweichende Prozesse	Einlagerung	Großteile	Pick&Pack	6
29	3	Wareneingang	Abweichende Prozesse	Einlagerung	Kleinteile	Kleinteile	7
30	4	Warenausgang	Abweichende Prozesse	RF-Bedienung			10
31	4	Warenausgang	Abweichende Prozesse	Kommissionierung	Rack		5
32	4	Warenausgang	Abweichende Prozesse	Kommissionierung	Routenzug		10
33	4	Warenausgang	Abweichende Prozesse	Kommissionierung	Kleinteile		15
34	4	Warenausgang	Abweichende Prozesse	Kommissionierung	KRAG/TANK		5
35	4	Warenausgang	Abweichende Prozesse	Kommissionierung	FHK/KOML		8
36	4	Warenausgang	Abweichende Prozesse	Kommissionierung	Pick&Pack		12
37	4	Warenausgang	Abweichende Prozesse	Verpacken			40
38	4	Warenausgang	Abweichende Prozesse	Verladung			15
39	5	SAP Bedienung	Standardprozesse	SAP Grundfunktionen			90
40	5	SAP Bedienung	Standardprozesse	Verladung			30
41	6
42	7
43	8
44	9
45	10

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 19.08 einschl. 64 Bit

und dann mit Userform und Makro die Eingaben in die Zellen dazwischen oder drunter (wo halt nötig) einfügen.

Auswertung kann dann über PivotTable erfolgen.
   

  Schulungsplanung Rabe.xlsm (Größe: 26,94 KB / Downloads: 20)