Zellwert hochzählen
14.11.2006 17:15:29
frank
ich möchte aus einer Tabelle daten in eine Textbox auslesen um sie danach eine Zeile weiter unten geändert oder auch nicht wieder hineinzuschreiben.
Funktioniert alles bestens nur bei einer Sache haperts.
In Spalte 1 stehen fortlaufend Zahlen wo ich die Zeile welche eingelesen werden soll auswähle.
Bei der jetzigen Hergangsweise blieb die Spaltennummer der eingefügten Zeile immer leer. Ich möchte aber, das sie jeweils um 0,1 hochgezählt wird. Beim ersten Aufruf funktioniert dies auch. Wähle ich aber z.B. 6,1 steht was anderes drin nämlich stattss 6,2 61,1?
Danke fürs anschauen
wollte das file hochladen - server sagt mir kein Upload möglich?
Option Explicit
Private Sub Cmdeintragen_click()
Dim zelle As Object
Dim ersteAdresse As String
Dim we As String
Dim zi As Integer
we = TextBox1.Text
With Worksheets(1).Range("a1:a50")
Set zelle = .Find(we, LookIn:=xlValues)
If Not zelle Is Nothing Then
ersteAdresse = zelle.Address
zi = zelle.Row
Rows(zi + 1).Insert Shift:=xlDown
Cells(zi + 1, 1) = TextBox1.Text + 0.1
Cells(zi + 1, 2) = TextBox2.Text
Cells(zi + 1, 3) = TextBox3.Text
End If
End With
If zi > 1 Then Exit Sub
UserForm1.TextBox1 = ""
UserForm1.TextBox2 = ""
UserForm1.TextBox3 = ""
End Sub
Private Sub Cmdeinlesen_click()
Dim zelle As Object
Dim ersteAdresse As String
Dim we As String
Dim zi As Integer
we = TextBox1.Text
With Worksheets(1).Range("a1:a50")
Set zelle = .Find(we, LookIn:=xlValues)
If Not zelle Is Nothing Then
ersteAdresse = zelle.Address
zi = zelle.Row
TextBox2.Text = (Cells(zi, 2))
TextBox3.Text = (Cells(zi, 3))
End If
End With
If zi > 1 Then Exit Sub
UserForm1.TextBox1 = ""
UserForm1.TextBox2 = ""
UserForm1.TextBox3 = ""
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Gruß Frank