VBA Anfänger problem?

... komplette Frage anzeigen

3 Antworten

Kannst du vom Quelltext ein besseres Foto machen, oder den Text hier reinstellen? Wenn man nur die halben Zeilen sieht, kann man dir nicht helfen.

Antwort bewerten Vielen Dank für Deine Bewertung
Kommentar von Coniel1
18.03.2016, 16:54

Das kann ich gerne tun.
Wie kann ich hier noch mehr Bilder einfügen?

0
Kommentar von Coniel1
18.03.2016, 16:59

Kann leider den Code erst Morgen hier reinschreiben. Da ich heute kein Zugriff mehr darauf habe. Sorry

0
Kommentar von Coniel1
18.03.2016, 17:18

Ich musste eine weitere Frage stellen um noch ein Foto hoch zu laden. Ich hatte 3-Fotos gemacht.
Dim steht dort geschrieben.

0

Private Sub frmÜbernehmen_Click()

'Fügt die eingetragene Werte ins Tabellenblatt und schliesst das Formular frmInfo

Dim intErsteLeereZeile As Long
Dim curNetto As Currency

With ActiveSheet
intErsteLeereZeile = .Cells(Row.Count, 1).End(x1Up).Row + 1

.Cells(intErsteLeereZeile, 1).Value = Me.txtName
.Cells(intErsteLeereZeile, 2).Value = Me.txtEinteilung
.Cells(intErsteLeereZeile, 3).Value = Me.txtPreis
.Cells(intErsteLeereZeile, 4).Value = Me.txtkcal
.Cells(intErsteLeereZeile, 5).Value = Me.txtProteine
.Cells(intErsteLeereZeile, 6).Value = Me.txtKohlenhydrate
.Cells(intErsteLeereZeile, 7).Value = Me.txtdavonZucker
.Cells(intErsteLeereZeile, 8).Value = Me.txtFett
.Cells(intErsteLeereZeile, 9).Value = Me.txtdavongesättigteFettsäuren
.Cells(intErsteLeereZeile, 10).Value = Me.txtBallaststoffe
.Cells(intErsteLeereZeile, 11).Value = Me.txtNatrium
.Cells(intErsteLeereZeile, 12).Value = Me.txtAllergene
EndWith

Load frmInfo
End Sub

Antwort bewerten Vielen Dank für Deine Bewertung

bitte KEINE bilder. stell den code in www.paste2.org rein.

Antwort bewerten Vielen Dank für Deine Bewertung

Was möchtest Du wissen?