Wo liegt der Fehler in 'If (or(Cells(i, 9) = "ÜS";Cells(i, 9) = "AS")) Then'?

Question

Wo liegt der Fehler in 'If (or(Cells(i, 9) = "ÜS";Cells(i, 9) = "AS")) Then'?

Antwort

Verwandte Fragen

Gibt es If Not (Bedingung) Then in VBA für Excel?

Ist 'Range(Cells(a,10):Cells(b,10)).Copy' im VBA-Code korrekt?

Wie kann ich mit einem VBA-Makro die Zeilen 8 bis 10 ausblenden?

Wie kann ich mit VBA den Bereich 'Test' in Blatt 1 kopieren und in Blatt 2 ab Zelle B18 einfügen?

Wie ruft makro1() in VBA makro2() mit dem Wert 5 auf?

Was bedeutet die Zeile 'if diff > 0 then dec(diff, step) else diff := 0;'?

Wie kann ich mit VBA einen Zellenbereich kopieren und in die nächste freie Zeile einfügen?

Warum tritt in Access VBA bei der Abfrage 'If AnlageNeu = "Schleifmaschine" And Nachklassifizierung Is Null Then' die Fehlermeldung 'Objekt erforderlich' auf?

Wie kann man Zahlen in Excel-VBA ohne wissenschaftliches Format in eine .txt-Datei schreiben?

Wie lautet die Syntax, um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren?

Accepted Answer

