Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1580to1584
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1580to1584
1580to1584
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Textboxen untereinander schreiben

Userform Textboxen untereinander schreiben
17.09.2017 21:37:15
Vilson
Hallo zusammen
als ersten vielen HERZLICHEN DANK für eure Beiträge sowie für diesen Formum.
habe eine Frage und zwar:
Habe ein Userform mit je 18 TextBox und ComboBox.
Es wird nur die letzte Zeile der Tabelle beschrieben mit dem TextBox& ComoBox 18.
Vielen DANK für eure hilfe schon mal im Voraus
Gruss Vilson
Markro:
Private Sub cmd_OK_Click()
Dim wksuebertrag As Worksheet
Dim intLetzteZeile As Long
Set wksuebertrag = Worksheets("Daten")
With wksuebertrag
intLetzteZeile = wksuebertrag.Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(intLetzteZeile, 2).Value = cbo_Datum
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung
.Cells(intLetzteZeile, 3).Value = txt_Anzahl
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_2
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_2
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_3
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_3
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_4
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_4
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_5
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_5
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_6
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_6
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_7
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_8
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_9
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_9
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_10
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_10
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_11
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_11
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_12
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_12
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_13
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_13
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_14
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_14
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_15
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_15
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_16
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_16
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_17
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_17
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_18
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_18
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform Textboxen untereinander schreiben
17.09.2017 21:52:41
Gerd
Hallo,
guckst du nach "Controls" und "Schleifen". :-)
Private Sub cmd_OK_Click()
Dim wksuebertrag As Worksheet
Dim intLetzteZeile As Long
Set wksuebertrag = Worksheets("Daten")
With wksuebertrag
intLetzteZeile = wksuebertrag.Cells(Rows.Count, 2).End(xlUp).Row + 1
.Cells(intLetzteZeile, 2).Value = cbo_Datum
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_2
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_2
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_3
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_3
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_4
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_4
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_5
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_5
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_6
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_6
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_7
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_8
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_9
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_9
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_10
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_10
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_11
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_11
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_12
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_12
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_13
intzeile = intzeile + 1
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_13
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_14
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_14
intzeile = intzeile + 1
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_15
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_15
intzeile = intzeile + 1
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_16
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_16
intzeile = intzeile + 1
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_17
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_17
intzeile = intzeile + 1
.Cells(intLetzteZeile, 4).Value = cbo_Artikelbezeichnung_18
.Cells(intLetzteZeile, 3).Value = txt_Anzahl_18
End Sub

Gruß Gerd
Anzeige
AW: Userform Textboxen untereinander schreiben
18.09.2017 07:19:40
Vilson
Hallo Gerd
Vielen Herzlichen DANK!
Es funktioniert so wie ich mir gewünscht habe.
Die Variante vom Sepp gefällt mir besser, muss aber zuerst richtig verstehen.
Dein Vorschlag ist mir klarer.
Merci&Gruss
Vilson
AW: Userform Textboxen untereinander schreiben
17.09.2017 21:56:02
Sepp
Hallo Vilson,
klar, du schreibst ja immer in die selbe Zeile!
Benenne deine erste TextBox um in "txt_Anzahl_1" und die erste ComboBox in "cbo_Artikelbezeichnung_1", dann nimm diesen Code.
Private Sub cmd_OK_Click()
Dim wksuebertrag As Worksheet
Dim lngLastRow As Long, lngIndex As Long

Set wksuebertrag = Worksheets("Daten")

With wksuebertrag
  lngLastRow = .Cells(Rows.Count, 2).End(xlUp).Row
  For lngIndex = 1 To 18
    If Len(Trim(Me.Controls("txt_Anzahl_" & CStr(lngIndex)).Text)) Then
      .Cells(lngLastRow + lngIndex, 2).Value = cbo_Datum
      .Cells(lngLastRow + lngIndex, 3).Value = Me.Controls("txt_Anzahl_" & CStr(lngIndex)).Text
      .Cells(lngLastRow + lngIndex, 4).Value = Me.Controls("cbo_Artikelbezeichnung_" & CStr(lngIndex)).Text
    End If
  Next
End With
Set wksuebertrag = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Userform Textboxen untereinander schreiben
18.09.2017 07:16:38
Vilson
Hallo Sepp
Vielen Herzlichen DANK!
Es funktioniert so wie ich mir gewünscht habe.
Merci&Gruss
Vilson

300 Forumthreads zu ähnlichen Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Anzeige
Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Anzeige
TextBoxen formatieren
Frank

Hallo liebes Forum!
Wieder einmal brauche ich Rat! In einem Tabellenblatt befinden sich mehrere Textboxen, welche über die Eigenschaft LinkedCell sich ihren Inhalt holen. Nun möchte ich das wenn der darin befindliche Wert negativ ist, der Inhalt rot geschrieben wird. Wie bekomme ich zwische...
28.10.2008 20:37:00
Thread-ID: 1020080
10 Beiträge
TextBoxen werden nicht geleert
Josef

Hallo!
Ich habe folgenden Code in einer Userform
Private Sub ListBox1_Click() On Error Resume Next If ListBox1.List(ListBox1.ListIndex, 7) = "EV-N / FV-XPV" Then Call Text_EF Call Text_EF2 Call Text_EF3 TextBox40.Text = "" Else If ListBox1.List(ListBox1.ListIndex, 7) = "J" Then TextBo...
29.10.2008 14:19:00
Thread-ID: 1020283
3 Beiträge
Textboxen aus Tabelle füllen
Sebastian

Guten Abend zusammen,
ich sitze wieder mal vor einem Problem und hoffe auf eure Hilfe. Ich habe eine Tabelle mit Kundennamen, die sich von Monat zu Monat verändert. Ich möchte nun (wenn möglich) eine Userform mit einer variablen Anzahl von Textfeldern auf "Knopfdruck" generieren, wobei die...
03.11.2008 18:25:00
Thread-ID: 1021413
6 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Rechnen mit TextBoxen
Frank

Hallo Zusammen!!!
Einen schönen guten Abend und schon vorab Danke für bestimmt zahlreiche Hilfe!
Ich benutze folgenden Code:
TextBox4.Value = TextBox2.value - TextBox3.Value
Diese Codezeile wird mittels Klick auf eine Schaltfläche ausgelöst. Funzt mit normalen Zahlen auch Super,...
14.11.2008 19:27:33
Thread-ID: 1024690
7 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox TextBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
7
3
3
1
9
2
5
2
6
5
2
11
4
4
1
20
12
2
5
15
2
3
14
1