48 Fragen zu Inputbox

Um mehrere Blätter und Bereiche mit `Application.InputBox` in Excel VBA auszuwählen, zu kopieren und in ein mit `Application.InputBox` ausgewähltes Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code zeigt, wie du die Eingabeauffung verwendest, um die Blätter und Bereiche auszuwählen und die Daten zu kopieren: ```vba Sub CopyMultipleRanges() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim rngSource As Range Dim rngTarget As Range Dim targetSheetName As String Dim sourceSheetName As String Dim sourceRangeAddress As String Dim targetRangeAddress As String Dim i As Integer Dim numRanges As Integer ' Anzahl der zu kopierenden Bereiche abfragen numRanges = Application.InputBox("Wie viele Bereiche möchtest du kopieren?", Type:=1) ' Zielblatt abfragen targetSheetName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2) On Error Resume Next Set wsTarget = ThisWorkbook.Sheets(targetSheetName) On Error GoTo 0 If wsTarget Is Nothing Then MsgBox "Das Zielblatt existiert nicht." Exit Sub End If ' Zielbereich abfragen targetRangeAddress = Application.InputBox("Gib die Adresse des Zielbereichs ein:", Type:=8) Set rngTarget = wsTarget.Range(targetRangeAddress) ' Schleife durch die Anzahl der Bereiche For i = 1 To numRanges ' Quellblatt abfragen sourceSheetName = Application.InputBox("Gib den Namen des Quellblatts " & i & " ein:", Type:=2) On Error Resume Next Set wsSource = ThisWorkbook.Sheets(sourceSheetName) On Error GoTo 0 If wsSource Is Nothing Then MsgBox "Das Quellblatt " & i & " existiert nicht." Exit Sub End If ' Quellbereich abfragen sourceRangeAddress = Application.InputBox("Gib die Adresse des Quellbereichs " & i & " ein:", Type:=8) Set rngSource = wsSource.Range(sourceRangeAddress) ' Bereich kopieren und einfügen rngSource.Copy Destination:=rngTarget ' Zielbereich für den nächsten Kopiervorgang anpassen Set rngTarget = rngTarget.Offset(rngSource.Rows.Count, 0) Next i MsgBox "Kopieren abgeschlossen." End Sub ``` Dieser Code führt dich durch die Schritte, um die Anzahl der zu kopierenden Bereiche, die Quellblätter und -bereiche sowie das Zielblatt und den Zielbereich auszuwählen. Die Daten werden dann entsprechend kopiert und eingefügt.

Um mehrere Blätter in Excel mithilfe einer VBA InputBox auszuwählen, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, die Namen der Blätter einzugeben, die du auswählen möchtest, und markiert dann diese Blätter. ```vba Sub SelectMultipleSheets() Dim sheetNames As String Dim sheetArray() As String Dim i As Integer ' InputBox to get the sheet names sheetNames = InputBox("Gib die Namen der Blätter ein, die du auswählen möchtest, getrennt durch Kommas:", "Blätter auswählen") ' Split the input string into an array sheetArray = Split(sheetNames, ",") ' Loop through the array and select each sheet For i = LBound(sheetArray) To UBound(sheetArray) sheetArray(i) = Trim(sheetArray(i)) ' Remove any leading/trailing spaces On Error Resume Next Sheets(sheetArray(i)).Select Replace:=False On Error GoTo 0 Next i End Sub ``` Dieser Code funktioniert wie folgt: 1. Eine InputBox wird angezeigt, in der du die Namen der Blätter eingeben kannst, die du auswählen möchtest, getrennt durch Kommas. 2. Die eingegebenen Namen werden in ein Array aufgeteilt. 3. Der Code durchläuft das Array und wählt jedes Blatt aus, das im Array enthalten ist. Um diesen Code zu verwenden, öffne den VBA-Editor (Alt + F11), füge ein neues Modul hinzu und kopiere den obigen Code in das Modul. Führe dann das Makro `SelectMultipleSheets` aus.

Um Arbeitsblätter in Excel mittels VBA und einer InputBox zu markieren und auszuwählen, kannst du folgenden VBA-Code verwenden: ```vba Sub SelectSheets() Dim sheetNames As String Dim sheetArray() As String Dim i As Integer ' InputBox zur Eingabe der Arbeitsblattnamen sheetNames = InputBox("Gib die Namen der Arbeitsblätter ein, getrennt durch Kommas:", "Arbeitsblätter auswählen") ' Trennen der eingegebenen Namen in ein Array sheetArray = Split(sheetNames, ",") ' Schleife durch das Array und Auswahl der Arbeitsblätter For i = LBound(sheetArray) To UBound(sheetArray) sheetArray(i) = Trim(sheetArray(i)) ' Entfernen von führenden und nachfolgenden Leerzeichen On Error Resume Next Worksheets(sheetArray(i)).Select Replace:=False On Error GoTo 0 Next i End Sub ``` Dieser Code öffnet eine InputBox, in der du die Namen der Arbeitsblätter, die du auswählen möchtest, durch Kommas getrennt eingeben kannst. Der Code trennt die eingegebenen Namen in ein Array und wählt dann die entsprechenden Arbeitsblätter aus. Stelle sicher, dass die Arbeitsblattnamen korrekt eingegeben werden, da der Code keine Fehlerbehandlung für nicht vorhandene Arbeitsblätter enthält.

Um verschiedene Arbeitsblätter in Excel mittels einer Inputbox auszuwählen, kann VBA (Visual Basic for Applications) verwendet. Hier ist ein einfaches Beispiel, wie das gemacht werden kann: 1. Öffne Excel und drücke `Alt + F11`, um den VBA-Editor zu öffnen. 2. Füge ein neues Modul hinzu, indem du auf `Einfügen` > `Modul` klickst. 3. Füge den folgenden Code in das Modul ein: ```vba Sub SelectWorksheet() Dim wsName As String wsName = InputBox("Bitte den Namen des Arbeitsblatts eingeben, das du auswählen möchtest:") On Error Resume Next Worksheets(wsName).Activate If Err.Number <> 0 Then MsgBox "Das Arbeitsblatt '" & wsName & "' existiert nicht.", vbExclamation Err.Clear End If On Error GoTo 0 End Sub ``` 4. Schließe den VBA-Editor und kehre zu Excel zurück. 5. Führe das Makro aus, indem du `Alt + F8` drückst, das Makro `SelectWorksheet` auswählst und auf `Ausführen` klickst. Dieses Makro öffnet eine Inputbox, in die der Benutzer den Namen des gewünschten Arbeitsblatts eingeben kann. Wenn das Arbeitsblatt existiert, wird es aktiviert; andernfalls wird eine Fehlermeldung angezeigt.

Um mehrere Blätter und Bereiche in Excel mittels `Application.InputBox` zu markieren und die Daten in ein ausgewähltes Blatt einzufügen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist ein Beispiel, wie du das machen könntest: 1. Öffne Excel und drücke `Alt + F11`, um den VBA-Editor zu öffnen. 2. Füge ein neues Modul ein (`Einfügen > Modul`). 3. Kopiere und füge den folgenden Code in das Modul ein: ```vba Sub CopyMultipleRanges() Dim ws As Worksheet Dim targetWs As Worksheet Dim rng As Range Dim targetRng As Range Dim userInput As String Dim userRange As Range Dim cell As Range Dim pasteRow As Long ' Zielblatt auswählen On Error Resume Next Set targetWs = Worksheets(Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)) On Error GoTo 0 If targetWs Is Nothing Then MsgBox "Ungültiger Blattname. Abbruch." Exit Sub End If ' Zielbereich auswählen On Error Resume Next Set targetRng = Application.InputBox("Wähle die Zelle aus, in die die Daten eingefügt werden sollen:", Type:=8) On Error GoTo 0 If targetRng Is Nothing Then MsgBox "Ungültiger Bereich. Abbruch." Exit Sub End If pasteRow = targetRng.Row ' Blätter und Bereiche auswählen Do On Error Resume Next Set ws = Worksheets(Application.InputBox("Gib den Namen des Blatts ein, das du kopieren möchtest (oder drücke Abbrechen, um zu beenden):", Type:=2)) On Error GoTo 0 If ws Is Nothing Then Exit Do On Error Resume Next Set userRange = Application.InputBox("Wähle den Bereich auf dem Blatt " & ws.Name & " aus, den du kopieren möchtest:", Type:=8) On Error GoTo 0 If userRange Is Nothing Then Exit Do ' Daten kopieren und einfügen userRange.Copy Destination:=targetWs.Cells(pasteRow, targetRng.Column) pasteRow = pasteRow + userRange.Rows.Count Loop MsgBox "Daten wurden erfolgreich kopiert." End Sub ``` 4. Schließe den VBA-Editor und kehre zu Excel zurück. 5. Führe das Makro aus (`Alt + F8`, wähle `CopyMultipleRanges` und klicke auf `Ausführen`). Dieses Makro fordert dich auf, den Namen des Zielblatts und die Zelle, in die die Daten eingefügt werden sollen, einzugeben. Anschließend kannst du nacheinander die Blätter und Bereiche auswählen, die du kopieren möchtest. Die Daten werden dann in das ausgewählte Blatt eingefügt.

Um mehrere Blätter in Excel mittels `Application.InputBox` durch Markieren auszuwählen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist ein Beispiel, wie du das machen kannst: ```vba Sub SelectMultipleSheets() Dim ws As Worksheet Dim selectedSheets As String Dim sheetArray() As String Dim i As Integer ' Prompt the user to select multiple sheets selectedSheets = Application.InputBox("Markiere die Blätter, die du auswählen möchtest, durch Komma getrennt:", Type:=2) ' Split the input string into an array sheetArray = Split(selectedSheets, ",") ' Loop through the array and select the sheets For i = LBound(sheetArray) To UBound(sheetArray) On Error Resume Next Set ws = ThisWorkbook.Sheets(Trim(sheetArray(i))) If Not ws Is Nothing Then ws.Select False ' Select the sheet without deselecting others End If On Error GoTo 0 Next i End Sub ``` In diesem Beispiel wird der Benutzer aufgefordert, die Namen der Blätter, die er auswählen möchte, durch Kommas getrennt einzugeben. Das Skript teilt die Eingabe in ein Array auf und wählt dann die entsprechenden Blätter aus. Weitere Informationen zu `Application.InputBox` findest du in der [Microsoft-Dokumentation](https://docs.microsoft.com/en-us/office/vba/api/excel.application.inputbox).

Um in Excel Blätter und Bereiche mittels `Application.InputBox` zu markieren und die ausgewählten Daten in ein durch `Application.InputBox` ausgewähltes Blatt neu einzufügen, kann folgender VBA-Code verwendet werden: ```vba Sub CopySelectedRange() Dim sourceRange As Range Dim destSheet As Worksheet Dim destRange As Range ' Eingabefeld zur Auswahl des Quellbereichs On Error Resume Next Set sourceRange = Application.InputBox("Wählen Sie den Quellbereich aus:", Type:=8) On Error GoTo 0 If sourceRange Is Nothing Then MsgBox "Kein Bereich ausgewählt. Vorgang abgebrochen." Exit Sub End If ' Eingabefeld zur Auswahl des Zielblatts Dim sheetName As String sheetName = Application.InputBox("Geben Sie den Namen des Zielblatts ein:", Type:=2) If sheetName = "" Then MsgBox "Kein Blattname eingegeben. Vorgang abgebrochen." Exit Sub End If On Error Resume Next Set destSheet = ThisWorkbook.Sheets(sheetName) On Error GoTo 0 If destSheet Is Nothing Then MsgBox "Blatt nicht gefunden. Vorgang abgebrochen." Exit Sub End If ' Eingabefeld zur Auswahl des Zielbereichs On Error Resume Next Set destRange = Application.InputBox("Wählen Sie die obere linke Zelle des Zielbereichs aus:", Type:=8) On Error GoTo 0 If destRange Is Nothing Then MsgBox "Kein Zielbereich ausgewählt. Vorgang abgebrochen." Exit Sub End If ' Daten kopieren und einfügen sourceRange.Copy Destination:=destRange MsgBox "Daten erfolgreich kopiert." End Sub ``` Dieser Code führt folgende Schritte aus: 1. Öffnet ein Eingabefeld zur Auswahl des Quellbereichs. 2. Öffnet ein Eingabefeld zur Eingabe des Zielblattnamens. 3. Öffnet ein Eingabefeld zur Auswahl der oberen linken Zelle des Zielbereichs. 4. Kopiert die Daten aus dem Quellbereich in den Zielbereich des ausgewählten Blatts. Stelle sicher, dass Makros in deiner Excel-Arbeitsmappe aktiviert sind, um diesen Code auszuführen.

Um Daten aus mehreren Excel-Blättern zu markieren und in ein neues Blatt einzufügen, kannst du VBA (Visual Basic for Applications). Hier ist ein Beispielskript, das dies ermöglicht: ```vba Sub KopiereDaten() Dim wsQuelle As Worksheet Dim wsZiel As Worksheet Dim rngQuelle As Range Dim rngZiel As Range Dim strBlattName As String Dim letzteZeile As Long ' Zielblatt auswählen strBlattName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2) On Error Resume Next Set wsZiel = ThisWorkbook.Sheets(strBlattName) On Error GoTo 0 If wsZiel Is Nothing Then MsgBox "Das Blatt " & strBlattName & " existiert nicht." Exit Sub End If ' Schleife durch alle Blätter For Each wsQuelle In ThisWorkbook.Sheets ' Quellebereich auswählen On Error Resume Next Set rngQuelle = Application.InputBox("Markiere den Bereich in " & wsQuelle.Name, Type:=8) On Error GoTo 0 If Not rngQuelle Is Nothing Then ' Daten in das Zielblatt kopieren letzteZeile = wsZiel.Cells(wsZiel.Rows.Count, "A").End(xlUp).Row + 1 rngQuelle.Copy Destination:=wsZiel.Cells(letzteZeile, 1) End If Next wsQuelle MsgBox "Daten wurden erfolgreich kopiert." End Sub ``` Dieses Skript führt folgende Schritte aus: 1. Es fordert den Benutzer auf, den Namen des Zielblatts einzugeben. 2. Es überprüft, ob das Zielblatt existiert. 3. Es durchläuft alle Blätter in der Arbeitsmappe. 4. Es fordert den Benutzer auf, einen Bereich in jedem Blatt zu markieren. 5. Es kopiert die markierten Daten in das Zielblatt, beginnend in der ersten freien Zeile. Um das Skript auszuführen, öffne den VBA-Editor (Alt + F11), füge ein neues Modul ein und kopiere den obigen Code hinein. Führe dann das Makro `KopiereDaten` aus.

Um mehrere Blätter mittels `Application.InputBox` in VBA zu markieren und in ein ausgewähltes Arbeitsblatt zu importieren, kann folgender Code verwendet werden: ```vba Sub ImportSheets() Dim ws As Worksheet Dim selectedSheets As Variant Dim targetSheet As Worksheet Dim i As Integer Dim lastRow As Long ' Eingabeaufforderung zur Auswahl der Blätter selectedSheets = Application.InputBox("Gib die Namen der Blätter ein, getrennt durch Kommas:", "Blätter auswählen", Type:=2) ' Überprüfen, ob die Eingabe abgebrochen wurde If selectedSheets = False Then Exit Sub ' Zielarbeitsblatt auswählen Set targetSheet = ThisWorkbook.Sheets("Zielblatt") ' Ersetze "Zielblatt" durch den Namen des Zielarbeitsblatts ' Blätter in ein Array aufteilen selectedSheets = Split(selectedSheets, ",") ' Durch die ausgewählten Blätter iterieren For i = LBound(selectedSheets) To UBound(selectedSheets) Set ws = ThisWorkbook.Sheets(Trim(selectedSheets(i))) ' Letzte Zeile im Zielarbeitsblatt finden lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row + 1 ' Daten kopieren und einfügen ws.UsedRange.Copy Destination:=targetSheet.Cells(lastRow, 1) Next i MsgBox "Blätter wurden erfolgreich importiert!" End Sub ``` Dieser Code führt folgende Schritte aus: 1. Zeigt eine Eingabeaufforderung an, in der die Namen der zu importierenden Blätter eingegeben werden können, getrennt durch Kommas. 2. Überprüft, ob die Eingabe abgebrochen wurde. 3. Wählt das Zielarbeitsblatt aus, in das die Daten importiert werden sollen. 4. Teilt die eingegebenen Blattnamen in ein Array auf. 5. Iteriert durch die ausgewählten Blätter, kopiert deren Daten und fügt sie in das Zielarbeitsblatt ein. Stelle sicher, dass das Zielarbeitsblatt existiert und passe den Namen des Zielarbeitsblatts im Code entsprechend an.

Um mehrere Blätter mittels `Application.InputBox` in Excel VBA auszuwählen, einen Bereich auszuwählen, zu kopieren und in ein neues, ebenfalls mittels `Application.InputBox` ausgewähltes Blatt einzufügen, könnte der folgende VBA-Code verwendet werden: ```vba Sub CopyRangeToNewSheet() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim rng As Range Dim wsName As String Dim targetSheetName As String ' Eingabeaufforderung für den Namen des Quellblatts wsName = Application.InputBox("Gib den Namen des Quellblatts ein:", Type:=2) ' Überprüfen, ob das Blatt existiert On Error Resume Next Set wsSource = Worksheets(wsName) On Error GoTo 0 If wsSource Is Nothing Then MsgBox "Das Blatt " & wsName & " existiert nicht." Exit Sub End If ' Eingabeaufforderung für den zu kopierenden Bereich On Error Resume Next Set rng = Application.InputBox("Wähle den Bereich aus, der kopiert werden soll:", Type:=8) On Error GoTo 0 If rng Is Nothing Then MsgBox "Kein Bereich ausgewählt." Exit Sub End If ' Eingabeaufforderung für den Namen des Zielblatts targetSheetName = Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2) ' Überprüfen, ob das Zielblatt existiert, wenn nicht, erstellen On Error Resume Next Set wsTarget = Worksheets(targetSheetName) On Error GoTo 0 If wsTarget Is Nothing Then Set wsTarget = Worksheets.Add wsTarget.Name = targetSheetName End If ' Bereich kopieren und in das Zielblatt einfügen rng.Copy Destination:=wsTarget.Range("A1") MsgBox "Bereich erfolgreich kopiert." End Sub ``` Dieser Code führt folgende Schritte aus: 1. Fragt den Benutzer nach dem Namen des Quellblatts. 2. Überprüft, ob das Quellblatt existiert. 3. Fragt den Benutzer nach dem zu kopierenden Bereich. 4. Fragt den Benutzer nach dem Namen des Zielblatts. 5. Überprüft, ob das Zielblatt existiert, und erstellt es gegebenenfalls. 6. Kopiert den ausgewählten Bereich und fügt ihn in das Zielblatt ein. Weitere Informationen zu `Application.InputBox` findest du in der [Microsoft-Dokumentation](https://docs.microsoft.com/en-us/office/vba/api/excel.application.inputbox).

Um mehrere Blätter und Bereiche in Excel mit `Application.InputBox` auszuwählen und die Daten zu kopieren, kann VBA (Visual Basic for Applications) verwendet werden. Hier ist ein Beispiel, wie das gemacht werden kann: ```vba Sub CopyMultipleRanges() Dim ws As Worksheet Dim rng As Range Dim selectedRanges As Range Dim destSheet As Worksheet Dim destCell As Range Dim userInput As String Dim addressArray() As String Dim i As Integer ' Zielarbeitsblatt und Zelle festlegen Set destSheet = ThisWorkbook.Sheets("Zielblatt") ' Zielblatt anpassen Set destCell = destSheet.Range("A1") ' Zielzelle anpassen ' Eingabefeld für die Auswahl der Bereiche userInput = Application.InputBox("Gib die Bereiche ein, die du kopieren möchtest (z.B. 'Sheet1!A1:B2,Sheet2!C3:D4'):", Type:=2) ' Überprüfen, ob der Benutzer die Eingabe abgebrochen hat If userInput = "False" Then Exit Sub ' Adressen in ein Array aufteilen addressArray = Split(userInput, ",") ' Schleife durch die Adressen und Bereiche kopieren For i = LBound(addressArray) To UBound(addressArray) Set rng = Range(addressArray(i)) ' Bereich kopieren und in das Zielblatt einfügen rng.Copy destCell ' Zielzelle für den nächsten Einfügevorgang anpassen Set destCell = destSheet.Cells(destCell.Row + rng.Rows.Count, destCell.Column) Next i MsgBox "Bereiche wurden erfolgreich kopiert!" End Sub ``` Dieses Skript führt folgende Schritte aus: 1. Es wird ein Eingabefeld angezeigt, in dem die Benutzer die Bereiche eingeben können, die sie kopieren möchten. Die Bereiche sollten im Format `SheetName!Range` eingegeben und durch Kommas getrennt werden. 2. Die eingegebenen Bereiche werden in ein Array aufgeteilt. 3. Jeder Bereich wird kopiert und in das Zielblatt eingefügt, wobei die Zielzelle für jeden Einfügevorgang angepasst wird. Bitte passe die Namen des Zielblatts und der Zielzelle entsprechend deinen Anforderungen an.

Um 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.

Um mehrere Bereiche in verschiedenen Blättern mit `Application.InputBox` auszuwählen, Zellen zu kopieren und in ein mit `Application.InputBox` ausgewähltes Blatt einzufügen, kannst du VBA (Visual Basic for Applications) in verwenden. Hier ist ein Beispielskript, das dies ermöglicht: ```vba Sub CopyMultipleRanges() Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim rngSource As Range Dim rngTarget As Range Dim strAddress As String Dim i As Integer Dim lastRow As Long ' Schleife, um mehrere Bereiche auszuwählen For i = 1 To 3 ' Anzahl der Bereiche, die du auswählen möchtest On Error Resume Next Set wsSource = Nothing Set rngSource = Nothing strAddress = Application.InputBox("Wähle den Bereich auf dem Quellblatt " & i & " aus", Type:=8) If strAddress = "False" Then Exit Sub ' Abbrechen, wenn der Benutzer auf Abbrechen klickt Set rngSource = Range(strAddress) If rngSource Is Nothing Then MsgBox "Ungültiger Bereich. Bitte erneut versuchen." i = i - 1 Else ' Bereich kopieren und in das Zielblatt einfügen If wsTarget Is Nothing Then Set wsTarget = Worksheets(Application.InputBox("Wähle das Zielblatt aus", Type:=2)) If wsTarget Is Nothing Then Exit Sub ' Abbrechen, wenn der Benutzer auf Abbrechen klickt End If lastRow = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1 rngSource.Copy Destination:=wsTarget.Cells(lastRow, 1) End If On Error GoTo 0 Next i MsgBox "Bereiche erfolgreich kopiert!" End Sub ``` Dieses Skript führt dich durch die folgenden Schritte: 1. Es fordert den Benutzer auf, mehrere Bereiche in verschiedenen Blättern auszuwählen. 2. Es kopiert die ausgewählten Bereiche. 3. Es fordert den Benutzer auf, ein Zielblatt auszuwählen. 4. Es fügt die kopierten Bereiche in das Zielblatt ein. Du kannst die Anzahl der Bereiche, die du auswählen möchtest, anpassen, indem du die Zahl in der Schleife `For i = 1 To 3` änderst.

Um verschiedene Bereiche mit `Application.InputBox` in Excel VBA auszuwählen, Zellen zu kopieren und in ein anderes, ebenfalls mit `Application.InputBox` ausgewähltes Blatt einzufügen, kannst du folgenden VBA-Code verwenden: ```vba Sub CopyAndPasteRanges() Dim sourceRange As Range Dim targetSheet As Worksheet Dim targetCell As Range Dim userInput As String Dim rng As Range Dim cell As Range ' Schleife, um mehrere Bereiche auszuwählen Do On Error Resume Next Set sourceRange = Application.InputBox("Wähle einen Bereich aus (Abbrechen zum Beenden):", Type:=8) On Error GoTo 0 If sourceRange Is Nothing Then Exit Do End If ' Bereich kopieren sourceRange.Copy ' Zielblatt auswählen On Error Resume Next Set targetSheet = Worksheets(Application.InputBox("Gib den Namen des Zielblatts ein:", Type:=2)) On Error GoTo 0 If targetSheet Is Nothing Then MsgBox "Ungültiger Blattname. Vorgang abgebrochen." Exit Sub End If ' Zielzelle auswählen On Error Resume Next Set targetCell = targetSheet.Range(Application.InputBox("Wähle die Zielzelle aus:", Type:=8)) On Error GoTo 0 If targetCell Is Nothing Then MsgBox "Ungültige Zielzelle. Vorgang abgebrochen." Exit Sub End If ' Bereich einfügen targetCell.PasteSpecial Paste:=xlPasteAll ' Clipboard leeren Application.CutCopyMode = False Loop MsgBox "Vorgang abgeschlossen." End Sub ``` Dieser Code ermöglicht es dir, mehrere Bereiche nacheinander auszuwählen und in ein Zielblatt einzufügen. Die Schleife wird beendet, wenn du im `Application.InputBox`-Dialog auf "Abbrechen" klickst. Achte darauf, dass die Zielzelle jedes Mal neu ausgewählt wird, um Überschreibungen zu vermeiden.

Um mehrere Blätter und Bereiche mit einer VBA InputBox auszuwählen und diese Daten in ein durch Markieren ausgewähltes Blatt einzufügen, kannst du den folgenden VBA-Code verwenden. Dieser Code zeigt, wie du eine InputBox verwenden kannst, um die Blätter und Bereiche auszuwählen und die Daten dann in ein Zielblatt einzufügen. ```vba Sub CopyDataToSelectedSheet() Dim ws As Worksheet Dim targetSheet As Worksheet Dim targetRange As Range Dim sourceRange As Range Dim sheetNames As String Dim sheetName As Variant Dim prompt As String Dim title As String ' Prompt for sheet names prompt = "Gib die Namen der Blätter ein, getrennt durch Kommas:" title = "Blätter auswählen" sheetNames = InputBox(prompt, title) ' Split the sheet names into an array Dim sheetArray() As String sheetArray = Split(sheetNames, ",") ' Prompt for target sheet prompt = "Wähle das Zielblatt aus:" title = "Zielblatt auswählen" Set targetSheet = Application.InputBox(prompt, title, Type:=8) ' Prompt for target range prompt = "Wähle den Zielbereich aus:" title = "Zielbereich auswählen" Set targetRange = Application.InputBox(prompt, title, Type:=8) ' Loop through each sheet name and copy data For Each sheetName In sheetArray Set ws = ThisWorkbook.Sheets(Trim(sheetName)) ' Prompt for source range in each sheet prompt = "Wähle den Bereich in " & ws.Name & " aus:" title = "Quellbereich auswählen" Set sourceRange = Application.InputBox(prompt, title, Type:=8) ' Copy data from source range to target range sourceRange.Copy Destination:=targetRange ' Adjust target range for next paste Set targetRange = targetRange.Offset(sourceRange.Rows.Count, 0) Next sheetName End Sub ``` Dieser Code führt folgende Schritte aus: 1. Fragt den Benutzer nach den Namen der Blätter, getrennt durch Kommas. 2. Fragt den Benutzer nach dem Zielblatt. 3. Fragt den Benutzer nach dem Zielbereich im Zielblatt. 4. Durchläuft jedes Blatt, das in der InputBox angegeben wurde, und fragt nach dem Quellbereich in jedem Blatt. 5. Kopiert die Daten aus dem Quellbereich in den Zielbereich und passt den Zielbereich für die nächste Kopie an. Bitte beachte, dass dieser Code davon ausgeht, dass die Blätter und Bereiche korrekt eingegeben und ausgewählt werden. Es gibt keine Fehlerbehandlung für ungültige Eingaben oder Bereiche.