Wie kann ich in einer For-Next-Schleife von Zeile 11 bis 73 alle Zeilen mit Null-Werten in Spalte H (8) auf eine Zeilenhöhe von 1 setzen, unter Verwendung von Select Case?

Question

Wie kann ich in einer For-Next-Schleife von Zeile 11 bis 73 alle Zeilen mit Null-Werten in Spalte H (8) auf eine Zeilenhöhe von 1 setzen, unter Verwendung von Select Case?

Antwort

Verwandte Fragen

Gibt es einen relevanten Grund, warum in VB.NET 2003 'If...Then...' häufiger verwendet wird als 'Select...Case...', obwohl 'Select...Case...' übersichtlicher ist?

Wie funktioniert oPPT.Presentations.Open(sFile) in VBA?

Wie kann ich mit VBA den Wert einer benannten Zelle in eine Zelle eines anderen Arbeitsblatts kopieren?

Mit welcher Funktion kann ich in VBA einen im Arbeitsblatt ermittelten Wert anzeigen?

Wie lässt sich in Excel VBA der Typ eines Tabellenblatts (Chart oder Worksheet) ermitteln?

Wie kann man in Access VBA die Bildschirmaktualisierung verhindern bzw. den Bildschirm einfrieren?

Wie öffne ich per VBA aus einer Access-Anwendung eine andere Access-Anwendung?

Wie kann die VBA-Formel angepasst werden, sodass alle Mitarbeiter in die Zieltabelle übertragen werden?

VBA: Tabelle prüfen, ob Spalte 3 Werte stehen. Sobald Spalte 3 leer ist, Wert der Spalte 1 kopieren bis zum letzten Wert in Spalte 1.

Wie funktioniert eine Berechnung mit einer if-else Schleife in Java? Erkläre mit Beispiel.

Accepted Answer

Um in einer For-Next-Schleife in VBA die Zeilen von 11 bis 73 zu durchlaufen und die Zeilenhöhe auf 1 zu setzen, wenn der Wert in Spalte H (Spalte 8) gleich Null ist, kannst du den folgenden Code verwenden. Der Code nutzt eine Select Case-Anweisung, um die Bedingung zu überprüfen: ```vba Sub SetRowHeight() Dim i As Long For i = 11 To 73 Select Case Cells(i, 8).Value Case 0 Rows(i).RowHeight = 1 Case Else ' Hier kannst du andere Fälle behandeln, falls nötig End Select Next i End Sub ``` Dieser Code durchläuft die Zeilen 11 bis 73 und prüft den Wert in Spalte H. Wenn der Wert Null ist, wird die Zeilenhöhe auf 1 gesetzt. Andernfalls passiert nichts.

Accepted Answer

In VB.NET 2003 (und auch in anderen Versionen) gibt es keinen technischen Grund, warum „If...Then...Else“ grundsätzlich dem „Select...Case“ vorgezogen werden sollte. Beide... [mehr]

Accepted Answer

In VB.NET 2003 (und auch in anderen Versionen) gibt es keinen technischen Grund, warum „If...Then...Else“ grundsätzlich dem „Select...Case“ vorgezogen werden sollte. Beide Kontrollstrukturen haben ihre spezifischen Anwendungsfälle: **If...Then...Else** wird oft verwendet, wenn: - Bedingungen komplex oder voneinander abhängig sind. - Vergleiche nicht nur Gleichheit, sondern auch auf Ungleichheit, Bereichsprüfungen oder komplexe logische Ausdrücke abzielen. - Es nur wenige Fälle gibt. **Select...Case** ist besonders übersichtlich, wenn: - Eine Variable auf verschiedene Werte geprüft werden soll (meist auf Gleichheit oder Wertebereiche). - Viele verschiedene Fälle unterschieden werden müssen. **Mögliche Gründe, warum „If...Then...Else“ häufiger verwendet wird:** 1. **Gewohnheit und Bekanntheit:** Viele Entwickler sind mit „If...Then...Else“ vertrauter, da es in fast allen Programmiersprachen existiert. 2. **Flexibilität:** „If...Then...Else“ ist flexibler bei komplexen Bedingungen, die mit „Select...Case“ nicht oder nur umständlich abbildbar sind. 3. **Historische Gründe:** In älteren BASIC-Versionen war „Select...Case“ nicht immer verfügbar, daher wurde „If...Then...Else“ häufiger genutzt. 4. **Kleine Fallunterscheidungen:** Bei wenigen Fällen ist „If...Then...Else“ oft schneller geschrieben. **Fazit:** Es gibt keinen zwingenden Grund, „If...Then...Else“ dem „Select...Case“ vorzuziehen. Die Wahl hängt vom jeweiligen Anwendungsfall, der Komplexität der Bedingungen und den Vorlieben des Entwicklers ab. Für viele Fälle ist „Select...Case“ tatsächlich übersichtlicher und besser wartbar. Weitere Infos: - [Microsoft Docs: If...Then...Else-Anweisung](https://learn.microsoft.com/de-de/dotnet/visual-basic/language-reference/statements/if-then-else-statement) - [Microsoft Docs: Select...Case-Anweisung](https://learn.microsoft.com/de-de/dotnet/visual-basic/language-reference/statements/select-case-statement)

Accepted Answer

Die Methode `oPPT.Presentations.Open(sFile)` stammt aus der Automatisierung von Microsoft PowerPoint mit VBA (Visual Basic for Applications) oder anderen Programmiersprachen, die COM-Automatisierung u... [mehr]

Accepted Answer

Die Methode `oPPT.Presentations.Open(sFile)` stammt aus der Automatisierung von Microsoft PowerPoint mit VBA (Visual Basic for Applications) oder anderen Programmiersprachen, die COM-Automatisierung unterstützen (z.B. VBScript, C# mit Interop). **Bedeutung:** - `oPPT` ist in der Regel ein Objekt, das eine laufende Instanz von PowerPoint repräsentiert (meistens ein `PowerPoint.Application`-Objekt). - `Presentations` ist eine Sammlung aller aktuell geöffneten Präsentationen. - `Open(sFile)` öffnet die Präsentation, deren Pfad und Dateiname in der Variablen `sFile` gespeichert ist. **Beispiel in VBA:** ```vba Dim oPPT As PowerPoint.Application Set oPPT = New PowerPoint.Application Dim oPres As PowerPoint.Presentation Set oPres = oPPT.Presentations.Open("C:\Pfad\zur\Datei.pptx") ``` **Hinweis:** - Der Pfad in `sFile` muss korrekt und zugänglich sein. - PowerPoint muss installiert sein, damit die Automatisierung funktioniert. **Weitere Infos:** - [Microsoft Dokumentation zu Presentations.Open](https://learn.microsoft.com/de-de/office/vba/api/powerpoint.presentations.open) - [PowerPoint VBA-Tutorial](https://docs.microsoft.com/de-de/office/vba/api/overview/powerpoint) Falls du eine bestimmte Programmiersprache oder ein konkretes Problem hast, bitte die Frage entsprechend präzisieren.

Accepted Answer

Um mit VBA den Wert einer Zelle, der ein definierter Name zugewiesen wurde, in eine Zelle eines anderen Arbeitsblatts zu kopieren, kannst du folgenden Code verwenden: ```vba Sub WertKopieren() &#... [mehr]

Accepted Answer

Um mit VBA den Wert einer Zelle, der ein definierter Name zugewiesen wurde, in eine Zelle eines anderen Arbeitsblatts zu kopieren, kannst du folgenden Code verwenden: ```vba Sub WertKopieren() ' Beispiel: Der Name der Quellzelle ist "MeinName" ' Zielzelle ist z.B. Zelle A1 im Blatt "Zielblatt" Dim quellWert As Variant quellWert = Range("MeinName").Value Worksheets("Zielblatt").Range("A1").Value = quellWert End Sub ``` **Erläuterung:** - `Range("MeinName")` greift auf die Zelle zu, der du den Namen "MeinName" zugewiesen hast. - `Worksheets("Zielblatt").Range("A1")` ist die Zielzelle auf dem Blatt "Zielblatt". - Der Wert wird einfach zugewiesen. **Hinweis:** Passe `"MeinName"`, `"Zielblatt"` und `"A1"` an deine Gegebenheiten an. Weitere Infos zu benannten Bereichen findest du z.B. bei [Microsoft](https://support.microsoft.com/de-de/office/definieren-und-verwenden-von-namen-in-formeln-b2f542b7-4e4a-4f90-8dfa-ec8155ca93e9).

Accepted Answer

In VBA kannst du einen Wert, den dein Makro zuvor ermittelt hat, mit der Funktion `MsgBox` anzeigen. Beispiel: ```vba Dim ermittelterWert As Double ermittelterWert = Worksheets("Tabelle1").... [mehr]

Accepted Answer

In VBA kannst du einen Wert, den dein Makro zuvor ermittelt hat, mit der Funktion `MsgBox` anzeigen. Beispiel: ```vba Dim ermittelterWert As Double ermittelterWert = Worksheets("Tabelle1").Range("A1").Value MsgBox "Der ermittelte Wert ist: " & ermittelterWert ``` Mit `MsgBox` wird ein Dialogfenster angezeigt, das den Wert ausgibt. Alternativ kannst du den Wert auch direkt in eine Zelle schreiben, z.B.: ```vba Worksheets("Tabelle1").Range("B1").Value = ermittelterWert ``` Die Wahl hängt davon ab, ob du den Wert nur anzeigen oder auch im Arbeitsblatt speichern möchtest.

Accepted Answer

In Excel VBA kannst du den Typ eines Tabellenblatts (ob es sich um ein Arbeitsblatt oder ein Diagrammblatt handelt) mit der Type-Eigenschaft des jeweiligen Objekts ermitteln. Hier ein Beispiel: ```vb... [mehr]

Accepted Answer

In Excel VBA kannst du den Typ eines Tabellenblatts (ob es sich um ein Arbeitsblatt oder ein Diagrammblatt handelt) mit der Type-Eigenschaft des jeweiligen Objekts ermitteln. Hier ein Beispiel: ```vba Dim ws As Object For Each ws In ThisWorkbook.Sheets If ws.Type = xlWorksheet Then Debug.Print ws.Name & " ist ein Arbeitsblatt" ElseIf ws.Type = xlChart Then Debug.Print ws.Name & " ist ein Diagrammblatt" Else Debug.Print ws.Name & " ist ein anderer Typ" End If Next ws ``` **Erklärung:** - `xlWorksheet` steht für ein normales Arbeitsblatt. - `xlChart` steht für ein Diagrammblatt. Weitere Infos findest du in der [Microsoft-Dokumentation zu Sheets](https://learn.microsoft.com/de-de/office/vba/api/excel.sheets).

Accepted Answer

In Microsoft Access (VBA) gibt es keine direkte Methode wie `Application.ScreenUpdating = False` (wie in Excel), um den Bildschirm während der Ausführung von Code "einzufrieren". D... [mehr]

Accepted Answer

In Microsoft Access (VBA) gibt es keine direkte Methode wie `Application.ScreenUpdating = False` (wie in Excel), um den Bildschirm während der Ausführung von Code "einzufrieren". Dennoch gibt es einige Möglichkeiten, die Anzeige zu unterdrücken oder zu minimieren, um Flackern oder unerwünschte Aktualisierungen zu vermeiden: **1. Formulare ausblenden:** Du kannst das Formular während der Verarbeitung ausblenden und danach wieder einblenden: ```vba Me.Visible = False ' ... Dein Code ... Me.Visible = True ``` **2. Echo-Methode verwenden:** Mit `DoCmd.Echo` kannst du die Aktualisierung der Benutzeroberfläche unterdrücken: ```vba DoCmd.Echo False ' ... Dein Code ... DoCmd.Echo True ``` **Wichtig:** Setze `DoCmd.Echo True` unbedingt am Ende (am besten auch im Fehlerfall), sonst bleibt Access "eingefroren". **3. MousePointer ändern (optional):** Um dem Benutzer zu signalisieren, dass gearbeitet wird: ```vba Screen.MousePointer = 11 ' Sanduhr ' ... Dein Code ... Screen.MousePointer = 0 ' Standard ``` **Zusammenfassung:** Die gängigste Methode ist `DoCmd.Echo False` zu Beginn und `DoCmd.Echo True` am Ende deines Codes. [Microsoft-Dokumentation zu DoCmd.Echo](https://learn.microsoft.com/de-de/office/vba/api/access.docmd.echo) **Beispiel:** ```vba On Error GoTo Fehler DoCmd.Echo False ' ... Dein Code ... DoCmd.Echo True Exit Sub Fehler: DoCmd.Echo True MsgBox "Fehler: " & Err.Description ``` Damit kannst du die Bildschirmaktualisierung in Access VBA effektiv verhindern.

Accepted Answer

Um aus einer Access-Anwendung per VBA eine andere Access-Anwendung zu öffnen, kannst du das **CreateObject**-Kommando verwenden und die gewünschte Datenbank mit der **OpenCurrentDatabase**-M... [mehr]

Accepted Answer

Um aus einer Access-Anwendung per VBA eine andere Access-Anwendung zu öffnen, kannst du das **CreateObject**-Kommando verwenden und die gewünschte Datenbank mit der **OpenCurrentDatabase**-Methode öffnen. Hier ein Beispiel: ```vba Dim accApp As Object Set accApp = CreateObject("Access.Application") accApp.OpenCurrentDatabase "C:\Pfad\Zur\AnderenDatenbank.accdb" accApp.Visible = True ``` **Erläuterung:** - `CreateObject("Access.Application")` startet eine neue Instanz von Microsoft Access. - `OpenCurrentDatabase` öffnet die angegebene Datenbankdatei. - `Visible = True` sorgt dafür, dass die neue Access-Anwendung für den Benutzer sichtbar ist. **Hinweis:** Passe den Pfad `"C:\Pfad\Zur\AnderenDatenbank.accdb"` entsprechend an. Weitere Informationen findest du in der [Microsoft-Dokumentation zu Access VBA](https://learn.microsoft.com/de-de/office/vba/api/overview/access).

Accepted Answer

Hier ist die überarbeitete Version des Makros, die **jeden Mitarbeiter** aus dem Bereich C9:C66 der Quell-Tabelle ("Personen einzelnd drucken") in die Ziel-Tabelle ("Arbeitsplan&qu... [mehr]

Accepted Answer

Hier ist die überarbeitete Version des Makros, die **jeden Mitarbeiter** aus dem Bereich C9:C66 der Quell-Tabelle ("Personen einzelnd drucken") in die Ziel-Tabelle ("Arbeitsplan") überträgt – unabhängig davon, ob der Name bereits in der Ziel-Tabelle steht. Für jeden gefundenen Namen wird die entsprechende Zeile im "Arbeitsplan" gesucht und die Werte werden übertragen. Falls der Name nicht gefunden wird, wird er übersprungen. ```vba Sub uebertragAllePersonen() Dim wb As Workbook Dim wsQuell As Worksheet, wsZiel As Worksheet Dim datumToFind As Variant, rGef As Range Dim nameQuell As Variant Dim zielStartCol As Long, zielCol As Long, quelleCol As Long Dim i As Long, j As Long Dim nameGefunden As Boolean Set wb = ThisWorkbook Set wsQuell = wb.Sheets("Personen einzelnd drucken") Set wsZiel = wb.Sheets("Arbeitsplan") ' Datum aus Spalte B8 der Quell-Tabelle als Zahl If IsDate(wsQuell.Range("B8").Value) Then datumToFind = CLng(wsQuell.Range("B8").Value) Else MsgBox "Datum in Personen einzeln drucken!B8 ist ungültig oder leer.", vbExclamation Exit Sub End If zielStartCol = 4 ' Spalte D ' Jetzt alle Namen in C9:C66 durchgehen For i = 9 To 66 nameQuell = wsQuell.Cells(i, 3).Value ' Spalte C If Not IsEmpty(nameQuell) Then nameGefunden = False ' In Arbeitsplan Spalte A nach Datum suchen For Each rGef In wsZiel.Columns("A").Cells If IsDate(rGef.Value) Then If CLng(rGef.Value) = datumToFind Then ' Prüfen, ob Name in Spalte B übereinstimmt If wsZiel.Cells(rGef.Row, "B").Value = nameQuell Then ' Kopiere Werte von Arbeitsplan F bis BA in die Zielspalten ab Spalte D der aktuellen Zeile For zielCol = 6 To 54 ' F(6) bis BA(54) wsQuell.Cells(i, zielStartCol + (zielCol - 6)).Value = wsZiel.Cells(rGef.Row, zielCol).Value Next zielCol nameGefunden = True Exit For End If End If End If If rGef.Row > 1000 Then Exit For ' Optional: Suchbereich begrenzen Next rGef ' Optional: Hinweis, wenn Name nicht gefunden wurde 'If Not nameGefunden Then ' wsQuell.Cells(i, zielStartCol).Value = "Name nicht gefunden" 'End If End If Next i MsgBox "Datenübertragung abgeschlossen.", vbInformation End Sub ``` **Hinweise:** - Das Makro sucht für **jeden** Namen aus C9:C66 das passende Datum und den Namen in der Ziel-Tabelle und überträgt die Werte. - Falls ein Name nicht gefunden wird, passiert nichts (optional kann ein Hinweis in die Quell-Tabelle geschrieben werden, siehe Kommentar). - Die Übertragung erfolgt immer in die Zeile des jeweiligen Mitarbeiters in der Quell-Tabelle. Falls du möchtest, dass auch neue Mitarbeiter in die Ziel-Tabelle eingefügt werden, müsste das Makro entsprechend erweitert werden.

Accepted Answer

Um in VBA zu überprüfen, ob in Spalte 3 Werte stehen und bei einer leeren Zelle in Spalte 3 den Wert aus Spalte 1 zu kopieren, kannst du den folgenden Code verwenden. Dieser Code durchlä... [mehr]

Accepted Answer

Um in VBA zu überprüfen, ob in Spalte 3 Werte stehen und bei einer leeren Zelle in Spalte 3 den Wert aus Spalte 1 zu kopieren, kannst du den folgenden Code verwenden. Dieser Code durchläuft die Zeilen in der Tabelle und führt die beschriebenen Aktionen aus: ```vba Sub WerteKopieren() Dim ws As Worksheet Dim letzteZeile As Long Dim i As Long ' Arbeitsblatt festlegen Set ws = ThisWorkbook.Sheets("DeinBlattName") ' Ersetze "DeinBlattName" mit dem tatsächlichen Namen deines Arbeitsblatts ' Letzte Zeile in Spalte 1 finden letzteZeile = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' Schleife durch die Zeilen For i = 1 To letzteZeile ' Prüfen, ob Spalte 3 leer ist If IsEmpty(ws.Cells(i, 3).Value) Then ' Wert aus Spalte 1 in Spalte 3 kopieren ws.Cells(i, 3).Value = ws.Cells(i, 1).Value End If Next i End Sub ``` Stelle sicher, dass du den Namen des Arbeitsblatts in der Zeile `Set ws = ThisWorkbook.Sheets("DeinBlattName")` entsprechend anpasst. Dieser Code wird alle Zeilen durchlaufen und den Wert aus Spalte 1 in Spalte 3 kopieren, wenn Spalte 3 leer ist.

Accepted Answer

In Java wird eine `if-else`-Schleife verwendet, um Entscheidungen zu treffen, basierend auf bestimmten Bedingungen. Hier ist eine einfache Erklärung und ein Beispiel: ### Erklärung - **if-... [mehr]

Accepted Answer

In Java wird eine `if-else`-Schleife verwendet, um Entscheidungen zu treffen, basierend auf bestimmten Bedingungen. Hier ist eine einfache Erklärung und ein Beispiel: ### Erklärung - **if-Anweisung**: Überprüft, ob eine Bedingung wahr ist. Wenn ja, wird der Codeblock innerhalb der `if`-Anweisung ausgeführt. - **else-Anweisung**: Wird ausgeführt, wenn die Bedingung in der `if`-Anweisung falsch ist. ### Beispiel Angenommen, du möchtest überprüfen, ob eine Zahl positiv, negativ oder null ist. Hier ist ein Beispielcode: ```java public class ZahlPruefung { public static void main(String[] args) { int zahl = -5; // Beispielzahl if (zahl > 0) { System.out.println("Die Zahl ist positiv."); } else if (zahl < 0) { System.out.println("Die Zahl ist negativ."); } else { System.out.println("Die Zahl ist null."); } } } ``` ### Erklärung des Beispiels 1. **Zahl definieren**: Eine Variable `zahl` wird mit dem Wert `-5` initialisiert. 2. **if-Anweisung**: Überprüft, ob `zahl` größer als 0 ist. Wenn ja, wird "Die Zahl ist positiv." ausgegeben. 3. **else if-Anweisung**: Wenn die erste Bedingung falsch ist, wird überprüft, ob `zahl` kleiner als 0 ist. Wenn ja, wird "Die Zahl ist negativ." ausgegeben. 4. **else-Anweisung**: Wenn beide vorherigen Bedingungen falsch sind, wird "Die Zahl ist null." ausgegeben. Dieses Beispiel zeigt, wie man mit `if-else`-Anweisungen verschiedene Bedingungen überprüfen und entsprechende Aktionen ausführen kann.