Der Fehler liegt in der Syntax. In VBA (Visual Basic for Applications) gibt es keine Funktion `or()`, und die Bedingungen werden mit `Or` (ohne Klammern) verbunden. Außerdem verwendet VBA Kommas als Argumenttrenner, nicht Semikolons. Korrekte Schreibweise: ```vba If Cells(i, 9) = "ÜS" Or Cells(i, 9) = "AS" Then ``` **Zusammenfassung der Fehler:** - `or()` ist keine gültige Funktion in VBA; stattdessen wird `Or` als Operator verwendet. - Klammern sind nicht nötig, außer bei komplexeren Bedingungen. - Semikolon (`;`) ist kein gültiger Trenner in VBA, stattdessen wird ein Komma (`,`) verwendet, aber in diesem Fall ist gar kein Trenner nötig, da `Or` als Operator dient. **Weitere Infos zu VBA-If-Bedingungen:** [Microsoft VBA If...Then...Else Statement](https://learn.microsoft.com/en-us/office/vba/language/reference/user-interface-help/if-then-else-statement)

Accepted Answer

Ja, in VBA für Excel gibt es die Möglichkeit, eine Bedingung mit **If Not (Bedingung) Then** zu prüfen. Das Schlüsselwort **Not** kehrt die Bedingung um. Hier ein Beispiel: ```vba... [mehr]

Accepted Answer

Ja, in VBA für Excel gibt es die Möglichkeit, eine Bedingung mit **If Not (Bedingung) Then** zu prüfen. Das Schlüsselwort **Not** kehrt die Bedingung um. Hier ein Beispiel: ```vba If Not IsEmpty(Range("A1").Value) Then MsgBox "Zelle A1 ist nicht leer." End If ``` In diesem Beispiel wird die Meldung angezeigt, wenn die Zelle **nicht** leer ist. Das **Not** sorgt dafür, dass die Anweisung nur ausgeführt wird, wenn die Bedingung **falsch** ist. Du kannst **Not** mit jeder beliebigen Bedingung verwenden, z.B.: ```vba If Not x = 5 Then MsgBox "x ist nicht gleich 5." End If ``` Weitere Informationen findest du in der offiziellen Microsoft-Dokumentation: [If...Then...Else-Anweisung (VBA)](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/if-then-else-statement)

Accepted Answer

Die Syntax `Range(Cells(a,10):Cells(b,10)).Copy` ist in VBA (Visual Basic for Applications) **nicht korrekt**. In VBA muss der Bereich innerhalb der `Range`-Funktion als String oder als zwei separate... [mehr]

Accepted Answer

Die Syntax `Range(Cells(a,10):Cells(b,10)).Copy` ist in VBA (Visual Basic for Applications) **nicht korrekt**. In VBA muss der Bereich innerhalb der `Range`-Funktion als String oder als zwei separate `Range`-Objekte angegeben werden. **Korrekte Schreibweise:** ```vba Range(Cells(a, 10), Cells(b, 10)).Copy ``` **Erklärung:** - `Cells(a, 10)` gibt die Zelle in Zeile `a` und Spalte 10 zurück. - `Cells(b, 10)` gibt die Zelle in Zeile `b` und Spalte 10 zurück. - `Range(ErsteZelle, LetzteZelle)` definiert den Bereich von der ersten bis zur letzten Zelle. **Wichtig:** Wenn du diesen Code in einem anderen Arbeitsblatt als dem aktiven ausführst, solltest du das Arbeitsblatt explizit angeben, z.B.: ```vba Worksheets("Tabelle1").Range(Worksheets("Tabelle1").Cells(a, 10), Worksheets("Tabelle1").Cells(b, 10)).Copy ``` So vermeidest du Fehler durch nicht explizit referenzierte Arbeitsblätter.

Accepted Answer

Um in Excel mit einem VBA-Makro die Zeilen 8 bis 10 auszublenden, kannst du folgenden Code verwenden: ```vba Rows("8:10").Hidden = True ``` So gehst du vor: 1. Drücke `ALT + F11`, um... [mehr]

Accepted Answer

Um in Excel mit einem VBA-Makro die Zeilen 8 bis 10 auszublenden, kannst du folgenden Code verwenden: ```vba Rows("8:10").Hidden = True ``` So gehst du vor: 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle im Projektfenster das gewünschte Arbeitsblatt oder „DieseArbeitsmappe“ aus. 3. Füge den obigen Code in ein neues oder bestehendes Makro ein. 4. Schließe den Editor und führe das Makro aus. Damit werden die Zeilen 8 bis 10 im aktiven Arbeitsblatt ausgeblendet.

Accepted Answer

Um in Excel mit VBA einen Bereich namens "test" aus Blatt 1 zu kopieren und in Blatt 2 ab Zelle B18 einzufügen, kannst du folgenden VBA-Code verwenden: ```vba Sub BereichKopieren()... [mehr]

Accepted Answer

Um in Excel mit VBA einen Bereich namens "test" aus Blatt 1 zu kopieren und in Blatt 2 ab Zelle B18 einzufügen, kannst du folgenden VBA-Code verwenden: ```vba Sub BereichKopieren() ' Bereich "test" aus Blatt1 kopieren Worksheets("Blatt1").Range("test").Copy ' In Blatt2 ab Zelle B18 einfügen Worksheets("Blatt2").Range("B18").PasteSpecial Paste:=xlPasteAll ' Zwischenablage leeren Application.CutCopyMode = False End Sub ``` **Hinweise:** - Stelle sicher, dass der Bereich "test" als benannter Bereich existiert und sich auf "Blatt1" bezieht. - Die Blattnamen ("Blatt1", "Blatt2") müssen exakt so lauten wie in deiner Datei. - Der Code kann im VBA-Editor (ALT+F11) in ein Modul eingefügt werden. Weitere Informationen zu VBA findest du auf der offiziellen Microsoft-Seite: [https://learn.microsoft.com/de-de/office/vba/api/overview/excel](https://learn.microsoft.com/de-de/office/vba/api/overview/excel)

Accepted Answer

So sieht das in VBA aus: ```vba Sub Makro1() Call Makro2(5) End Sub Sub Makro2(ByVal Wert As Integer) MsgBox "Der übergebene Wert ist: " & Wert End Sub ``` **Erkläru... [mehr]

Accepted Answer

So sieht das in VBA aus: ```vba Sub Makro1() Call Makro2(5) End Sub Sub Makro2(ByVal Wert As Integer) MsgBox "Der übergebene Wert ist: " & Wert End Sub ``` **Erklärung:** - `Makro1` ruft `Makro2` auf und übergibt den Wert 5. - `Makro2` nimmt einen Parameter (`Wert`) entgegen und kann damit weiterarbeiten.

Accepted Answer

Die Zeile ```pascal if diff > 0 then dec(diff, step) else diff := 0; ``` bedeutet: - **Wenn** `diff` größer als 0 ist, **dann** wird von `diff` der Wert von `step` abgezogen (das mach... [mehr]

Accepted Answer

Die Zeile ```pascal if diff > 0 then dec(diff, step) else diff := 0; ``` bedeutet: - **Wenn** `diff` größer als 0 ist, **dann** wird von `diff` der Wert von `step` abgezogen (das macht `dec(diff, step)`). - **Sonst** (also wenn `diff` nicht größer als 0 ist), wird `diff` auf 0 gesetzt. **Wichtig:** `dec(diff, step)` verringert `diff` um den Wert von `step` (nicht nur um 1, sondern um so viel wie in `step` steht). **Deine Interpretation ist also nicht ganz korrekt:** Es wird nicht immer nur um 1 verringert, sondern um den Wert von `step`. Und es wird nicht gleichzeitig `diff` und `step` verringert, sondern nur `diff`. **Zusammengefasst:** Wenn `diff > 0`, dann wird `diff := diff - step` ausgeführt. Wenn nicht, dann wird `diff := 0` gesetzt.

Accepted Answer

Um mit VBA einen bestimmten Zellenbereich (z.B. `A1:C3`) zu kopieren und in die nächst freie Zeile einer anderen Spalte oder Tabelle einzufügen, kannst du folgenden Beispielcode verwenden:... [mehr]

Accepted Answer

Um mit VBA einen bestimmten Zellenbereich (z.B. `A1:C3`) zu kopieren und in die nächst freie Zeile einer anderen Spalte oder Tabelle einzufügen, kannst du folgenden Beispielcode verwenden: ```vba Sub BereichKopierenInNaechstFreieZeile() Dim Quelle As Range Dim Ziel As Worksheet Dim LetzteZeile As Long ' Bereich festlegen, der kopiert werden soll Set Quelle = ThisWorkbook.Sheets("Tabelle1").Range("A1:C3") ' Ziel-Arbeitsblatt festlegen Set Ziel = ThisWorkbook.Sheets("Tabelle2") ' Nächst freie Zeile in Spalte A des Zielblatts finden LetzteZeile = Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row + 1 ' Bereich in die nächst freie Zeile einfügen Quelle.Copy Destination:=Ziel.Range("A" & LetzteZeile) End Sub ``` **Erläuterungen:** - `Quelle` ist der Bereich, den du kopieren möchtest. - `Ziel` ist das Arbeitsblatt, in das eingefügt werden soll. - `LetzteZeile` sucht die letzte belegte Zeile in Spalte A und addiert 1, um die nächste freie Zeile zu finden. - Mit `Quelle.Copy Destination:=...` wird der Bereich direkt eingefügt. **Hinweis:** Wenn du den Bereich in derselben Tabelle einfügen möchtest, passe einfach die Arbeitsblattnamen an. Soll der Bereich in eine andere Spalte eingefügt werden, ändere die Spaltenangabe in `Ziel.Range("A" & LetzteZeile)` entsprechend. Weitere Informationen findest du auch in der [Microsoft VBA-Dokumentation](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Accepted Answer

Die Fehlermeldung **"Objekt erforderlich"** in VBA tritt meist auf, wenn du versuchst, auf ein Objekt zuzugreifen, das nicht existiert oder falsch deklariert wurde. In deinem Fall liegt das... [mehr]

Accepted Answer

Die Fehlermeldung **"Objekt erforderlich"** in VBA tritt meist auf, wenn du versuchst, auf ein Objekt zuzugreifen, das nicht existiert oder falsch deklariert wurde. In deinem Fall liegt das Problem vermutlich an der Verwendung von `Is Null` mit einer Variablen, die kein Objekt ist. **Fehlerursache:** - `Is Null` wird in VBA für **Datenbankfelder** oder **Variablen vom Typ Variant** verwendet, nicht für einfache Variablen wie String, Integer etc. - Wenn `Nachklassifizierung` kein Objekt oder kein Variant ist, sondern z.B. ein String oder Integer, führt `Is Null` zu diesem Fehler. **Korrekte Prüfung auf Null/Leer:** 1. **Wenn Nachklassifizierung ein Variant ist:** ```vba If AnlageNeu = "Schleifmaschine" And IsNull(Nachklassifizierung) Then ``` 2. **Wenn Nachklassifizierung ein String ist:** ```vba If AnlageNeu = "Schleifmaschine" And Nachklassifizierung = "" Then ``` 3. **Wenn Nachklassifizierung ein Objekt ist (z.B. ein Recordset):** ```vba If AnlageNeu = "Schleifmaschine" And Nachklassifizierung Is Nothing Then ``` **Zusammengefasst:** - **Is Null** ist keine gültige Syntax in VBA. Verwende stattdessen **IsNull()** für Variablen vom Typ Variant oder prüfe auf `= ""` bei Strings. **Beispiel für deinen Fall (String):** ```vba If AnlageNeu = "Schleifmaschine" And Nachklassifizierung = "" Then ``` **Beispiel für deinen Fall (Variant):** ```vba If AnlageNeu = "Schleifmaschine" And IsNull(Nachklassifizierung) Then ``` **Weitere Infos:** - [Microsoft Docs: IsNull-Funktion (VBA)](https://learn.microsoft.com/de-de/office/vba/language/reference/user-interface-help/isnull-function) Falls du den Typ von `Nachklassifizierung` nicht kennst, prüfe dies im Code oder in der Variablendeklaration.

Accepted Answer

Um Zahlen wie 6,9999999999 in Excel-VBA beim Schreiben in eine .txt-Datei **nicht** im wissenschaftlichen Format (z. B. 6,9999999999E+00), sondern exakt so wie sie sind (mit allen Nachkommastellen), z... [mehr]

Accepted Answer

Um Zahlen wie 6,9999999999 in Excel-VBA beim Schreiben in eine .txt-Datei **nicht** im wissenschaftlichen Format (z. B. 6,9999999999E+00), sondern exakt so wie sie sind (mit allen Nachkommastellen), zu speichern, solltest du die Zahl vor dem Schreiben in einen String umwandeln und dabei das gewünschte Zahlenformat explizit angeben. Das erreichst du mit der `Format`-Funktion oder `Replace` (um den Dezimaltrenner zu steuern). Hier ein Beispiel: ```vba Dim zahl As Double Dim text As String Dim fileNum As Integer zahl = 6.9999999999 ' Formatieren mit 10 Nachkommastellen, Komma als Dezimaltrenner text = Replace(Format(zahl, "0.###############"), ".", ",") fileNum = FreeFile Open "C:\Pfad\zu\deiner\datei.txt" For Output As #fileNum Print #fileNum, text Close #fileNum ``` **Hinweise:** - `"0.###############"` sorgt dafür, dass bis zu 15 Nachkommastellen (je nach Genauigkeit) ausgegeben werden, aber keine unnötigen Nullen. - Mit `Replace(..., ".", ",")` wird der Dezimalpunkt durch ein Komma ersetzt, falls du das deutsche Zahlenformat brauchst. - Passe den Pfad `"C:\Pfad\zu\deiner\datei.txt"` entsprechend an. So wird die Zahl **immer als normale Dezimalzahl** und nicht im wissenschaftlichen Format in die Textdatei geschrieben.

Accepted Answer

Um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren, verwendest du folgende Syntax: ```vba Worksheets("Tabellenblattname").Activate ``` Ersetze dabei `"Tabellenblattname"`... [mehr]

Accepted Answer

Um in Excel VBA ein bestimmtes Tabellenblatt zu aktivieren, verwendest du folgende Syntax: ```vba Worksheets("Tabellenblattname").Activate ``` Ersetze dabei `"Tabellenblattname"` durch den tatsächlichen Namen des gewünschten Blattes. Beispiel: ```vba Worksheets("Daten").Activate ``` Alternativ kannst du auch die Indexnummer verwenden, z.B.: ```vba Worksheets(2).Activate ``` Das aktiviert das zweite Blatt in der Arbeitsmappe.