Z1S1 Bezug ändert automatisch

Hallo zusammen,
heute mal eher eine Frage zu den Excel Einstellungen.
In meiner Datei habe ich in den Optionen - Formeln - Arbeiten mit Formeln den Haken bei Z1S1 Bezugsart standardmäßig nicht gesetzt. Das dürfte ja nach meinem Wissen generell so sein.
Nun habe ich mich letztens gewundert, dass mein Makro nicht mehr funktioniert und nach ewiger Sucherei habe ich festgestellt, dass die Spalten statt mit Buchstaben mit Zahlen angegeben sind. Irgendwie wurde der Haken bei Z1S1-Bezugsart gesetzt. Da ich keinerlei Grund dazu hatte dort den Haken zu setzen und ich der einzige bin der mit dieser Datei arbeitet scheint irgendein Vorgang das ganze automatisch zu setzen.
Ich hatte erst mein Makro in Verdacht aber erstens würde dann jedes Mal wenn ich das Marko laufen lasse eine Umstellung stattfinden und zweitens hätte ich dann das Problem auch in anderen Dateien in denen dieses Makro läuft.
Stelle ich die Bezugsart um und speichere die Datei läuft sie die nächsten 1 bis 2 mal wieder normal. Beim gefühlt 3 oder 4 mal hat sich die Bezugsart plötzlich wieder geändert und der Haken ist wieder gesetzt.
Nun hier geht es also vorrangig um die Frage ob jemand mal etwas ähnliches beobachtet hat und es dafür ggf. eine logische Erklärung gibt. Ich kann zwar weiterhin den Haken bei Bedarf rausnehmen aber das ist ja nicht unbedingt im Sinne des Erfinders.
Gruß
Mike

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Daniel,
nachfolgend das Makro das ich bei Bedarf ausführe.


Option Explicit
Sub Create_Mail()
Dim objOutlook As Object
Dim objMail As Object
Dim Daten As Range
Dim strBody As String
Dim strSignatur As String
Dim Signatur As String
Dim Datum As String
Dim LZ As Long
Dim wsT As Worksheet
Set wsT = ThisWorkbook.Sheets("XY")
LZ = wsT.Cells(Rows.Count, 4).End(xlUp).Row + 1
Set Daten = wsT.Range("A1:D" & LZ)
Datum = Format(Now, "dd.mm.yyyy")
'Body und Signatur für E-Mail
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
strBody = "Hallo zusammen," & _
"bla bla bla."
strSignatur = Environ("appdata") & "\Microsoft\Signatures\Mike.htm"
If Dir(strSignatur)  "" Then
Signatur = GetBoiler(strSignatur)
Else
Signatur = ""
End If
On Error Resume Next
'Mail erstellen
With objMail
.To = "yy@abc.de; T@abc.com"
.CC = "ii@abc.de"
.Subject = "dingsbums " & Datum
.HTMLBody = strBody & RangeToHtml("T", Daten.Address) & vbLf & "
" & Signatur
.Display
End With
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
'E-Mail Signatur einlesen
Function GetBoiler(ByVal sFile As String) As String
Dim fso As Object
Dim ts As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
GetBoiler = ts.ReadAll
ts.Close
End Function
Private Function RangeToHtml( _
ByVal pvstrWorksheetName As String, _
ByVal pvstrRangeAddress As String) As String
Dim objFilesytem As Object, objTextstream As Object
Dim objPublishObject As PublishObject
Dim strFilename As String, strTempText As String
strFilename = Environ$("temp") & "\" & _
Format(Now, "dd-mm-yy_hh-mm-ss") & ".htm"
Set objPublishObject = ThisWorkbook.PublishObjects.Add( _
SourceType:=xlSourceRange, _
Filename:=strFilename, _
Sheet:=pvstrWorksheetName, _
Source:=pvstrRangeAddress, _
HtmlType:=xlHtmlStatic)
Call objPublishObject.Publish(Create:=True)
Set objFilesytem = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFilesytem.GetFile(strFilename).OpenAsTextStream(1, -2)
strTempText = objTextstream.ReadAll
Call objTextstream.Close
RangeToHtml = Replace(strTempText, "align=center x:publishsource=", _
"align=left x:publishsource=")
Set objPublishObject = Nothing
Set objTextstream = Nothing
Set objFilesytem = Nothing
Call Kill(PathName:=strFilename)
End Function

Gruß
Mike

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Z1S1 Bezug ändert automatisch

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread