Uebergabe/VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Uebergabe/VBA
von: Bigi
Geschrieben am: 25.04.2005 11:22:09
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
Bild

Betrifft: AW: Uebergabe/VBA
von: Peter S.
Geschrieben am: 25.04.2005 12:14:17
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.
Bild

Betrifft: AW: Uebergabe/VBA
von: Bigi
Geschrieben am: 25.04.2005 12:59:11
Suuuper,
vielen Dank für deine Hilfe
Viele Grüsse
Bigi
 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code zum Ausblenden einer Excel-Mappe"