Aufgabe für Programierer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Aufgabe für Programierer

10.03.2004 21:37:50

Ramses

AW: Aufgabe für Programierer

10.03.2004 21:51:09

Burkhard

Noch offen...

10.03.2004 22:02:02

Ramses

AW: Noch offen...

10.03.2004 22:18:01

Burkhard

Das war bisher:

11.03.2004 00:31:03

Boris

AW: Das war bisher:

11.03.2004 08:45:07

Burkhard

AW: Das war bisher:

11.03.2004 09:34:58

Boris

Ok, Boris

11.03.2004 09:48:38

Burkhard

AW: Aufgabe für Programierer

10.03.2004 21:57:16

Burkhard

Hallo Rainer,
die Comboboxen sind auf einer Userform. 9 Stück. Hier der Code:
Private Sub CommandButton4_Click()

With Tabelle1
Dim C As Range, Z As Long
Set C = .Range("C:C").Find(TextBox3, LookAt:=xlWhole)
If Not C Is Nothing Then
MsgBox "Dieses Medikament ist schon mit Kanälen belegt!"
Exit Sub
End If
Z = IIf(IsEmpty(.[a65536]), .[a65536].End(xlUp).Row, 65536) + 1
If Z >= 65536 Then
MsgBox "Ich weiss nicht, was jetzt passieren soll...", , "Spalte ist voll..."
Exit Sub
End If
Tabelle1.Select
'.Rows(Z).HorizontalAlignment = xlRight
.Cells(Z, 1) = TextBox1
Cells(Z, 1) = TextBox1.Value
.Cells(Z, 2) = TextBox2
.Cells(Z, 3) = TextBox3
Cells(Z, 3) = TextBox3.Value
'Cells(Z, 3) = CDbl(TextBox3)
.Cells(Z, 4) = ComboBox1
.Cells(Z, 5) = ComboBox2
Cells(Z, 5) = ComboBox2.Value
.Cells(Z, 6) = ComboBox3
Cells(Z, 6) = ComboBox3.Value
.Cells(Z, 7) = ComboBox4
Cells(Z, 7) = ComboBox4.Value
.Cells(Z, 8) = ComboBox5
Cells(Z, 8) = ComboBox5.Value
.Cells(Z, 9) = ComboBox6
Cells(Z, 9) = ComboBox6.Value
.Cells(Z, 10) = ComboBox7
Cells(Z, 10) = ComboBox7.Value
.Cells(Z, 11) = ComboBox8
Cells(Z, 11) = ComboBox8.Value
.Cells(Z, 12) = ComboBox9
Cells(Z, 12) = ComboBox9.Value
End With
Ens Sub

Reicht das? Ciao, Burkhard

Hallo
ich halte es mit deiner Messagebox
"...MsgBox "Ich weiss nicht, was jetzt passieren soll..."..."
Verzeih mir bitte die etwas harte Aussage:
Bin ich ein Hund dem man einen Knochen hinwirft ?
Ich habe keine Ahnung was du vorhast und was das soll:
"...With Tabelle1.."
Woher kommt die Variable ?
"...Cells(Z, 3) = TextBox3
Cells(Z, 3) = TextBox3.Value..."
Zweimal den Wert in die gleiche Zelle ? Für was ....
Wozu soll, gemäss deiner ersten Frage der Wert der Comboboxen verkettet werden und in einem Array gesucht werden, und was möchtest du erreichen ??
Fragen über Fragen....
Es ist mir nicht möglich aus deiner 1. Fragestellung und deiner jetzigen Anwort einen sinnvollen Zusammenhang zu erkennen.

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread