Beispiel:
ich habe eine Exceltabelle mit vielen Emailadressen und will bei jeder emailadresse alles vor dem @-Zeichen abschneiden.
Bei hans.mueller@gmx.de brauche ich also nur das @gmx.de.
Sub test()
Dim s As String, s2 As String
s = "email.adresse@test.de"
s2 = Mid(s, InStr(s, "@"))
MsgBox s2
End Sub
Sub email()
Dim Bereich As Range, Zelle As Range
Set Bereich = Selection
On Error Resume Next 'überspringt Zellen ohne @
For Each Zelle In Bereich
Zelle.Value = Right(Zelle.Value, Len(Zelle.Value) - WorksheetFunction.Find("@", Zelle.Value, 1) + 1)
Next Zelle
End Sub
Problemstellung
Nach dem Import von Textdateien von einem Großrechner in Excel entsteht das Problem, daß trotz richtiger Zellformatierung ein Teil der Zahlen nur als Zeichenfolgen übernommen werden. Wie kann die Umwandlung erfolgen?
Problemstellung
Eine Tabelle soll so sortiert werden, dass Formelergebnisse, die einen Leerstring ergeben, am Ende der Tabelle erscheinen sollen.
Problemstellung
Nach einer Formatänderung von Zellen von Zahlenformaten zu Text werden die Zahlen zwar linksbündig dargestellt, verlieren ihre Zahleneigenschaft aber erst, wenn sie editiert werden. Die Routine wandelt den ausgewählten Bereich in Zahlen um.
Problemstellung
Aus der ersten Spalte sollen die Teilstrings Position 2 bis 5 und 7 bis 10 der Werte mit den Teilstrings aller Werte aus Spalte B verglichen werden. Gibt es keine Übereinstimmung, wird die Zelle in Spalte A gekennzeichnet.