Hallo allerseits und hallo Hajo,
Der Code läuft.
unter folgendem Link:
www.supportnet.de/t/2323926
Habe ich das folgende Makro von Karin / Beverly gefunden:
Sub Datum_formatieren()
Dim varAntwort
Dim raBereich As Range
varAntwort = Application.InputBox("Bitte Spaltenbuchstaben eingeben", Type:=2)
If varAntwort <> False Then
On Error Resume Next
Set raBereich = Range(varAntwort & 1)
On Error GoTo 0
If Not raBereich Is Nothing Then
Columns(varAntwort).TextToColumns Destination:=Range(varAntwort & 1), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 5), TrailingMinusNumbers:=True
Columns(varAntwort).EntireColumn.AutoFit
End If
End If
Set raBereich = Nothing
End Sub
ich habe versucht dieses Makro für meine Zwecke zu verändern. Nach Eingabe eines Buchstabens in:
Inputbox "Spalte löschen", wird diese gelöscht.
Inputbox "links Spalte einfügen" wird links von der angegebenen Spalte eine neue Spalte eingefügt.
InputBox("Prozentformat Spalte?" werden die dort vorhandenen Zahlen als Prozente formatiert.
Das bis hier beschriebene funkioniert so auch!
Allerdings sollen die Zahlen, die als Prozente formatiert werden, vorher durch "100" geteilt werden. Das geht sicherlich sehr viel einfacher als das was ich auf einer anderen Webseite gefunden habe und versucht habe hier zu verwenden.
Im Code ist tatsächlich nichts was mehrfach ausgeführt wird.
genau das wollte ich erfragen:
Wie muss das Makro ergänzt werden, das jede Inputbox erneut aufgerufen wird, bis kein Buchstabe mehr eingegeben wird
mfg
Wolfgang