Option Explicit
 
Private oExl As New Excel.Application
 
Private Sub Command1_Click()
 
Dim i As Integer
Dim a As Integer
 
   ' Workbook öffnen
   On Error Resume Next
   oExl.Workbooks.Open "D:\Mappe21.xls"   ' Beispieldatei öffnen
   If Err > 0 Then
      MsgBox "Exceldatei konnte nicht gefunden oder geöffnet werden.", _
         vbExclamation, "Dateifehler"
      Exit Sub
   End If
 
   On Error GoTo 0
 
    ' Tabelle selektieren
    ActiveWorkbook.Sheets("Tabelle1").Select
 
For i = 3 To 21 Step 3
        a = a + 1
    ' Daten in Zellen schreiben
    With ActiveSheet
        .Cells(2, i).Value = "Sensor " & a
        .Cells(2, i + 1).Value = "Zeit"
        .Cells(2, i + 2).Value = "Temperatur"
    End With
Next i
 
   ' alles schließen
   ActiveWorkbook.Close SaveChanges:=True   ' Exceldatei speichern und schließen
   oExl.Quit
   Set oExl = Nothing
 
End Sub