Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Textbox Inhalt einer Userform in eine bestimmte Zelle schreiben - VBA - Hiiilfe
#1
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 :)
Antworten Top
#2
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.
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#3
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!
Antworten Top
#4
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
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#5
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
Antworten Top
#6
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!
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Antworten Top
#7
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#8
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!


Angehängte Dateien
.xlsm   Schulungsplanung Bsp.xlsm (Größe: 29,51 KB / Downloads: 11)
Antworten Top
#9
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten Top
#10
Hi,
(20.12.2016, 09:56)RPP63 schrieb: 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
ABCDEFGHI
1SchulungBereichSchulungsartSchulungsinhaltAufgliederungAnlage für Übungen WAMinutenSumme MinutenAnzahl Schulungen
21WareneingangStandardprozesseRF-Bedienung10
31WareneingangStandardprozesseVerpacken80
41WareneingangStandardprozesseEinlagerungGroßteileRack4
51WareneingangStandardprozesseEinlagerungGroßteileRoutenzug5
61WareneingangStandardprozesseEinlagerungGroßteileKRAG2
71WareneingangStandardprozesseEinlagerungGroßteileTANK2
81WareneingangStandardprozesseEinlagerungGroßteileFHK/KOML4
91WareneingangStandardprozesseEinlagerungGroßteilePick&Pack6
101WareneingangStandardprozesseEinlagerungKleinteileKleinteile7
112WarenausgangStandardprozesseRF-Bedienung10
122WarenausgangStandardprozesseKommissionierungRack5
132WarenausgangStandardprozesseKommissionierungRoutenzug10
142WarenausgangStandardprozesseKommissionierungKRAG3
152WarenausgangStandardprozesseKommissionierungTANK2
162WarenausgangStandardprozesseKommissionierungFHK/KOML8
172WarenausgangStandardprozesseKommissionierungPick&Pack12
182WarenausgangStandardprozesseKommissionierungKleinteile15
192WarenausgangStandardprozesseVerpacken40
202WarenausgangStandardprozesseVerladung15
213WareneingangAbweichende ProzesseRF-Bedienung10
223WareneingangAbweichende ProzesseVerpacken80
233WareneingangAbweichende ProzesseEinlagerungGroßteileRack4
243WareneingangAbweichende ProzesseEinlagerungGroßteileRoutenzug5
253WareneingangAbweichende ProzesseEinlagerungGroßteileKRAG2
263WareneingangAbweichende ProzesseEinlagerungGroßteileTANK2
273WareneingangAbweichende ProzesseEinlagerungGroßteileFHK/KOML4
283WareneingangAbweichende ProzesseEinlagerungGroßteilePick&Pack6
293WareneingangAbweichende ProzesseEinlagerungKleinteileKleinteile7
304WarenausgangAbweichende ProzesseRF-Bedienung10
314WarenausgangAbweichende ProzesseKommissionierungRack5
324WarenausgangAbweichende ProzesseKommissionierungRoutenzug10
334WarenausgangAbweichende ProzesseKommissionierungKleinteile15
344WarenausgangAbweichende ProzesseKommissionierungKRAG/TANK5
354WarenausgangAbweichende ProzesseKommissionierungFHK/KOML8
364WarenausgangAbweichende ProzesseKommissionierungPick&Pack12
374WarenausgangAbweichende ProzesseVerpacken40
384WarenausgangAbweichende ProzesseVerladung15
395SAP BedienungStandardprozesseSAP Grundfunktionen90
405SAP BedienungStandardprozesseVerladung30
416
427
438
449
4510
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.
   

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


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste