worksheet("x") variable?
05.02.2013 16:26:04
Peter
Ich möchte das man in einer Suchzeile z.B. 096.01.05 eingibt er die sucht und sagt vorhanden sie haben das Projekt ausgewählt und wenn nicht vorhhanden wir gesagt neues Projekt anlegen. Soweit habe ich es auch.
Aber ich möchte jetzt das ich dann auf einen Button drücke und meine Userform aufgeht und dor bei "Namen" der jeweilige "Name" der im arbeitsblat "096.01.05" in celle B4 steht dort angezeigt wird und beim ändern dorthim übertragen wird.
Private Sub CommandButton3_Click()
B = TextBox1.Value
Dim r As Boolean
r = False
For i = 1 To Sheets.Count
If B = Sheets(i).Name Then
r = True
[A1] = B
Exit For
End If
Next i
If r = True Then
MsgBox "Projektname vorhanden"
End If
If r = False Then
MsgBox " Projekt existiert nicht und muss neu angelegt werden"
End If
End Sub
Das ist ja die Procedur für die abfrage.
jetzt die zum schreiben für die userform
Private Sub CommandButton1_Click()
UserForm1.TextBox1.Value = Worksheets("B").Range("B3")
UserForm1.TextBox2.Value = [Tabelle1!B4]
UserForm1.TextBox3.Value = [Tabelle1!B5]
UserForm1.TextBox4.Value = [Tabelle1!B6]
If [B7] = "X" Then UserForm1.CheckBox1.Value = True Else UserForm1.CheckBox1.Value = False
UserForm1.Show
End Sub
Da wo das "B" steht soll dann sozusagen die Variable rein! so das man über die Projekt-NR gleich das arbeitsblatt angibt und wenn man Es gesucht hat dort, über das Formular, gleich arbeiten kann. Hoffe man versteht was ich meine :S
Ich komme leider nicht weider, und brauche dringend Hilfe!!!
Danke schon mal im Vorraus :)