With Worksheets("TabelleXYZ")
Zeile = 10: Spalte = 4
If IsNumeric(Textbox1) then
.Cells(Zeile, Spalte).Value = Cdbl(Textbox1.Value)
Else
If Textbox1 = "" then 'kein Wert eingegeben
.Cells(Zeile, Spalte).Value =0
'oder
.Cells(Zeile,Spalte).ClearContents
Else
MsgBox "Für TextboxXYZ wurde keine Zahl eingegeben!"
Exit Sub
End If
End With
'Daten aus Bescheidung eintragen
Zeile = CLng(Me.TextBoxBeschreidungZeile)
SpalteD = 2 'Spalte B
ZeileD = 25 'Bescheidung
With wksBescheidung
wksDrucker.Cells(ZeileD, SpalteD) = .Cells(Zeile, 5).Text _
& IIf(.Cells(Zeile, 6) = "", "", vbLf & .Cells(Zeile, 6).Text) _
& IIf(.Cells(Zeile, 7) = "", "", vbLf & .Cells(Zeile, 7).Text)
End With
' Hardware Liste eintragen
SpalteD = 1 'Spalte A _Spalte in der die Posten-Nummer eingetragen wird
ZeileD = 34 'Zeile für Werte von Posten 1
'Altdaten Hardwareliste löschen
With wksDrucker
.Range(.Cells(ZeileD, SpalteD), _
.Cells(ZeileD, SpalteD).Offset(11, 4)).ClearContents
End With
'Daten aus Blatt Hardwareliste eintragen
Zeile = CLng(Me.TextBoxHardwareZeile) 'Zeilennummer im Blatt Hardwareliste
With wksHardware
For Posten = 1 To 6
Spalte = 5 + (Posten - 1) * 4 'Spalte mit Titel "Posten X", _
in der jeweils die Anzahl steht
'Prüfen, ob Anzahl für Posten eingetragen ist
If wksHardware.Cells(Zeile, Spalte) > 0 Then
'Zeile für Posten ausfüllen
wksDrucker.Cells(ZeileD, SpalteD) _
= .Cells(Zeile, Spalte).Value 'Anzahl
wksDrucker.Cells(ZeileD, SpalteD + 1) _
= .Cells(Zeile, Spalte + 1).Value 'Artikel-Nummer
wksDrucker.Cells(ZeileD, SpalteD + 2) _
= .Cells(Zeile, Spalte + 2).Value 'Bezeichnung
wksDrucker.Cells(ZeileD, SpalteD + 4) _
= .Cells(Zeile, Spalte + 3).Value 'Preis
'Zeile nächster Posten
ZeileD = ZeileD + 2
End If
Next
End With
'Verrechnungs-Daten im Blatt "Drucker" eintragen
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen