makro erstellen mit ALT+F11 Neues Modul Function LetterOut (rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc(Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 LetterOut = LetterOut & Mid(rng.Value, i, 1) End Select Next i End Function und dann neue spalte einfügen und die Formel =LetterOut(B3)z.B [...]

Function CheckForNetworkConnectivity() As Boolean Dim oHostEntry As System.Net.IPHostEntry ‘ Fehlerbehandlung aktivieren Try ‘ Logon-Server aus den Umgebungsvariablen auslesen Dim sServer As String = Environment.GetEnvironmentVariable(“LOGONSERVER”) ‘ Host-Informationen ermitteln oHostEntry = System.Net.Dns.GetHostByName(sServer.Substring(2)) Return True Catch ‘ Fehler! Return False End Try End Function

data_stammdaten ist hier vom typ datagridview With data_stammdaten .Columns(0).Width = 50 .Columns(0).ValueType = GetType(Integer) .Columns(“Name”).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill .Columns(2).ValueType = GetType(Date) .Columns(3).Width = 50 .Columns(3).ValueType = GetType(Integer) End With

Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText(“test.txt”)