IsNumeric(Ausdruck) Beispiel: vba If IsNumeric(Range("A1").Value) Then MsgBox "Zahl" Else MsgBox "Keine Zahl" End If Rückgabewert: True = numerisch False = nich...
Mehrere Blätter und Bereiche in Excel mittels Application.InputBox auswählen und kopieren, VBA.
Antwort vomUm mehrere Blätter und Bereiche gleichzeitig in Excel mittels `Application.InputBox` durch Markieren auszuwählen und zu kopieren, kannst du VBA verwenden. Hier ist ein Beispielskript, das dir zeigt, wie du dies umsetzen kannst: ```vba Sub SelectAndCopyRanges() Dim ws As Worksheet Dim selectedRange As Range Dim destSheet As Worksheet Dim destCell As Range Dim userInput As String Dim rng As Range Dim rngAddress As String ' Zielarbeitsblatt und Zielzelle festlegen Set destSheet = ThisWorkbook.Sheets("Zielblatt") ' Name des Zielblatts anpassen Set destCell = destSheet.Range("A1") ' Zielzelle anpassen ' Schleife durch alle Arbeitsblätter For Each ws In ThisWorkbook.Worksheets ' Eingabeaufforderung zur Auswahl eines Bereichs On Error Resume Next Set selectedRange = Application.InputBox("Wähle einen Bereich in " & ws.Name, Type:=8) On Error GoTo 0 ' Wenn ein Bereich ausgewählt wurde If Not selectedRange Is Nothing Then ' Bereich kopieren und in das Zielblatt einfügen selectedRange.Copy Destination:=destCell ' Zielzelle für den nächsten Einfügevorgang anpassen Set destCell = destSheet.Cells(destCell.Row + selectedRange.Rows.Count, destCell.Column) End If Next ws End Sub ``` In diesem Skript wird für jedes Arbeitsblatt im aktuellen Workbook eine `InputBox` angezeigt, in der du einen Bereich auswählen kannst. Der ausgewählte Bereich wird dann in ein Zielblatt kopiert, das du vorher festlegst. Die Zielzelle wird nach jedem Kopiervorgang angepasst, sodass die Bereiche untereinander eingefügt werden. Stelle sicher, dass du den Namen des Zielblatts und die Zielzelle entsprechend deinen Anforderungen anpasst.
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...
