Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften

Gruppe

Bearbeiten

Problem

Wie kann ich über InputBoxes Von-/Bis-Zeilennummern festlegen und die entsprechenden Zeilen in einem zweiten Arbeitsblatt beschriften?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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