Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
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
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler im Befüllen von Zellen mit VBA

Fehler im Befüllen von Zellen mit VBA
Zellen
Hallo Forum,
ich möchte eine Tabelleneingabe wahlweise auf deutsch oder englisch ermöglichen.
Die Sprachumstellung möchte ich nun mit folgendem Code darstellen:
Beispiel:
Range("A1").Select
'=WENN(Sprachauswahl!$C$10=1;"Bitte wählen Sie die Währung aus:";"Please choose your currency:")
ActiveCell.FormulaR1C1 = "=IF(Sprachauswahl!R10C3=1,""Bitte wählen Sie die Währung aus:"",""Please choose your currency:"")"
Call Schriftart_Ausrichtung_normal
Selection.Font.Bold = True
Nun bringt mir Excel einen Laufzeitfehler '1004':
Anwendungs- oder objektdefinierter Fehler
Beim Debuggen wird die Zeile ActiveCell..... gekennzeichnet.
Was mache ich falsch?
Vielen Dank im Voraus für eine Rückmeldung.
Viele Grüße
Ralf

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehler im Befüllen von Zellen mit VBA
13.08.2012 09:33:58
Zellen

Hallo Ralf,
der Hund liegt wahrscheinlich wo anders, aber warum .Select?
Sub ralf()
  
  With Range("A1")
    .FormulaR1C1 = "=IF(Sprachauswahl!R10C3=1,""Bitte wählen Sie die Währung aus:"",""Please choose your currency:"")"
    .Font.Bold = True
  End With
  Call Schriftart_Ausrichtung_normal
End Sub



« Gruß Sepp »

Anzeige
AW: Fehler im Befüllen von Zellen mit VBA
13.08.2012 09:39:26
Zellen
Hallo Sepp,
danke für Deine Antwort.
Wahrscheinlich eine blöde Frage, aber was hat Deine Schreibweise für einen Vorteil?
Meine Version habe ich mit dem Rekorder so aufgezeichnet.
Der Fehler bleibt mit Deiner Schreibweise der gleiche.
Die Zeile
.FormulaR1C1 = "=IF(Sprachauswahl!R10C3=1,""Bitte wählen Sie die Währung aus:"",""Please choose your currency:"")"
wird mit beschriebenem Fehler ausgegeben.
Hm, und nu?
Viele Grüße
Ralf
AW: Fehler im Befüllen von Zellen mit VBA
13.08.2012 09:43:13
Zellen

Hallo Ralf,
meine Schreibweise hat den Vorteil, das ich nichts aktivieren und selektieren muss um irgend etwas wohin zu schreiben, der Cursor ist ja kein Hund und braucht deshalb auch keinen Auslauf. Außerdem ist ein Code ohne .Select und .Activate schneller und leichter lesbar.
"Hm, und nu?"
Tabelle geschützt?
Tabellenname Falsch?
...?

« Gruß Sepp »

Anzeige
AW: Fehler im Befüllen von Zellen mit VBA
13.08.2012 09:51:30
Zellen
Hallo Sepp,
danke für die Erklärung.
Ich werde den Code nach Deinem Vorschlag ändern.
Der Tabellenname passt, das Blatt ist geschützt, ja, der Schutz wird aber vorher aufgehoben.
Viele Grüße
Ralf
AW: Fehler im Befüllen von Zellen mit VBA
13.08.2012 09:55:39
Zellen

Hallo Ralf,
der Fehler liegt nicht am Code, da muss dann sonst noch etwas "faul" sein.
Ohne "Gesamtüberblick" kann ich die aber nicht weiterhelfen.

« Gruß Sepp »

Anzeige
AW: Fehler im Befüllen von Zellen mit VBA
13.08.2012 10:42:55
Zellen
Hallo Sepp,
ich habe den Fehler gefunden. Es anderes Tabellenblatt war geschützt. Und diesen Schutz habe ich vergessen aufzuheben.
Vielen Dank für Deine Unterstützung.
Viele Grüße
Ralf

306 Forumthreads zu ähnlichen Themen

VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
Anzeige
Excel Farbe der selektierten Zellen ändern
lupo

Guten Morgen,
ein Arbeitskollege möchte gerne die Farbe der ausgewählten / markierten Zellen ändern.
Zu dem Thema habe ich viel gegoogelt. An verschiedenen Stellen wird behauptet das würde nicht gehen.
Dann habe ich diese Video gefunden:
http://www.bukisa.com/videos/22842_mrexce...
07.08.2009 10:05:24
Thread-ID: 1094211
4 Beiträge
Zellenhintergrundfarbe per Auswahl ändern ?
Werner

Hallo,
ich möchte folgendes erreichen:
In der Zelle A1 soll zukünftig der Text stehen "Bitte Thema auswählen", sobald man auf diese Zelle klickt soll so ein kleines Auswahlmenü aufgehen in dem nun folgnde Auswahl erscheint:
1.: QUALITÄT - gelb - Wird dieser Eintrag ausgewählt so sol...
26.02.2010 12:31:53
Thread-ID: 1141730
5 Beiträge
Anzeige
Farbe von Schalter nach Zelleninhalt ändern
Schalter

Servus
ich wollte gern, das meine Schalter farbig hinterlegt wird, je nach Inhalt einer Zelle...
also wenn in Zelle A1 "1" steht soll mein Schalter rot sein, wenn "2" steht soll er grün sein...
geht das?
Danke
Timonski
09.06.2010 08:09:55
Thread-ID: 1160947
16 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
Zellenfarbe ändern
Kurt

Guten Abend,
ich möchte nur die Zellenfarbe der Spalte B nach Eingabe einer Zahl
ändern und zwar in Rot.
Die Farbe ist vorher Blau.
mfg Kurt B
14.09.2010 22:19:53
Thread-ID: 1177597
6 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
3
4
2
15
2
5
6
17
4
14
7
2
3
11
5
2
2
2
3
3
2
6
4