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 Arbeitsblätter und Bereiche markieren und in ein neues Arbeitsblatt in Excel kopieren mittels VBA?
Antwort vomUm Bereiche in einem Excel-Arbeitsblatt zu markieren und diese dann in ein neues Arbeitsblatt zu kopieren, kann VBA (Visual Basic for Applications) verwendet. Hier ist ein Beispielskript, das zeigt, wie das gemacht werden kann: ```vba Sub KopiereBereiche() Dim wsQuelle As Worksheet Dim wsZiel As Worksheet Dim Bereich1 As Range Dim Bereich2 As Range Dim ZielZelle As Range ' Setze das Quell- und Zielarbeitsblatt Set wsQuelle = ThisWorkbook.Sheets("Quelle") ' Name des Quellarbeitsblatts Set wsZiel = ThisWorkbook.Sheets.Add ' Neues Arbeitsblatt hinzufügen ' Definiere die zu kopierenden Bereiche Set Bereich1 = wsQuelle.Range("A1:B10") ' Beispielbereich 1 Set Bereich2 = wsQuelle.Range("D1:E10") ' Beispielbereich 2 ' Kopiere Bereich1 in das neue Arbeitsblatt Set ZielZelle = wsZiel.Range("A1") Bereich1.Copy ZielZelle ' Kopiere Bereich2 in das neue Arbeitsblatt unter Bereich1 Set ZielZelle = wsZiel.Range("A12") ' Beispielzielzelle für Bereich2 Bereich2.Copy ZielZelle ' Optional: Formatierungen anpassen oder weitere Aktionen durchführen End Sub ``` In diesem Beispiel wird ein neues Arbeitsblatt erstellt und zwei definierte Bereiche aus dem Quellarbeitsblatt in das neue Arbeitsblatt kopiert. Die Bereiche und Zielzellen können nach Bedarf angepasst werden.
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...
