Hallo,
ich hoffe ihr könnt mir helfen.
Ich verschicke per Makro ein bestimmtes Tabellenblatt. Funktioniert auch alles. Leider habe ich in ein paar Tabellen Verweise. Dann tritt natürlich ein Fehler beim Empfänger auf. Gibt es die Möglichkeit, dass man die Werte oder so kopiert und nicht die Formeln?
Bitte um HILFE!!!
Danke. Gruß Sven
Folgenden Code habe ich:
Dim strTabelle As String ' Variable für den Tabellennamen
Dim wsTabelle As Worksheet ' Variable für die Tabelle als Objekt
' Tabelle2 als Standard festlegen
strTabelle = "Oktober"
' Name der zu versendenen Tabelle abfragen
strTabelle = InputBox("Welches Arbeitsblatt möchten Sie an Herrn Bauer senden?" & vbCrLf & _
vbCrLf & "Bitte den Mappennamen eingeben (siehe unten)", , strTabelle)
' kein Abbruch der Eingabe
If strTabelle "" Then
' Schleife über alle Arbeitsblätter
For Each wsTabelle In ThisWorkbook.Sheets
' Name der Tabelle entspricht dem der zu versendenen Tabelle
If wsTabelle.Name = strTabelle Then
' Bildschirmaktualisierung aus
Application.ScreenUpdating = False
' Tabelle komplett kopieren
Sheets(strTabelle).Copy
' aktive Arbeitsmappe mit Mailbenachrichtigung "Diese Tabelle wurde als Mail versandt" versenden
ActiveWorkbook.SendMail ThisWorkbook.Worksheets("Email schicken").Cells(22, 5), "Email"
' aktive Arbeitsmappe schließen ohne Speichern
ActiveWorkbook.Close False
' Bildschirmaktualisierung ein
Application.ScreenUpdating = True
' Schleife verlassen
Exit For
Else
' Tabelle mit dem eingegebenen Namen ist nicht vorhanden
If wsTabelle.Name = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name Then MsgBox "Diese Tabelle gibt es nicht"
End If
Next wsTabelle
End If