Hallo,
gerne würde ich für ein kleines Excel Tool von mir anpassen.
Aktuell nutze ich den folgenden Code, den ich mit viel Hilfe hier aus dem Forum für meine Zwecke abändern konnte:
Dabei steht in B2 eine Artikelnummer und in F3 die Menge. Diese werden dann in ein neues Tabellenblatt geschrieben in A1 und B1.
Zusätzlich wird dem Tabellenblatt ein Name zugewiesen, der in Zelle E4 steht. Gibt es bereits ein Tabellenblatt mit dem Namen, so wird in dieses Tabellenblatt in die nächste Zeile geschrieben.
Mein Ziel ist es, dass eine weitere Abfrage hinzukommt, bei der überprüft wird, wenn M31 nicht leer ist, ein weiteres Tabellenblatt erstellt wird. Dies hat den Namen, der in E5 steht.
Zudem soll in A1 der Wert aus B2 stehen und außerdem anstatt F3 dann M31.
Auch hier gilt, ist das Tabellenblatt bereits vorhanden, soll in die nächste Zeile geschrieben werden.
Über Tipps wäre ich sehr dankbar.
Möglicherweise hat auch jemand für mich einige Literaturtipps. Gerne würde ich mich diesbezüglich weiterentwickeln.
gerne würde ich für ein kleines Excel Tool von mir anpassen.
Aktuell nutze ich den folgenden Code, den ich mit viel Hilfe hier aus dem Forum für meine Zwecke abändern konnte:
Code:
Sub Bestelldatei()
Dim i As Long, boVorhanden As Boolean
Application.ScreenUpdating = False
For i = 1 To Worksheets.Count
If Worksheets(i).Name = Worksheets("Bestand").Range("E4") Then
boVorhanden = True
With Worksheets(i)
.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Sheets("Bestand").Range("B2").Value
.Cells(.Rows.Count, 1).End(xlUp).Offset(, 1).Value = Sheets("Bestand").Range("F3").Value
MsgBox "Hinzugefügt zu " & Worksheets("Bestand").Range("E4").Value
End With
Exit For
End If
Next i
If Not boVorhanden Then
Worksheets.Add after:=Sheets(3)
ActiveSheet.Name = Worksheets("Bestand").Range("E4")
ActiveSheet.Range("A1") = Worksheets("Bestand").Range("B2")
ActiveSheet.Range("B1") = Worksheets("Bestand").Range("F3")
End If
End Sub
Dabei steht in B2 eine Artikelnummer und in F3 die Menge. Diese werden dann in ein neues Tabellenblatt geschrieben in A1 und B1.
Zusätzlich wird dem Tabellenblatt ein Name zugewiesen, der in Zelle E4 steht. Gibt es bereits ein Tabellenblatt mit dem Namen, so wird in dieses Tabellenblatt in die nächste Zeile geschrieben.
Mein Ziel ist es, dass eine weitere Abfrage hinzukommt, bei der überprüft wird, wenn M31 nicht leer ist, ein weiteres Tabellenblatt erstellt wird. Dies hat den Namen, der in E5 steht.
Zudem soll in A1 der Wert aus B2 stehen und außerdem anstatt F3 dann M31.
Auch hier gilt, ist das Tabellenblatt bereits vorhanden, soll in die nächste Zeile geschrieben werden.
Über Tipps wäre ich sehr dankbar.
Möglicherweise hat auch jemand für mich einige Literaturtipps. Gerne würde ich mich diesbezüglich weiterentwickeln.