Nach "ThisWorkbook.Sheets(" muss immer der Name des Blattes kommen, und nicht ein Bereich - z.B. Sheets("Daten2017").
Der Code:
ThisWorkbook.Sheets("H2:H366").Cells(x, 8) = TextBox_UniFonds.Text
If ThisWorkbook.Sheets("H2:H366").Cells(x, 8) <> "" Then
Else: ThisWorkbook.Sheets("H2:H366").Cells(x + 1, 8) = TextBox_UniFonds.Value
schreibt die daten in die zelle, überprüft DANACH erst, ob was drin steht (natürlich steht da was drin, du hast es ja gerade hineingeschrieben), wenn ja, schreibt der code in die zeile drunter noch einmal.
Versuch es so:
Private Sub Button_übernehmen_Click()
Dim z As Long
Dim max As Long
For z = 2 To 366 'erste leere Zeile finden und in max speichern
If z = "" Then
max = z
Exit For
End If
Next z
Activeshet.Cells(max, 2) = TextBox_GESAMT
Activeshet.Cells(max, 5) = TextBox_UniProfiRente
'usw
'usw
Exit sub
|