Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
508to512
508to512
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code funktioniert nicht

Forumthread: Code funktioniert nicht

Code funktioniert nicht
03.11.2004 10:04:24
Excelmania
Wieso funktioniert dieser Code nicht?
Bitte um hilfe
______________________________________________________________________
Option Explicit
Dim C As Range

Private Sub CommandButton1_Click()
C = Columns("G:G").Select
For Each C In Selection
If InStr(1, UCase(C), "CHF") > 0 Then
C.Replace What:="CHF", Replacement:=""
C.Interior.ColorIndex = 3
End If
Next C
End Sub

______________________________________________________________________
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bleib im alten Beitrag !!!!
R
AW: Code funktioniert nicht
Ulf 

Sub ersetzen()
Columns("G:G").Replace What:="CHF", Replacement:="", _
LookAt:=xlPart, MatchCase:=True
End Sub

Ulf
AW: Code funktioniert nicht
Ronny
Hallo,
also du legst C als Range Objekt fest und agierst dann mit "Columns" das kann nicht richtig gehen und nur so als kleiner Tip... im VBA ist "Select" zu 99% überflüssig...
versuchs mal damit, falls es trotzdem net funzt, melde dich wieder...
--------------------------------------

Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Range("G:G")
If InStr(1, UCase(C), "CHF") > 0 Then
C.Replace What:="CHF", Replacement:=""
C.Interior.ColorIndex = 3
End If
Next C
End Sub

----------------------------------------------
MFG Ronny
Anzeige
AW: Code funktioniert nicht
03.11.2004 10:28:28
Excelmania
ja vielen Dank ronny.
Es klappt.
Nur ein Problem gibt es noch.
Excel ersetzt zwar "EUR" durch "", jedoch erkennt Excel nicht bei allen dass die Formatierung eine Währung ist. das heisst bei einigen schriebt Exel: "1´000" linksbündig bei anderen zellen: "1´000 SFR" rechtsbündig es sollte alles rechtsbündig sein. er muss bei allen die Formatierung erkennen. wenn ich bei den linksbündigen doppelklicke, dann werden sie rechtsbündig und sind dann korrekt. ich will aber nicht jedes mal doppelklicken.
Help!
Danke
Anzeige
AW: Code funktioniert nicht
ronny
Also wenn das so ist würd ich auf die schnelle sagen doch mal select verwenden...
wenn du alle zellen rechtsbündig brauchst dann füge folgendes zwichen Private Sub... und Dim C as Range ein:
Cells.Select

With Selection
.HorizontalAlignment = xlRight
End With
----------------------------------------------
ansonsten... aber das zieht halt a bissl mehr performance ersetze folgende code durch den ersten:

Private Sub CommandButton1_Click()
Dim C As Range
For Each C In Range("A14:A40")
C.Select
With Selection
.HorizontalAlignment = xlRight
End With
If InStr(1, UCase(C), "CHF") > 0 Then
C.Replace What:="CHF", Replacement:=""
C.Interior.ColorIndex = 3
End If
Next C
End Sub

----------------------------------------------
Jetzt musses aber :-)
Anzeige
;

Forumthreads zu verwandten Themen

automatisch Berechnen funktioniert nicht
t4z

Hi Leute,
kann mir jmd folgendes Phänomen erklären?
Excel-Datei enthält Formeln, die auf andere Zellen innerhalb der Mappe referenzieren. Die Quelldaten ändern sich, jedoch die Formeln nicht. Unter Extras-Optionen-Berechnung ist "automatisch" aktiv. Ein Drücken auf F9 bringt keinen Erfo...
07.08.2008 17:13:07
Thread-ID: 1000040
3 Beiträge
Code funktioniert plötzlich nicht mehr
Richard

Hallo,
folgender Code hat immer funktioniert, ich habe daran nichts geändert.
With Application With .CommandBars .Add(Name:="Testmenü").Visible = True End With ...
Ich muss aber irgndwo anders in Excel irgendwas verstellt haben, sodass ich beim Ausführen jetzt folgende Fehlermel...
12.08.2008 14:33:00
Thread-ID: 1001208
2 Beiträge
Attachment anhängen funktioniert nicht
Ano

