String mit vb.net in Unicode wandeln?

Für eine Softwareschnittstelle, die ich gerade selbst in vb.net programmiere muss ich in einen String:

z.B. "Münsterländer Aperitif 16%"

Die Umlaute in Unicode umwandeln. Laut Dokumentation sollte das obige Beispiel dann So aussehen "M\u00fcnsterl\u00e4nder Aperitif 16%"

Zur Zeit versuche ich das so:

  Public Shared Function ToUnicode(Text As String) As String
    Dim UnicodeArray As Byte() = Encoding.Unicode.GetBytes(Text)
    Dim UnicodeString As String = Encoding.UTF8.GetString(UnicodeArray, 0, UnicodeArray.Length)
    Return UnicodeString
  End Function

Leider sieht der Inhalt des Strings dann so aus:

"M" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "s" & vbNullChar & "t" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & "l" & vbNullChar & "�" & vbNullChar & "n" & vbNullChar & "d" & vbNullChar & "e" & vbNullChar & "r" & vbNullChar & " " & vbNu...

Was nicht wirklich hilfreich ist. Ich hab' keine Ahnung warum jedes zweite Zeichen NULL ist und die Coke Bottles "�" sind ja auch wenig hilfreich.

Hat jemand eine Idee für mich

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

DonkeyShot

23.09.2021, 11:34

Also erst mal sind alle Strings intern als Unicode, genauer UTF-16, codiert. Dein Code scheitert, da UnicodeArray eine UTF-16 codierte Bytefolge enthält und du in der folgenden Zeile vorgibst, das Array sei UTF-8 codiert. Ist es nicht, daher der Fehler.

Für die Darstellung "\u..." benötigst du andere Funktionen. Eine eingebaute ist mir nicht bekannt, aber die kann's durchaus geben. Evtl bekommmst du hier ja noch einen Hinweis dafür. Ich schaue auch nochmal im Web. Ansonsten musst du die String-Ersetzung selbst per Schleife duchführen, vorzugsweise mit einem StringBuilder.

Woher ich das weiß:Studium / Ausbildung – Datenverarbeitungs-Kfm, Hobby- und Profi-Programmierer

mloeffler

Fragesteller

23.09.2021, 12:57

Danke, der Hinweis, dass der String bereits Unicode sein muss hat mich letztlich auf die Richtige Fährte geführt, dass ich an der Stelle gar nichts mehr machen muss. Die Wandlung ist tatsächlich am Ende eine Einstellung im JSON Serializer durch den ich das alles noch mal schicke. Darauf bin ich aber vorher gar nicht gekommen.

Ähnliche Fragen

Mail mit vb.net versenden über SMTP?

Hallo Leute :D

Ich habe mal vor einen Monate ungefähr eine Programm geschrieben das E-Mails versenden kann. Nun ist aber das Problem das es nicht mehr geht...

Code:

Dim Mail As New MailMessage
Dim Num As Integer = Rnd() * 1000 + 8999
Mail.From = New MailAddress(MailA)                 
Mail.To.Add(TxtEMail.Text)                 
Mail.Subject = ("Ihr Code zum Regestrieren!")                 
Mail.Body = ("Hier ist ihr Code zum Regestrieren ihres Accounts." vbCrLf & vbCrLf & Num)
Dim smtp As New SmtpClient("smtp.mail.yahoo.com")
smtp.Port = 465
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential(MailA, MailP)
smtp.Send(Mail)

Fehlermeldung:

System.Net.Mail.SmtpException: "Fehler beim Senden von Mail."

IOException: Von der Übertragungsverbindung können keine Daten gelesen werden: net_io_connectionclosed.

Das gleiche Problem ist auch über Gmail.

Danke schon mal im voraus! :D

...zur Frage

Name + User?

Hallo,

was müsste ich hier anpassen? Ich komme mit der Fehler Meldung nicht zurecht.

Private Declare 36 GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Function GetNTUserA() As String
  
 Dim sBuffer As String
 Dim LSize As Long
 Dim user As String
  
 sBuffer = Space$(255)
 LSize = Len(sBuffer)
  
 Call GetUserName(sBuffer, LSize)
  
 If LSize > 0 Then
  user = Left$(sBuffer, LSize - 1)
 Else
  user = vbNullString
 End If
  
 GetNTUserA = user
  
End Function
Private Sub Worksheet_Change(ByVal Target As Range)
   
    If Target.Column = 6 Then
    Target.Offset(0, 11).Value = Date
  End If
      
    If Target.Column = 6 Then
    Target.Offset(0, 10).Value = GetNTUserA
  End If

End Sub

...zur Frage

(GELÖST) VB Problem: Der Wert vom Typ String() kann nicht in String koventiert werden. Was tun?

Ich folgendes Problem:

Der Wert vom Typ String() kann nicht in String konventiert werden.

Meine definierte Variable: Dim file As String = Desktop.notepad_file

In desktop.vb:

>> Setzung: Public notepad_file As String

>> Nutzung: notepad_file = Label1.Text

...zur Frage

Excel Makro, PDF versenden, Anhang klappt nicht?

Hallo, ich würde gerne eine Rechnung mit einem Makro erstellen. Soweit klappt das auch und die Mail öffnet sich auch, aber diese wird nicht als Anhang hinzugefügt. Ich komme leider nicht drauf. Ich denke, es liegt daran, dass er die Datei nicht findet, aber ich wüsste keinen Lösungsansatz. Hier der Code:

Dim Result As VbMsgBoxResult

Sub RechnungsnrUndDrucken()

Sheets("Rechnung_Video").Select

[D15] = [D15] + 1 'Rechnungsnummer 1 hochzählen

Dim sCC As String

Dim sName As String

Dim sText As String

Dim sObject As String

Dim sCompany As String

Dim sRefNr As String

Dim sTempFileName As String

If (CStr(ThisWorkbook.ActiveSheet.Name) = "Rechnung") Then

Result = MsgBox("Rechnung fertig?", vbApplicationModal Or vbQuestion Or vbYesNo)

If Result = vbNo Then Exit Sub

End If

Const DateiPfad = "C:\Temp\"

Dim DateiName As String

DateiName = DateiPfad & Range("C15") & Range("D15") & ".pdf"

Range("A1:F54").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

DateiName, Quality:=xlQualityStandard, _

IncludeDocProperties:=True, _

IgnorePrintAreas:=False, _

OpenAfterPublish:=False

Dim Nachricht As Object, OutApp As Object

Dim AWS As String

Set OutApp = CreateObject("Outlook.Application")

AWS = strFileName

'InitializeOutlook = True

Set Nachricht = OutApp.CreateItem(0)

With Nachricht

.Subject = "" & Range("A1") & "_" & Range("C15") & Range("D15")

.GetInspector.display

'.Attachments.Add ("C:\Temp\" & Range("C15") & Range("D15") & ".pdf")

End With

Set OutApp = Nothing

Set Nachricht = Nothing

End Sub

...zur Frage

VBA Programmierung - Automatischer Email versandt Probleme?

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

...zur Frage

Wie kann ich in bei diesem Visual Basic Code einen Umlaut-Übersetzer einbauen?

Hier der Code:

Module Program
    Sub Main()

        Dim QuellDatei As String
        Dim Zeile As Integer
        Dim Inhalt As String
        Dim Informationen() As String
        Dim Fileexport() As String
        Dim i As Integer
        Dim Zieldatei As String

        Zieldatei = "H:\Desktop\Programme\MSVS Projects\ASCII Converter\tmp\Exportiert.txt"
        QuellDatei = "H:\Desktop\Programme\MSVS Projects\ASCII Converter\tmp\w0000020.e01"

        FileOpen(1, QuellDatei, OpenMode.Input)
        FileOpen(2, Zieldatei, OpenMode.Output)

        Do While Not EOF(1)

            Inhalt = LineInput(1)

            Informationen = Split(Inhalt, ";")

            If Informationen(0) = 500 Then

                PrintLine(2, Informationen(0) & ";" & Informationen(3) & ";" & Informationen(8) & ";" & Informationen(9) & ";" & Informationen(10))

            End If

        Loop

        FileClose(1)
        FileClose(2)

    End Sub
End Module

...zur Frage

Laufzeitfehler 1004: Funktion SaveAs?

Hallo,

Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?

Gerne auch Kritik und Anregungen zum Code. LG Syrena

Sub Bericht()

    'Datei öffnen und einfügen
    '-----------------------------------------------------------------
    Dim Liste As Workbook
    Dim Template As Workbook
    Dim Dati As Variant
    Set Template = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    Liste.Sheets("Tabelle1").Columns("A:E").Copy
    Windows(Template.Name).Activate
    Columns("A:E").Select
    ActiveSheet.Paste
    Workbooks(Liste.Name).Close savechanges:=False
   
   
    'Neue Datei öffnen und abspeichern
    '--------------------------------------------------------------------
    Dim Projektbericht As Workbook
    Set Projektbericht = Workbooks.Add
    Dim Speicherpfad As String, Titel As String
    Speicherpfad = "C:\ "
    Titel = "Bericht"
    Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel

End Sub

...zur Frage

Maximale Pfadlänge in Windows und VBA umgehen?

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

...zur Frage

VBA zu HTML Code umgewandelt - Zeilenumbrüche weg?

Hallo,

ich habe durch den unten beigefügten Code versucht eine E-Mail samt Signatur automatisch kommen zu lassen. Nun habe ich das Problem, dass die Absätze in der Mail weg sind und alles in einer Zeile ist. Wie behebe ich das?

Private Sub CommandButton2_Click()

Dim objOutlook As Object

Dim objMail As Object

Dim S As String

Dim body As String

Dim htbody As String

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

If TextBox2.text = "" Or TextBox2.text = TextBox1.text Then

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgende/r Mitarbeiter/in ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text

Else

body = "Sehr geehrte Frau x," & vbCrLf & _

vbCrLf & _

"Folgender Mitarbeiter ist erkrankt:" & vbCrLf & _

vbCrLf & _

ComboBox1.text & vbCrLf & _

vbCrLf & _

"Zeitraum: " + TextBox1.text + " bis " + TextBox2.text

End If

htbody = fnConvert2HTML(htbody)

S = Environ("appdata") & "\Microsoft\Signatures\autoE-Mailsenden.htm"

If Dir(S, vbDirectory) <> vbNullString Then

S = S

S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1, -2).readall

With objMail

.To = "x.de"

.Subject = "Krankmeldung " + ComboBox1.text + " x"

htbody = body & " " & S

.htmlbody = "" & htbody & ""

.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

End With

Else

' With objMail

' .To = Empfänger

' .Subject = Betreff

' htbody = body '& " " & S

' .htmlbody = "" & htbody & ""

' .Display

' ' .Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

' End With

End If

End Sub

Zudem noch folgende Funktion:

Function fnConvert2HTML(myText As String) As String

Dim bldTagOn, itlTagOn, ulnTagOn, colTagOn As Boolean

Dim i, chrCount, n As Integer

Dim chrCol, chrLastCol, htmlTxt As String

Dim myChar As String

bldTagOn = False

itlTagOn = False

ulnTagOn = False

colTagOn = False

chrCol = "NONE"

htmlTxt = "<html>"

chrCount = Len(myText)

End Function

Danke im voraus!!!

...zur Frage

Makro: wie kann ich einen Tabellenbereich + Bild in einer E-Mail im Body versenden?

hallo nochmal,

ich möchte gerne dass ich einen bestimmten Tabellenbereich aus Excel in einer Email versenden kann (nicht als Anhang, sondern im Textfeld, und nicht als Screenshot). das klappt bisher auch gut bei mir. jedoch ist da auch ein Logo mit drin, dass ich nicht anzeigen lassen kann (ein eingefügtes Bild). was muss ich da ändern?

mein makro sieht jetzt teilweise so aus:

Bodyteil der EMail:

.HTMLBody = fncRangeToHtml("E-Mail", "F13:O37")

und die funktion dazu:

Private Function fncRangeToHtml(strWorksheetname As String, _ strRangeaddress As String) As String Dim objFilesytem As Object, objTextstream As Object Dim strFilename As String strFilename = Environ$("temp") & "/" & _ Format(Now, "dd-mm-yy h-mm-ss") & ".htm" ActiveWorkbook.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=strFilename, _ Sheet:=strWorksheetname, _ Source:=strRangeaddress, _ HtmlType:=xlHtmlStatic).Publish True Set objFilesytem = CreateObject("Scripting.FileSystemObject") Set objTextstream = objFilesytem.GetFile(strFilename). _ OpenAsTextStream(1, -2) fncRangeToHtml = objTextstream.ReadAll objTextstream.Close Set objTextstream = Nothing Set objFilesytem = Nothing Kill strFilename End Function

es liegt bestimmt an dem htmlbody, aber ich habe keine bessere lösung gefunden mit der es bisher gklappt hat

...zur Frage

Kann mir einer diesen Quellecode von der Schleife erklären? (Visual Baisc)?

(Eigentlich sehr simpel aber fange gerade erst an)

 Dim i As Integer
    Dim eingabe As String
    Dim erstenzwei As String
    Dim rueckwaerts As String
    Dim letztenzwei As String
    Dim anzahl As Integer
    eingabe = eingabeTB.Text
    anzahl = Integer.Parse(AnzahlTB.Text)
    For i = eingabe.Length - 1 To 0 Step -1
      rueckwaerts &= eingabe(i)
    Next
    For i = 0 To anzahl - 1
      erstenzwei &= eingabe(i)
    Next
    For i = eingabe.Length - anzahl To eingabe.Length - 1
      letztenzwei &= eingabe(i)
    Next

...zur Frage

Excel VBA Makro - Bilder und Link?

Der folgende Code fügt ein Bild aus einer URL ein.

Ist es möglich das eingefügte Bild mit dem dazugehörigen Hyperlink zu hinterlegen. Also wenn man das Bild dann anklickt, direkt auf die Webseite des Bildes geleitet wird.

Wie muss man den Code ändern?

Function InsertPicFromURL(URL As String) As String

With ActiveSheet.Pictures.Insert(URL)

.Top = Application.Caller.Top

.Left = Application.Caller.Left

.Height = Application.Caller.Height

InsertPicFromURL = ""

End With

End Function

...zur Frage

VBA: Split-Funktion mit einem Trennzeichen?

Hallo zusammen,

ich stehe vor einem Problem, woran ich schon seit Tagen arbeite und keine Lösung finde.

Meine Split-Funktion klappt soweit, die Daten werden eingefügt. Allerdings in der ersten der ersten Zeile von (D). Ich benötige die Daten aber ab Zeile (D20) und das bekomme ich nicht hin.

Hat bitte jemand einen Lösungsvorschlag, da ich nicht so fit mit VBA bin?

Dim MeinArray() As String
Dim MeineZeichenkette As String
Dim I As Variant
Dim N As Integer
Dim WB As Worksheet
Set WB = ThisWorkbook.Sheets("Abrechnung")

Dim WBlerf As Worksheet
Set WBlerf = ThisWorkbook.Sheets("Tabelle1")
Ziel = WBlerf.Range("D20")

'Beispielzeichenkette mit Semikolon als Trennzeichen
MeineZeichenkette = WB.Range("Aufmaß_srvpos")

'Die Funktion Split verwenden, um die Bestandteile der Zeichenkette aufzuteilen
MeinArray = Split(MeineZeichenkette, ";")

'Das Arbeitsblatt leeren
'ActiveSheet.UsedRange.Clear

'Durch das Array iterieren
For N = LBound(MeinArray) + 0 To UBound(MeinArray)
  'Jede E-Mail-Adresse in die erste Spalte des Arbeitsblatts einfügen
  WBlerf.Range("D" & N + 1).Value = MeinArray(N)
Next N

Lieben Dank und VG

Stefan

...zur Frage

Kann man den Benutzernamen in einem UserForm Label angeben, der das Dokument geöffnet hat?

Hi, ich liebe Herausforderungen und komme auch nach und nach weiter. Nun habe ich diese Funktion welche prüft, ob eine bestimmte Datei geöffnet ist:

Public Function IsFileOpen(FileName As String)
    Dim filenum As Integer, errnum As Integer
    On Error Resume Next
    filenum = FreeFile()
    Open FileName For Input Lock Read As #filenum
    Close filenum
    errnum = Err
    On Error GoTo 0
    Select Case errnum
    Case 0
    IsFileOpen = False
    Case 70
    IsFileOpen = True
    Case Else
    Error errnum
    End Select
End Function

Mit dieser Funktion kann ich arbeiten, wenn das Dokument von wem auch immer geöffnet ist, öffnet sich eine UserForm.

Nun möchte ich gerne mit dieser Funktion ermitteln, welcher Benutzer das Dokument geöffnet hat:

Public Function LastUser(strPath As String) As String
    Dim strXl As String
    Dim strFlag1 As String, strflag2 As String
    Dim i As Integer, j As Integer
    Dim hdlFile As Long
    Dim lNameLen As Byte
   
    strFlag1 = Chr(0) & Chr(0)
    strflag2 = Chr(32) & Chr(32)
   
    hdlFile = FreeFile
    Open strPath For Binary As #hdlFile
        strXl = Space(LOF(hdlFile))
        Get 1, , strXl
    Close #hdlFile
   
    j = InStr(1, strXl, strflag2)
   
    #If Not VBA6 Then
        '// Xl97
        For i = j - 1 To 1 Step -1
            If Mid(strXl, i, 1) = Chr(0) Then Exit For
        Next
        i = i + 1
    #Else
        '// Xl2000+
        i = InStrRev(strXl, strFlag1, j) + Len(strFlag1)
    #End If
   
    '// IFM
    lNameLen = Asc(Mid(strXl, i - 3, 1))
    LastUser = Mid(strXl, i, lNameLen)
End Function

Aber das klappt nicht...

Ich habe es mit diesem Code probiert und diesen an meinen Pfad und das Dokument angepasst:

Private Sub TestVBA()
'http://www.xcelfiles.com/IsFileOpenVBA.htm
'// Just change the file to test here
Const strFileToOpen As String = "C:\Data.xls"
If IsFileOpen(strFileToOpen) Then
MsgBox strFileToOpen & " is already Open" & _
vbCrLf & "By " & LastUser(strFileToOpen), vbInformation, "File in Use"
Else
MsgBox strFileToOpen & " is not open", vbInformation
End If
End Sub

Bekomme immer Fehler 52.

Ich würde aber gerne den Benutzernamen auch später in der UserForm (anstatt einer MsgBox) im Label anzeigen, was ich ebenfalls nicht hinbekomme.

Weiß jemand, wie ich den Benutzernamen ermittel, der das Dokument geöffnet hat und ich diesen dann in den Label-Text einbauen kann? Oder geht das nicht?

Vielen herzlichen Dank im Voraus.

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen