VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von:
Jochen

Datum:
27.01.2018 14:43:49

Views:
587

Rating:

Antwort:

Thema:
Datenbank erstellen mit VBA

Hallo Mackie,

hoffe ich habe es richtig geschrieben:

Private Sub Button_übernehmen_Click()

Dim x As Long

For x = 2 To 366 'erste leere Zeile finden und in max speichern

ThisWorkbook.Sheets("GESAMT").Cells(x, 8) = TextBox_UniFonds.Text

If ThisWorkbook.Sheets("GESAMT").Cells(x, 8) <> "" Then

Else: ThisWorkbook.Sheets("GESAMT").Cells(x + 1, 8) = TextBox_UniFonds.Value

End If

Next x

End Sub

Jetzt fügt er den Wert von der Textbox_UniFonds ( Wert zb. 300 ) in die Zelle "H2" bis Zelle "H366" ein.

Habe ich noch was vergessen?

Danke vorab.

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen