Kategorie: Excel VBA Codebeispiele
-
Teile eines Strings ersetzen
Hier im Beispiel sollen deutsche Dezimalzeichen ins englische „0.5“ Format gebracht werden dim variable as string variable=“0,5″ variable = Replace(variable, „,“, „.“) // Ergebnis: variable=“0.5″
-
Datei beschreiben (überschreiben)
vorhandene Dateien mit dem gewählten Namen werden überschrieben Dim pfad As String pfad = ActiveWorkbook.Path & „“ & „datensatz.txt“ ‚<- Pfad der geöffneten Exceldatei Open pfad For Output As #1 zeile = „Text in der Datei“ Print #1, zeile zeile = „// noch mehr text“ & vbCrLF ‚<- Zeilenumbruch Print #1, zeile Close #1
-
Zeilen und Spalten einer Tabelle zählen
Anzahl Zeilen und Spalten einer Exceltabelle zählen anzahlzeilen = Worksheets(„Tabelle1“).Cells(Rows.Count, 1).End(xlUp).Row anzahlSpalten = Worksheets(1).Cells(1, Worksheets(1).Columns.Count).End(xlToLeft).Column ‚[Worksheets(1)=Worksheets(„Tabelle1“)= Tabelle in der gezählt werden soll]
-
Zellbereich verketten
Diese Funktion kann in ein beliebiges Modul in VBA eingefügt werden. In der Zelle steht dann z.B. die Formel =verketten2(A1:A100;“,“) Public Function verketten2(ByRef rngBereich As Range, strTrennzeichen As String) As Variant Dim rng As Range Dim strTextkette As String For Each rng In rngBereich If rng <> „“ Then strTextkette = strTextkette & rng…
-
Excel Funktion: Zahlen aus Zelle extrahieren
Der folgende VBA-Code gibt alle numerischen Zeichen einer Zelle zurück. Der Code kann in ein beliebiges Modul geschrieben und im Sheet als Zellfunktion aufgerufen werden. Zellfunktion Beispiel: =getzahl(A1) Function getzahl(zelle As Range) As String Text = zelle.Value Dim zahl As String zahl = „“ For i = 1 To Len(Text) If IsNumeric(Mid(Text, i, 1)) =…