Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Hochkomma abfragen

Nach Hochkomma abfragen
10.09.2003 16:01:45
Michael
Hallo Zusammen.
Ich möchte überprüfen, ob der Wert in einer Variable in zwei Hochkommata eingeschlossen ist. Wenn dies der Fall ist sollen das erste und das letzte Zeichen gelöscht werden.
Wenn das zweite Zeichen der Variable ein Hochkomma ist, soll die Aktion ausgeführt werden
Nun habe ich schon Probleme, das Hochkomma zu lokalisieren.
So geht es nicht:
If Left(werte, 2) = """ Then
..
Wäre toll wenn jemand ein Tipp hat

gruß

michael

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Leider nicht
10.09.2003 16:46:27
Michael
Hallo Thomas,
ich habe das Problem, dass der Inhalt meiner Variable in zwei Anführungsstriche eingeschlossen ist (""Inhalt""). Nun habe ich aber Probleme mit der weiteren Bearbeitung dieser Variable und möchte nun deshalb (wenn dies der Fall ist) das Erste und das Letzte Zeichen löschen.

gruß

michael
AW: Nach Hochkomma abfragen
10.09.2003 17:20:58
RainerW
Hallo Michael,

so sollte es gehen:


Private Sub Hochkomma()
Dim strMeinText As String
strMeinText = "'Mein Text mit Hochkomma'"
If Left(strMeinText, 1) Like "'" And _
Right(strMeinText, 1) Like "'" Then
strMeinText = Mid(strMeinText, 2, Len(strMeinText) - 2)
MsgBox strMeinText
End If
End Sub


Gruß
Rainer
Anzeige
Leider auch nicht,. Hier der Hintergrund
10.09.2003 18:01:45
Michael
Hallo Rainer.
Ich möchte, dass ein Diagramm ausgewählt wird und dann das Makro aktiviert werden soll.
Das Makro soll schauen, wie die Reihen benannt sind.
Wenn die Reihe eine bestimmte Zeichenfolge enthält, wie z.B. "LMH" in "Umsatz von LMH",
soll die Farbe der Säulen entsprechend zugeordnet werden.
Wäre super, wenn jemand einen Lösungsansatz hätte.

Vorab Danke!

PS: Muss leider gehen, bin aber morgen wieder online

michael

So sieht mein Code bis jetzt aus:

Anzahl = ActiveChart.SeriesCollection.Count

'For k = 1 To Anzahl
k = 1

komplett = ActiveChart.SeriesCollection(k).Formula

anfang = InStr(1, komplett, "(", 1)
ende = InStr(1, komplett, ",", 1)
werte = Mid(komplett, anfang + 1, ende - anfang - 1)
If Left(werte, 1) Like "'" And Right(werte, 1) Like "'" Then
werte = Mid(werte, 2, Len(werte) - 2)
End If

If InStr(1, "LMH", werte, 1) Then
MsgBox ("asd")
ActiveChart.SeriesCollection(k).Interior.ColorIndex = 5 'statt 5
ActiveChart.SeriesCollection(k).Interior.Pattern = xlSolid
ElseIf InStr(1, "LL", werte) > 0 Then
ActiveChart.SeriesCollection(k).Interior.ColorIndex = 2
ActiveChart.SeriesCollection(k).Interior.Pattern = xlSolid
ElseIf InStr(1, "LHTD", werte) > 0 Then
ActiveChart.SeriesCollection(k).Interior.ColorIndex = 1
ActiveChart.SeriesCollection(k).Interior.Pattern = xlSolid
ElseIf InStr(1, "FL", werte) > 0 Then
ActiveChart.SeriesCollection(k).Interior.ColorIndex = 0
ActiveChart.SeriesCollection(k).Interior.Pattern = xlSolid

Else

End If

'Next k
End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige