|
Hallo liebe VBA-Profis,
ich habe folgendes Problem: In ein Überweisungsformular gebe ich in Zelle A8 die IBAN im Format z.B DE12720000000072002608 ein. Ich möchte aber das nach der Eingabe die IBAN so aufgeteilt wird: DE12 7200 0000 0072 0026 08 dafür benutze ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Application.EnableEvents = False
Dim lngLen As Long
Dim i As Long
Dim strTemp As String
Dim Eingang As String
Eingang = Target.Value
lngLen = Len(Eingang)
For i = 1 To lngLen Step 4
Str Temp = strTemp & Mid(Eingang, i, 4) & " "
Next i
Target.Value = Trim(strTemp)
Application.EnableEvents = True
End If
End Sub
Der Code funktioniert soweit ganz gut. Wenn ich aber den Zelleninhalt per
Private Sub CommandButton1_Click()
Range("A6,B8:F8").Select
Selection.ClearContents
Range("A6").Select
End Sub
lösche erhalte ich folgende Fehlermeldung: Typen unverträglich und im Debugger ist "Eingang = Target.Value" gelb markiert.
Lösche ich den Zellinhalt manuell mit der "Entf" Taste, funktioniert der IBAN-Code bei einer Neueingabe nicht mehr. Was mach ich nur falsch??
Ausserdem gebe ich die IBAN mit einem kleingeschriebenen "de" vorne ein und das hätte ich eigentlich lieber in Großbuchstaben, also "DE".
Es sieht vielleicht so aus als würde ich schon einiges von VBA verstehen, aber eigentlich "lese" ich mich nur durch Foren und benutze das Excel-Kompendium. Daher wäre mir eine Antwort für Anfänger mit Fortgeschrittenen Ambitionen am hilfreichsten.
Vielen Dank im Voraus von Nobby5
|