funkt nicht
18.06.2003 11:39:12
heinz
public t as String funkt nicht :(Dass mit der Zell hab ich schon probiert. Ich hab zwei methoden die nahe zu identisch sind bis auf die letzten zeilen. Aber die erste schreibt keine Werte.
Private Sub CommandButton8_Click()
Dim Zelle As Range, vd1 As String, Ssheet As String, a As String
Ssheet = ActiveSheet.Name
Sheets(Array("Plan-Daten", "Ist-Daten", "Hochrechnung")).Select
Cells(ActiveCell.Row, 1).Select
a = UserForm1.TextBox1.Text
ActiveCell.Value = a
Cells(ActiveCell.Row, 2).Select
vd1 = UserForm1.ComboBox1.Text
Sheets("Verdichtung1").Select
Range("L2:L200").Select
For Each Zelle In Selection
If InStr(Zelle, vd1) > 0 Then
Zelle.Offset(0, -10).Select
Selection.Copy
Sheets(Array("Ist-Daten", "Plan-Daten", "Hochrechnung")).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
End If
Next Zelle
Sheets(Array("Plan-Daten", "Ist-Daten", "Hochrechnung")).Select
Cells(ActiveCell.Row, 3).Select
ActiveCell.Value = UserForm1.ComboBox2.Value
Cells(ActiveCell.Row, 4).Select
Sheets(Ssheet).Select
With UserForm1
.TextBox1.Text = ""
.ComboBox1.ListIndex = 0
.ComboBox1.ListIndex = 0
.TextBox1.SetFocus
End With
End Sub
diese funkt nicht. Zweite ist gleich bis zum Schluss: with Userform1 ist nicht mehr dort, an seiner stelle ist einfach Unload Me. Bräuchte beide varianten aber für verschiedene Commandbuttons.