Thema: In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften

StandardModule: basMain

Sub cmdStart_Click()
   Dim varStart As Variant, varEnde As Variant
   Dim iCounter As Integer
   varStart = InputBox( _
      prompt:="Startwert:", _
      Default:="5")
   varEnde = InputBox( _
      prompt:="Endwert:", _
      Default:="15")
   For iCounter = varStart To varEnde
      Worksheets("Tabelle2").Cells(iCounter, 1) = _
         iCounter & ". Zeile"
   Next iCounter
   Worksheets("Tabelle2").Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten