Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Daten aus einer Adressmaske in Adressdatenbank

Gruppe

Bearbeiten

Problem

Die Daten aus dem Bereich C3:C6 sollen in das Blatt Adressen in die nächste freie Zeile eingetragen werden.

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

StandardModule: basMain

Sub InsertData()
   Dim iRow As Integer, iCounter As Integer
   If WorksheetFunction.CountA(Range("C2:C6")) = 0 Then
      MsgBox "Keine Daten vorhanden!"
      Exit Sub
   End If
   With Worksheets("Adressen")
      iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      For iCounter = 1 To 5
         .Cells(iRow, iCounter) = Cells(iCounter + 1, 3)
      Next iCounter
   End With
End Sub