Hi zusammen,
ich habe hier im Forum einen Artikel (https://www.herber.de/forum/archiv/636to640/t638281.htm#638285)
gefunden, der den Emailversand über GroupWise darstellt. Das VBA-Script funktioniert hervorragend. Allerdings nur, wenn ich kein Attachment anhänge.
Ich möchte eigentli...
28.08.2008 11:23:27
Thread-ID: 1005349
2 Beiträge
Doppelklick auf Excel-Datei funktioniert nicht
Markus

Hallo,
mein Excel spinnt ein wenig.
Klicke ich im Datei-Explorer auf eine Excel-Datei wird zwar Excel geöffnet, aber Excel reklamiert dann sogleich, dass die Datei nicht geöffnet werden kann.
Der gesamte DateiPfad der Excel-Datei inkl. des Dateinamenes wird in angezeigt (z.B. d:\da...
02.09.2008 19:37:00
Thread-ID: 1006922
4 Beiträge
Select in BeforeSave funktioniert nicht. Bug?
Stefan


Hi!
Hab grad ein sehr merkwürdiges Problem. Vielleicht hat das von euch schon mal wer gesehen und weiß woran das liegt.
Die Select-Methode auf ein Worksheet Objekt funktioniert in einem bestimmten Fall nicht. Und zwar wenn sie in einer Sub aufgerufen wird, die von Workbook_BeforeSa...
10.09.2008 21:29:57
Thread-ID: 1008923
6 Beiträge
Zufallsauswahl - Code funktioniert nicht
Mario

Hallo zusammen,
ich habe in Spalte A von Zeile 4 - 122 Namen und dazwischen Leerzellen stehen.
Nun möchte ich eine zufällig Auswahl treffen. Ich drücke die Zelle E1 so oft, bis die Namen alle aus Spalte A verschwunden sind. Sie sind dann von E2 bis E35 (je nach Namenanzahl).
Aber zw...
22.09.2008 12:10:51
Thread-ID: 1011438
3 Beiträge
Do Until - Schleife verlassen funktioniert nicht.
Stefan

Hallo Excelfreunde, bitte um Hilfe.
Do Until - Schleife mit Exit Do verlassen funktioniert nicht.
Abbruchbedingung: If TPFehlt = 1 Then Exit Do
Trotz längerem Suchen habe ich nicht herausgefunden, warum die Fehlermeldung kommt.
Sub Zuordnen() Dim letzteZeile As Integer, Nr As...
22.09.2008 20:53:34
Thread-ID: 1011569
3 Beiträge
SVERWEIS funktioniert nicht
sascha76er

Hallo,
hoffentlich kann mir jemand hier helfen, bei mir funktionieren die SVERWEISE für die Spalten
AI, AQ, AR, AS
nicht.
Leider ist meine Liste größer wie 300 kb, deshalb musste ich die Liste bei einem 1Klickhoster bereitstellen.
Liste: http://www.mediafire.com/?oxyk0vmb21x...
08.10.2008 11:23:24
Thread-ID: 1014967
7 Beiträge
Wenn-Oder Formel über VBA funktioniert nicht
sharky1000

Hallo,
ich habe eine etwas komplexere Wenn-Oder Formel erstellt, welche ich über VBA in eine Zelle einfügen möchte.
Formel in E2:
=WENN(ODER(LINKS(D2;2)="M1";LINKS(D2;2)="M2";LINKS(D2;2)="M3";LINKS(D2;2)="M4";LINKS(D2;2)="M5"); LINKS(D2;1);WENN(LINKS(D2;2)="NM";LINKS(D2;2);WENN(LIN...
06.11.2008 14:11:01
Thread-ID: 1022285
7 Beiträge
SVERWEIS mit Text funktioniert nicht
sascha76er

Hallo,
komme einfach nicht weiter bei meinem Sverweis, vielleicht kann sich jemand mal meine Beispieldatei angucken?
Beispiel: https://www.herber.de/bbs/user/56594.xls
Vorab vielen Dank
Sascha
07.11.2008 13:38:00
Thread-ID: 1022656
5 Beiträge
VERWEIS funktioniert nicht
Markus

Hallo!
Ich bin recht verzeifelt, vielleicht kann mir jemand weiterhelfen.
Ich habe eine Exceldatei mit mehreren Arbeitsblättern (Spielergebnisse einer Mannschaft in verschiedenen Saisons).
In einem finalen Arbeitsblatt möchte ich nun, dass die Ergebnisse eines beliebigen Spielers (A...
09.11.2008 21:22:36
Thread-ID: 1023113
10 Beiträge
Anzeige
Combobox exit funktioniert nicht
Stefan

Hallo Excel-Profis,
ich habe ein Problem mit meiner Userform. Diese enthält eine Combobox "Hubraum" und einen CommandButton "Speichern". Die Eingabewerte in der Combobox möchte ich mit folgendem Code auf eine Nachkommastelle runden:
Private Sub cboHubraum_Exit(ByVal Cancel As MSForms....
14.01.2009 08:53:38
Thread-ID: 1039450
23 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige