Hallo Wissende!
Ich habe ein Problem mit VBA in Excel.
Ich möchte Text in Zeilen schreiben mittels InputBox.
Dazu soll die erste unbenutzte Zeile gewählt werden und die Spalte soll sich bestimmen aus der Spaltenüberschrift. Mein Quellcode sieht so aus:
Public Sub Eingabe()
Dim Spalte As Integer
Dim Name As String
Dim Vorame As String
Dim Nummer As Integer
Dim Alter As Integer
Dim max_Z As Integer
Spalte = Worksheets(„Tabelle1“).UsedRange.Columns.Count
max_Z = Worksheets(„Tabelle1“).UsedRange.Rows.Count
Name = InputBox("Bitte Name eingeben! ", „Name?“, „Name_“ & max_Z)
Cells((max_Z + 1), (Spalte - 3)).Value = Name
Vorname = InputBox("Bitte Vorname eingeben! ", „Vorname?“, „Vorname_“ & max_Z)
Cells((max_Z + 1), (Spalte - 2)).Value = Vorname
Nummer = InputBox("Bitte Nummer eingeben! ", „Nummer?“, max_Z)
Cells(max_Z + 1, (Spalte - 1)).Value = Nummer
Alter = InputBox(„Bitte Alter eingeben!“, „Alter?“, max_Z)
Cells(max_Z + 1, (Spalte)).Value = Alter
Zeile bestimmen klappt gut, auch wenn sich die Anzahl ändert.
Aber wie bekomme ich die Krücke weg (spalte - 3)?
Ich weiß ja nicht, ob ich morgen noch 4 Spalten hab oder schon 5. Oder ob sich die Reihenfolge mal ändert?
Wie kann ich da eine Abfrage/Variable einbauen, so dass Excel alleine die passende Spalte findet?
Vielen Dank & freundliche Grüße
Feinkostmusik