Zellen auslesen, ändern, zurück schreiben
24.01.2006 21:15:23
Uwe
mich plagt da wieder mal ein Problem. Der folgenden Code liest mir Daten aus einer aktiven Sheet aus die ich dann ändern kann und an die ursprüngliche Stelle zurück schreibe.
Wie stelle ich es aber an in einer aktiven Arbeitsmappe mit mehreren Sheets genau diese Daten von jeder x- beliebigen Sheet aus mittels Userform aus zu lesen zu ändern und zurück zu schreiben?
Private Sub ComboBox1_Click()
Dim Zeile As Range
Dim n As Integer
For Each Zeile In ActiveSheet.UsedRange.Rows
If Zeile.Hidden = False Then
If n = ComboBox1.ListIndex Then
Me.TextBox1.Value = ActiveSheet.Cells(Zeile.Row, 3).Text
Me.TextBox2.Value = ActiveSheet.Cells(Zeile.Row, 4).Text
Me.TextBox3.Value = ActiveSheet.Cells(Zeile.Row, 5).Text
Me.TextBox4.Value = ActiveSheet.Cells(Zeile.Row, 6).Text
End If
n = n + 1
End If
Next
End Sub
Private Sub CommandButton1_Click()
Dim Zeile As Range
Dim n As Integer
For Each Zeile In ActiveSheet.UsedRange.Rows
If Zeile.Hidden = False Then
If n = ComboBox1.ListIndex Then
ActiveSheet.Cells(Zeile.Row, 3) = TextBox1.Value
ActiveSheet.Cells(Zeile.Row, 4) = TextBox2.Value
ActiveSheet.Cells(Zeile.Row, 5) = TextBox3.Value
ActiveSheet.Cells(Zeile.Row, 6) = TextBox4.Value
End If
n = n + 1
End If
Next
End Sub
Private Sub CommandButton2_Click()
End
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Range
For Each Zeile In ActiveSheet.UsedRange.Rows
If Zeile.Hidden = False Then
ComboBox1.AddItem ActiveSheet.Cells(Zeile.Row, 2)
End If
Next
End Sub
Anzeige