Excel VBA: Bestimmten Bereich markieren und kopieren
Schritt-für-Schritt-Anleitung
Um in Excel mit VBA einen bestimmten Bereich zu markieren und als Bild in eine E-Mail zu kopieren, kannst Du folgenden Code verwenden. Dieser Code ermöglicht es, die Zellen ab A2 auszuwählen, sechs Spalten nach rechts und acht Zeilen nach unten zu markieren.
Sub CommandButton3_Click()
Dim intRow As Long, intCol As Long
With Sheets("2019_Urlaubsplan_KDV")
intRow = 1
Do Until Rows(intRow).Hidden = False
intRow = intRow + 1
If intRow = 65536 Then Exit Sub
Loop
intCol = 1
Do Until Columns(intCol).EntireColumn.Hidden = False
intCol = intCol + 1
If intCol = 256 Then Exit Sub
Loop
.Range(Cells(intRow, intCol), Cells(intRow, intCol).Offset(7, 6)).CopyPicture xlScreen, xlBitmap
End With
Dim oApp As Object
Set oApp = CreateObject("Outlook.Application")
On Error Resume Next
With oApp.CreateItem(0)
Application.Wait 1
.To = "Muster@web.de"
.Subject = "Wochenplanung"
.Body = "Gruß"
.Display
SendKeys "{END}", True
SendKeys "~", True
SendKeys "^v", True
SendKeys "~", True
.GetInspector ' fügt die Standard-Signatur an
End With
On Error GoTo 0
Set oApp = Nothing
End Sub
Dieser Code sucht nach der ersten sichtbaren Zeile und Spalte, um sicherzustellen, dass die korrekten Zellen ausgewählt werden, selbst wenn vorherige Zeilen oder Spalten ausgeblendet wurden.
Häufige Fehler und Lösungen
-
Problem: Der ausgewählte Bereich ist nicht korrekt, weil Spalten ausgeblendet sind.
Lösung: Stelle sicher, dass Du die Do Until-Schleifen verwendest, um die erste sichtbare Zeile und Spalte zu finden, bevor Du den Bereich markierst.
-
Problem: E-Mail wird nicht korrekt angezeigt.
Lösung: Achte darauf, dass die Outlook-Anwendung auf Deinem Computer installiert ist und dass die Makros in Excel aktiviert sind.
Alternative Methoden
Wenn Du den Bereich nicht über VBA markieren möchtest, kannst Du auch manuell in Excel einen Bereich auswählen und dann über "Einfügen" > "Bild" in Outlook einfügen. Diese Methode ist jedoch weniger automatisiert und eignet sich weniger für regelmäßige Aufgaben.
Praktische Beispiele
Hier ist ein Beispiel, wie Du den vba bereich markieren kannst, um einen Dienstplan für die kommende Woche zu versenden. Mit der oben genannten Methode kannst Du eine Woche im Voraus planen, indem Du den entsprechenden Bereich in Excel markierst und kopierst.
.Range(Cells(intRow, intCol), Cells(intRow, intCol).Offset(7, 6)).CopyPicture xlScreen, xlBitmap
Dies ermöglicht Dir, dynamisch den Bereich auszuwählen, auch wenn sich die Struktur Deiner Tabelle ändert.
Tipps für Profis
- Nutze Variablen für die Zeilen- und Spaltenanzahl, um den Code flexibler zu gestalten.
- Überlege, eine Funktion zu erstellen, die die Auswahl und das Kopieren in eine E-Mail kapselt, um den Code wiederverwendbar zu machen.
- Teste Deinen Code immer mit verschiedenen Tabellen, um sicherzustellen, dass er robust gegen Änderungen in der Struktur ist.
FAQ: Häufige Fragen
1. Kann ich die E-Mail-Adresse dynamisch setzen?
Ja, Du kannst die E-Mail-Adresse in eine Variable speichern und diese dann im Code verwenden.
2. Ist es möglich, mit VBA auch das Snipping Tool anzusprechen?
Das Snipping Tool kann nicht direkt über VBA angesprochen werden. Eine Alternative wäre, den Bereich als Bild zu kopieren, wie im obigen Beispiel gezeigt.
3. Wie kann ich sicherstellen, dass der richtige Bereich markiert wird?
Verwende Schleifen, um die ersten sichtbaren Zeilen und Spalten zu finden, bevor Du mit dem Markieren beginnst.