Zellen Überprüfen und Weiterspringen
18.06.2015 14:52:21
Gronk
Ich versuche gerade ein Makro zu schreiben mit dem ich Konservierungsstoffe und Allergene sowie den Artikelnamen erfassen kann. Der Eintrag per Inputbox funktioniert, auch wird die Eingabe an den richtigen Zellen vorgenommen.
Nun habe ich aber folgendes Problem: Das Makro befasst sich nur mit den Zellen A3, B3 und C3. Wenn ich nun ein neues Produkt eintragen will so wird der vorherige Eintrag überschrieben. Nun suche ich nach einer Möglichkeit die Zellen zuerst zu überprüfen, bis eine Leere Zelle gefunden ist in die der Eintrag, also der Neue, eingetragen werden kann.
Bisher sieht mein Makro wie folgt aus:
Sub Inhaltsstoffe()
Dim Warenname As String
Dim Allergen As String
Dim Konservierungsstoffe As Integer
Warenname = InputBox("Bitte Namen eintragen")
Allergene = InputBox("Bitte Allergenkürzel eintragen")
Konservierungsstoffe = InputBox("Bitte Konservierungsstoffkürzel eintragen")
With Sheets("Tabelle1")
.Range("B1").Value = "Inhaltsstoffe"
.Range("A2").Value = "Warenname"
.Range("B2").Value = "Allergene"
.Range("C3").Value = "Konservierungsstoffe"
.Range("A3").Value = Warenname
.Range("B3").Value = Allergene
.Range("C3").Value = Konservierungsstoffe
End With
End Sub