Zellen in Userfom auslesen und zurückschreiben
25.01.2006 11:12:13
Uwe
der folgende Code liest Daten aus einem aktiven Tabellenblatt in Textfelder einer VBA- UserForm aus und schreibt die Werte wieder in die Tabelle zurück.
Wie muss der Code geändert werden wenn ich mit der UserForm ein nicht aktives Blatt (Benutzer) einer Arbeitsmappe auslesen und ändern möchte?
Kann mir da jemand helfen?
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
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
Anzeige