Gleichheitszeichen in VBA-Code

Forumthread: Gleichheitszeichen in VBA-Code

30.12.2004 18:26:02

ingo

Hallo,
schaut mal, das folgende wollte ich haben:


Sub toll()
i = 1
Do While i < 10
Sheets(5).Cells(i + 6, 4).Value = "='0" & i & "'!$B$66*8,5"
i = i + 1
Loop
End Sub

Leider funktioniert es nicht, weil das eine Gleichheitszeichen ("='0") innerhalb der Anführungszeichen Probleme bereitet.
Kann ich das irgendwie anders lösen?
Danke für Hilfe
Ingo

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gleichheitszeichen in VBA-Code

30.12.2004 18:39:24

Christoph
AW: Gleichheitszeichen in VBA-Code

30.12.2004 19:59:33

ingo

AW: Gleichheitszeichen in VBA-Code

30.12.2004 18:39:24

Christoph

Hi Ingo
so zB
Gruß
Christoph


Option Explicit
Sub toll()
Dim i As Byte
i = 1
Do While i < 10
Sheets(5).Cells(i + 6, 4).FormulaLocal = "='0" & i & "'!$B$66*8,5"
i = i + 1
Loop
End Sub

AW: Gleichheitszeichen in VBA-Code

30.12.2004 19:59:33

ingo

Hallo Christoph,
danke für die schnelle und tolle Antwort!
Alle Probleme sind gelöst.
Ingo

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um das Gleichheitszeichen in VBA korrekt zu verwenden, insbesondere wenn du es als Teil einer Formel in Excel einfügen möchtest, folge diesen Schritten:

Öffne den Visual Basic for Applications (VBA)-Editor in Excel.
Erstelle ein neues Modul, indem du mit der rechten Maustaste auf „VBAProject“ klickst und „Modul einfügen“ wählst.

Füge den folgenden Code ein:

Option Explicit
Sub toll()
   Dim i As Byte
   i = 1
   Do While i < 10
       Sheets(5).Cells(i + 6, 4).FormulaLocal = "='0" & i & "'!$B$66*8,5"
       i = i + 1
   Loop
End Sub

Schließe den VBA-Editor und führe das Makro aus. Du wirst sehen, dass die Formeln korrekt in die Zellen eingefügt werden.

Häufige Fehler und Lösungen

Problem: Das Gleichheitszeichen wird nicht korrekt interpretiert.
- Lösung: Stelle sicher, dass du die .FormulaLocal-Eigenschaft verwendest, um das Gleichheitszeichen als Teil einer Formel einzufügen. Dies verhindert Probleme mit dem Zeichen innerhalb der Anführungszeichen.
Problem: Der Code führt zu einem Laufzeitfehler.
- Lösung: Überprüfe, ob das Zielblatt (in diesem Beispiel „Sheets(5)“) tatsächlich existiert und dass die Zellen, in die du schreibst, korrekt referenziert sind.

Alternative Methoden

Eine alternative Methode, um das Gleichheitszeichen in Excel zu verwenden, ist das direkte Einfügen von Text in die Zelle, ohne eine Formel zu erstellen. Du kannst das Gleichheitszeichen als Text einfügen, indem du ein Apostroph ' davor setzt:

Sheets(5).Cells(i + 6, 4).Value = "'=0" & i & "'!$B$66*8,5"

Dies behandelt das Gleichheitszeichen als Text und nicht als Formel.

Praktische Beispiele

Hier sind einige Beispiele, wie du das Gleichheitszeichen in VBA verwenden kannst:

Einfügen einer einfachen Formel:

Sheets(1).Cells(1, 1).FormulaLocal = "=SUM(A1:A10)"

Verwendung des Gleichheitszeichens in einer Schleife:

Sub Beispiel()
   Dim i As Integer
   For i = 1 To 10
       Sheets(1).Cells(i, 1).FormulaLocal = "=A" & i & "+B" & i
   Next i
End Sub

Gleichheitszeichen als Text in einer Zelle:
```
Sheets(1).Cells(1, 1).Value = "'=A1+B1"
```

Tipps für Profis

Nutze die .Formula-Eigenschaft, wenn du sicher bist, dass die Spracheinstellungen deiner Excel-Version auf Englisch eingestellt sind. Andernfalls ist .FormulaLocal die sicherere Wahl.
Wenn du Formeln dynamisch erstellst, achte darauf, wie du Anführungszeichen und das Gleichheitszeichen kombinierst, um Syntaxfehler zu vermeiden.
Um Kommentare oder nicht ausführbaren Code zu erstellen, kannst du vba auskommentieren, indem du ein Apostroph ' vor die Zeile setzt.

FAQ: Häufige Fragen

1. Wie kann ich ein Gleichheitszeichen in eine Zelle als Text einfügen?
Füge ein Apostroph ' vor dem Gleichheitszeichen hinzu, um sicherzustellen, dass es als Text interpretiert wird.

2. Was ist der Unterschied zwischen .FormulaLocal und .Formula?
.FormulaLocal berücksichtigt die Spracheinstellungen deiner Excel-Version, während .Formula die Formel in Englisch erwartet.

Beliebteste Forumthreads (12 Monate)