Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Uebergabe/VBA

Uebergabe/VBA
25.04.2005 11:22:09
Bigi
Einen schönen guten Morgen,
ich hätte da wieder einmal 1-2 Problemchen,
könnte mir bitte jemand behilflich sein

Private Sub CommandButton1_Click()
Sheets("Rechnung").[E15] = TextBox1.Value
Sheets("Rechnung").[B11] = ComboBox1.Value
Sheets("Rechnung").Select
Unload UserForm6
End Sub

Mit dem oben genannten Code übergebe ich Daten aus einer Userform in die Tabelle "Rechnung",
nun sollten diese Daten auch in die Tabelle "RNFR1" übertragen werden
und zwar immer in die nächste freie Zelle.
Die Combobox ab A30 usw.
Die Textbox ab C30 usw.
z.B.
Kunde Rechnungsnummer

Schuler 5493
Krueger 5596
Kann man eigentlich die letzte Rechnungsnummer so gestalten
das beim laden meiner Userform6 die letzte Rechnungsnummer
immer in der Textbox1 steht.
Viele Grüsse
Bigi

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

Betreff
Datum
Anwender
Anzeige
AW: Uebergabe/VBA
25.04.2005 12:14:17
Peter
Hallo Bigi,
so wie nachstehend löse ich es; allerdings funktioniert das nur wenn die Combo + Textbox auf einer Userform sind, wenn sie in der Tabelle direkt sind nicht
Dim z As Integer, myArr As Variant
Dim iCounter As Integer
Sheets("RNFr1").Activate
z = Range("A65536").End(xlUp).Row
Cells(z + 1, 1) = ComboBox1.Value
Cells(z + 1, 3) = TextBox1.Value
und das mit der Rechnungsnummer habe ich folgendermassen gelöst:
TextBox1 = Application.Max(Sheets("kunden").[a:a]) + 1
Hier wird halt gleich die nächste freie Nummer vorgeschlagen
Hoffe es hilft
Peter S.
Anzeige
AW: Uebergabe/VBA
25.04.2005 12:59:11
Bigi
Suuuper,
vielen Dank für deine Hilfe
Viele Grüsse
Bigi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige