VBA/Tabelle - steht rechts von * noch was?

Computer: Software & Programmierung Visual Basic
#1

Hi,
wer kann mir helfen:
in Zeile 2 der Spalte 4 einer Tabelle befindet sich an unterschiedlicher Position in dieser Zelle ein „*“ und 1 Leerschritt. Ich möchte prüfen, ob rechts neben dem Leerschritt noch mindestens 1 Zeichen steht, und - falls nein - den * löschen.
Gruß Wilhelm

#2

Hallo, Wilhelm!

in Zeile 2 der Spalte 4 einer Tabelle befindet sich an
unterschiedlicher Position in dieser Zelle ein „*“ und 1
Leerschritt. Ich möchte prüfen, ob rechts neben dem
Leerschritt noch mindestens 1 Zeichen steht, und - falls nein

  • den * löschen.

Du willst prüfen, ob ein String ganz rechts "* " enthält und ob dann noch was folgt; falls nicht, „*“ löschen

Wie Du auf den Inhalt aus der „Tabelle“ ausliest, weißt Du ja (Access? Excel? Whatsoever?). Ich behaupte, Du liest den Text in eine Variable ein, z. B. so:

strTest = Tabelle1.Cells(2,4)
If Right$(strTest,2)="\* " Then
 strTest = Left$(strTest, Len(strTest)-2)
Endif

und fertig. Das ganze könntest Du natürlich iterativ durchlaufen lassen, so dass "nix* * * * * * " auf „nix“ reduziert wird…

Gruß, Manfred

#3

Hallo Manfred,
Deine Meinung zu meinem Wissensstand

Wie Du auf den Inhalt aus der „Tabelle“ ausliest, weißt Du ja

ist schmeichelhaft aber unzutreffend. Mit Tabellen in Zusammenhang mit VBA hatte ich mich kaum befasst. Aber am Wochenende habe ich auf der Grundlage Deiner Hinweise das gewünschte Ergebnis zusammengebastelt.
THX
Wilhelm