Von - Bis Werte über VBA ausschreiben lassen
06.07.2016 08:47:53
Christian
Ich habe folgendes Problem:
Ich möchte Inhalte Von - Bis aus einen Tabellenblatt in ein Tabellenblatt nach Artikel schreiben lassen.
Zuerst prüfen ob in Spalte F ein Eintrag "Ja" vorhanden ist. Falls dem so ist nichts machen. Ansonsten:
In Spalte A des Tabellenblatt Temporäre Liste steht der Artikel, z.B. A, dann soll die Spalte D (Von Wert Bsp. 1) und E (Bis Wert Bsp. 20) in das Tabellenblatt A ausgeführt übertragen werden.
Sprich
1
2
3
4
...
20
Im Tabellenblatt Temporäre Liste soll nach dem Übertrag in Spalte F Daten übertragen der Vermerk ja eingetragen werden.
Bei der nächsten Ausführung des Makros sollen dann nur die Daten übertragen werden, bei denen noch kein Ja Eintrag vorhanden ist.
Beispieldatei: https://www.herber.de/bbs/user/106789.xlsx
Folgenden Code habe ich leider nicht zum Laufen gebracht:
Private Sub CommandButton1_Click()
Dim s1 As Worksheet
Dim y1 As Long
Dim s2 As Worksheet
Dim y2 As Long
Dim strArtikel As String
Dim intVon As Integer
Dim intBis As Integer
Dim strBlatt As String
Dim n As Integer
Set s1 = ActiveSheet
y1 = 1 'Evtl. Zeilennummer anpassen !!!
strArtikel = s1.Cells(y1, 1).Value
If (strArtikel "") Then
intVon = s1.Cells(y1, 4).Value
intBis = s1.Cells(y1, 5).Value
If (intBis > intVon) Then
strBlatt = Right$(strArtikel, 4)
Set s2 = Worksheets(strBlatt)
y2 = s2.Cells(s2.Rows.Count, 1).End(xlUp).Row
For n = intVon To intBis
y2 = y2 + 1
s2.Cells(y2, 1).Value = n
Next n
s1.Cells(y1, 8).Value = "ja"
s2.Activate: s2.Cells(y2, 1).Activate
End If
End If
End Sub