Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spaltentexte zusammenfassen und neu belegen

Gruppe

Vergleich

Problem

Spaltentexte aus C:D sollen zusammengefaßt und Spalte D neu belegt werden.

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

StandardModule: basMain

Sub Editieren()
   Dim iRow As Integer, iRowL As Integer
   Application.ScreenUpdating = False
   iRowL = Cells(Rows.Count, 3).End(xlUp).Row
   For iRow = 2 To iRowL
      Cells(iRow, 3) = Cells(iRow, 3) & " - " & Cells(iRow, 4)
   Next iRow
   Range(Cells(2, 4), Cells(iRowL, 4)).Value = "489-610"
   Columns.AutoFit
   Application.ScreenUpdating = True
End Sub