Excel VBA bestimmten Bereich markieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CommandButton3_Click() Sheets("2019_Urlaubsplan_KDV").Select ActiveSheet.Range(Cells(2, 1), Cells(10, 7)).Select ActiveSheet.Range(Cells(2, 1), Cells(10, 7)).CopyPicture xlScreen, xlBitmap 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 Standart-Signatur an End With On Error GoTo 0 Set oApp = Nothing Range("A2").Select End Sub

Hallo Dirk,
Sorry. Konnte gestern nicht mehr weiter machen.
Also wenn ich das richtig verstehe, werden nach dem Kopieren als Bild und einfuegen in die Email diese Zeilen und Spalten ausgeblendet. Also muss man nach der ersten nicht ausgeblendeten Zeile und Spalte suchen und dann von dort aus 10 nach unten und 7 nach rechts kopieren usw.?
Wenn das so richtig ist, dann versuch mal folgendes:


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(10, 7)).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 Standart-Signatur an
End With
On Error GoTo 0
Set oApp = Nothing
End Sub

Gruss Torsten

Hallo Torsten,
kein Problem und ich bin ja dankbar über Deine Hilfe.
Leider funktioniert es so noch nicht.
Ausgeblendet/Gruppiert werden nach dem Screenshot und einfügen in die E-Mail nur Spalten, keine Zeilen! Ich muss wöchentlich, immer für eine Woche im voraus, einen Dienstplan versenden. Im Anschluss wird diese Woche dann ausgeblendet oder gruppiert - beides ist möglich. Beim nächsten Mal soll wieder 7 Tage im voraus markiert und als Screenshot in Outlook eingefügt werden.
Mit Deinem Code markiert er derzeit beim zweiten Mal nur bis einschließlich Montag, Spalte H (Datum 07.01.)! Spalten B-G (Datum 01.-06.01.19) sind gruppiert/ausgeblendet.
Danke im Voraus und ich hoffe ich konnte mein Problem verständlich formulieren und Du kannst
mir weiterhelfen.
Gruß
Dirk

Beliebteste Forumthreads (12 Monate)

Excel VBA bestimmten Bereich markieren

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel VBA bestimmten Bereich markieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

39 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread