habe bereits einen Code der funktioniert und den Buchstaben um jeweils 1 erhöht. Jetzt möchte ich aber das der Buchstabe I übersprungen wird und gleich J angezeigt wird. Wie muss ich das ergänzen?
TextBox1.Text = Chr(Asc(Sheets("History").Range("A" & Cells(Rows.Count, 1).End(xlUp).Row).Text) _
+ 1)