bitte helft mir bei meinem Problem.
Ich habe eine Listbox markiere eine Zeile und übernehme die Daten in Textboxes.
Den Wert ändere ich weil z. B. falsche Eingabe und möchte mit Button die Daten in
die Tabelle übernehmen an gleicher Stelle, wo ich diese abgerufen habe.
Ich mache dies wie folgt:
Private Sub CommandButton70_Click()
'Dim strRange As Range
'ActiveWorkbook.Worksheets(1).Activate
'strRange = Worksheets(1)!Range("A2:E1000")
'With Range(strRange)
With Range("(Konto 2017)!A4:E1000")
Me.Tag = "1"
.Cells(ListBox2.ListIndex + 1, 1).Value = (TextBox1.Value) 'CDbl(TextBox1.Value)
.Cells(ListBox2.ListIndex + 1, 2).Value = (TextBox2.Value) 'CDbl(TextBox2.Value)
.Cells(ListBox2.ListIndex + 1, 3).Value = (TextBox3.Value) 'CDbl(TextBox3.Value)
.Cells(ListBox2.ListIndex + 1, 4).Value = (TextBox4.Value) 'CDbl(TextBox2.Value)
.Cells(ListBox2.ListIndex + 1, 5).Value = (TextBox5.Value) 'CDbl(TextBox3.Value)
Me.Tag = ""
End With
UF_Gesamt.OptionButton8 = True
UF_Gesamt.CommandButton70.Enabled = False
End Sub
Es kommt Fehlermeldung Laufzeitfehler 1004 Die Methode "Range" für das Objekt'_Global ist fehlgeschlagenIch benötige hier das Worksheet(1) die Zellen A4:E1000.
Besten Dank für Eure Hilfe.
Gruss
Peter