VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften

Gruppe

Allgemein

Bereich

Bearbeiten

Thema

In einem zweiten Tabellenblatt vorgegebene Zeilen beschriften

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

    


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