IsNumeric(Ausdruck) Beispiel: vba If IsNumeric(Range("A1").Value) Then MsgBox "Zahl" Else MsgBox "Keine Zahl" End If Rückgabewert: True = numerisch False = nich...
Wie wähle ich Blätter in Excel mittels VBA aus und kopiere dann Bereiche in ein neues Blatt?
Antwort vomUm Blätter in Excel mittels VBA auszuwählen, Bereiche zu kop und in ein neues Blattufügen, kannst du folgendes VBA-Makro verwenden: ```vba Sub CopyRangesToNewSheet() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim rng As Range Dim targetRow As Long ' Erstelle ein neues Blatt Set wsTarget = ThisWorkbook.Sheets.Add wsTarget.Name = "Zusammenfassung" ' Definiere die Quellblätter und Bereiche Dim sourceSheets As Variant Dim sourceRanges As Variant sourceSheets = Array("Blatt1", "Blatt2", "Blatt3") ' Namen der Quellblätter sourceRanges = Array("A1:B10", "C1:D10", "E1:F10") ' Bereiche in den Quellblättern targetRow = 1 ' Schleife durch die Quellblätter und Bereiche For i = LBound(sourceSheets) To UBound(sourceSheets) Set wsSource = ThisWorkbook.Sheets(sourceSheets(i)) Set rng = wsSource.Range(sourceRanges(i)) ' Kopiere den Bereich und füge ihn in das Zielblatt ein rng.Copy Destination:=wsTarget.Cells(targetRow, 1) ' Aktualisiere die Zielzeile für den nächsten Bereich targetRow = targetRow + rng.Rows.Count + 1 Next i ' Optional: Formatierung anpassen wsTarget.Columns.AutoFit End Sub ``` Dieses Makro erstellt ein neues Blatt namens "Zusammenfassung", kopiert die definierten Bereiche aus den angegebenen Quellblättern und fügt sie in das neue Blatt ein. Die Bereiche und Blätter kannst du nach Bedarf anpassen.
Verwandte Fragen
Gibt es die Excel-Funktion ZÄHLENWENN auch in Excel-VBA?
Ja. In Excel-VBA gibt es dafür WorksheetFunction.CountIf oder direkt Application.CountIf. Beispiel: vba Dim erg As Long erg = Application.WorksheetFunction.CountIf(Range("A1:A10"), &...
Wie nennt man das Zerlegen einer Excel-VBA-Prozedur in mehrere Teile?
Das nennt man meist Refactoring, genauer: Modularisierung: eine große Prozedur in mehrere kleinere Prozeduren/Funktionen aufteilen Extrahieren von Methoden/Prozeduren (Extract Method): Teilcode...
Wie lege ich in Excel eine UserForm an?
„UnserForm“ ist in Excel kein gängiger Begriff. Gemeint ist sehr wahrscheinlich UserForm. So legst du in Excel eine UserForm an: 1. Entwicklertools aktivieren Excel öffnen Date...
Kann man in Excel-VBA die Schriftgröße der MsgBox ändern?
Nein. Die Schriftgröße der eingebauten VBA-MsgBox lässt sich nicht direkt ändern. Möglichkeiten: Eigene UserForm verwenden → volle Kontrolle über Schriftgrö&s...
Ist dieser Excel-VBA-Code korrekt, um Spalten auszublenden und einen Bereich wieder einzublenden?
Nein. Korrekt ist bei Columns die Angabe von Spaltenbuchstaben oder Spaltennummern als Bereich, nicht "spaltevon:spaltebis" wörtlich. Beispiel: vba With Sheets("Tab1") .Co...
Excel-Makro: Spalten E:G per Button ein- und ausblenden?
Ja. Verwende dieses Makro und weise es dem Button zu: vba Sub SpaltenEGUmschalten() Columns("E:G").EntireColumn.Hidden = Not Columns("E").EntireColumn.Hidden End Sub So funktio...
Kann man in Excel nur einen bestimmten Bereich schützen, ohne den Blattschutz zu verwenden?
Nein. In Excel lässt sich ein bestimmter Bereich nicht wirksam separat schützen, ohne am Ende doch den Blattschutz zu verwenden. Das Prinzip ist: Zellen bekommen die Eigenschaft „Gesp...
Wie Excel-Tabelle in Word-Datei umwandeln?
Eine Excel-Tabelle lässt sich in Word auf mehrere Arten übernehmen: 1. Kopieren und einfügen Tabelle in Excel markieren Strg + C In Word klicken Strg + V 2. Als verknüpfte Tabell...
Excel-Makro: Im Bereich B10:B20, wenn der IndentLevel in Spalte B = 1 ist, dann in dieser Zeile in B:O oben eine dünne Rahmenlinie setzen?
vba Sub RahmenObenBeiIndent1() Dim ws As Worksheet Dim c As Range Set ws = ActiveSheet For Each c In ws.Range("B10:B20") If c.IndentLevel = 1 Then With ws.Range(ws.Cells(c.Row, &q...
