Wie kopiert ein Excel-Makro Daten aus Blatt1 und fügt sie ab Zelle B18 ins aktive Blatt ein?

Um dieses Szenario in Excel mit VBA umzusetzen, kannst du ein Makro schreiben, das immer von dem aktiven Blatt aus gestartet wird. Das Makro kopiert dann die gewünschten Daten aus „Blatt1“ und fügt sie ab Zelle B18 in das aktuell aktive Blatt ein (außer, wenn das aktive Blatt „Blatt1“ selbst ist).

Hier ein Beispielcode:

```vba
Sub DatenVonBlatt1Kopieren()
Dim quellBlatt As Worksheet
Dim zielBlatt As Worksheet
Dim kopierBereich As Range

Set quellBlatt = ThisWorkbook.Sheets("Blatt1")
Set zielBlatt = ActiveSheet

' Sicherstellen, dass nicht in Blatt1 eingefügt wird
If zielBlatt.Name = quellBlatt.Name Then
MsgBox "Das Makro darf nicht in Blatt1 ausgeführt werden.", vbExclamation
Exit Sub
End If

' Bereich festlegen, z.B. A1:D10 in Blatt1
Set kopierBereich = quellBlatt.Range("A1:D10")

' Kopieren und ab B18 einfügen
kopierBereich.Copy zielBlatt.Range("B18")
End Sub
```

**Hinweise:**
- Passe `Range("A1:D10")` an den Bereich an, den du aus „Blatt1“ kopieren möchtest.
- Das Makro prüft, ob du dich nicht auf „Blatt1“ befindest, um Fehler zu vermeiden.
- Das Makro kann von jedem Blatt (außer „Blatt1“) aus gestartet werden.

**So fügst du das Makro ein:**
1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen.
2. Wähle „Einfügen“ > „Modul“.
3. Füge den Code ein und speichere.

Weitere Infos zu VBA-Makros findest du z.B. bei [Microsoft](https://support.microsoft.com/de-de/office/erstellen-eines-makros-in-excel-50c9e553-490a-4370-940a-e402a317bce0).