Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Inputbox (Type 8), gewählten Bereich ausgeben.

Forumthread: Inputbox (Type 8), gewählten Bereich ausgeben.

Inputbox (Type 8), gewählten Bereich ausgeben.
Luu
Hallo Excel Freunde!
Ich habe folgenden Code:
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
Wie lasse ich mir nun den ausgewählten Bereich in einer Zelle als Text ausgeben?
Sheets("Admin").Range("I6") = Bereich
wäre zu einfach und funktioniert ja auch nicht.
Schonmal im Voraus vielen Dank für die Hilfe.
Gruß
Luu
Anzeige
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
16.12.2009 10:53:08
Hajo_Zi
Hallo luu,
Option Explicit
Sub Luu()
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type: _
=8)
ActiveSheet.Range("I6") = Bereich.Address
End Sub

Anzeige
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
16.12.2009 11:00:04
Luu
Hallo Hajo!
Danke, war ja irgendwie einfach... Eine kleine Sache noch, wenn ich den Bereich auf einem anderen Blatt auswähle, schreibt er mir das Blatt jedoch nicht auf.
In der Inputbox steht unten ja der Bereich. Z.B. Testseite!$B$18:$G$316.
Kannst du mir da auch noch weiterhelfen?
Anzeige
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
16.12.2009 11:19:34
Luu
ok, erledigt.
bisschen kompliziert, aber es geht.
Sheets("Admin").Range("I9") = Right(Bereich.Address(External:=True), Len(Bereich.Address(External:=True)) - Len(ActiveWorkbook.Name) - 2)
Bereich.Address(External:=True) gibt die adresse mit workbook und sheet wieder. um das workbook wegzukriegen, hab ich den rest drumrum gebastelt.
gruß
luu
Anzeige
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
16.12.2009 11:30:41
Hajo_Zi
Hallo luu,
Option Explicit
Sub Luu()
Dim Bereich As Range
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type: _
=8)
ActiveSheet.Range("I6") = Bereich.Parent.Name & "!" & Bereich.Address
End Sub
Gruß Hajo
Anzeige
AW: Inputbox (Type 8), gewählten Bereich ausgeben.
16.12.2009 11:57:38
Luu
Viele Wege führen nach Rom, deiner mit Abkürzung.
Danke
;

Forumthreads zu verwandten Themen

runden per VBA - Typen unverträglich???
David

Hallo zusammen,
der "Einzeiler"
Sub runden() With Range("A1:A2") .Value = Round(.Value, 2) End With End Sub
liefert bei mir den Laufzeitfehler 13 - Typen unverträglich.
Mit einer einzelnen Zelle ("A1") funzt es. Was mache ich falsch?
Gruß
David
28.10.2008 15:05:00
Thread-ID: 1019971
5 Beiträge
VBA-Match: "<vorheriger" - Typen unverträglich?
MBorn

Jutn Abnd,
weiß vielleicht einer oder eine von Euch, warum bei folgendem Versuch mit
Application.Match immer die Fehlermeldung "Typen unverträglich" auftaucht?
<vorheriger steht in Excels Zelle A16 und ist eine Textzelle.
~f~
Vorheriger = Application.Match("<vo...
24.01.2009 20:32:36
Thread-ID: 1043448
8 Beiträge
VBA InputBox
Einzel

Hallo,
habe folgenden CODE
Sub Bemerkung() Dim Eingabe As String Dim erg% Text = InputBox("Bitte geben Sie einen Wert für ein:", "Dateneingabe:") Range("B6").Value = Text End Sub
Nun möchte ich aber, das wenn in z.B. B6 schon was steht er den Inhalt in z.B. B7 einträgt. usw.
...
18.06.2009 14:21:23
Thread-ID: 1082593
3 Beiträge
VBA Inputbox Type Parameter Problem
Bernhard

Liebes Forum,
bislang (Excel 2003) war es möglich eine Variable aus einer Inputbox auszulesen und mit Type:=0 konnte man außerhalb der Inputbox auf eine Zelle klicken - die Zelladresse wurde dann in die Inputbox übernommen und konnte ausgewertet werden.
Beispiel:
str_cell_input =...
20.01.2010 15:00:09
Thread-ID: 1131397
4 Beiträge
VBA Datum in INPUTBOX in Tabelle suchen
Klaus

Nachdem ich nun seit einigen Stunden das Forum durchforstet habe, gehen mir langsam die Suchbegriffe aus. Daher frag ich jetzt einfach einmal......
Ich habe (mal wieder) so eine Tabelle mit einer Zinsstaffel. In Spalte B steht immer die Valuta oder eben das Buchungsdatum.
Ich hab mir be...
22.04.2010 16:03:34
Thread-ID: 1153334
2 Beiträge
VBA via Inputbox suchen und Zelle ändern
Ralf
Hallo zusammen,
habe folgendes Problem:
Würde gerne über eine Inputbox nach einem Wert in Spalte B suchen. Wenn der Wert gefunden wurde, soll über eine weitere Inputbox der Wert in der Spalte G (in der selben Zeile) geändert werden können.
Bsp:
Suchwert "1234" wird gefunden in Zell...
22.06.2014 16:14:54
Thread-ID: 1366900
5 Beiträge
Anzeige
per VBA InputBox in Zelle schreiben und drucken
Dominic

Hallo zusammen,
ich benötige ein Skript bei dem ich einen Wert eingeben kann (1 bis 52) z. B. per InputBox. Dieser Wert wird in meine Tabelle in die Zelle C6 bis C12 übergeben.
Wie bekomme ich das hin? Mein folgendes Skript funktioniert nicht. Hier kommt immer der Fehler "Objekt erforde...
03.05.2016 11:02:25
Thread-ID: 1491626
4 Beiträge
Suchen /Ersetzen VBA /InputBox
Mike

Hallo,
Werner war so hilfreich und hat mir bei diesen Code weitergeholfen.
Folgendes möchte ich noch verbesserrn :
Wenn ich die Zahl eingegeben habe Bsp. Artikelnummer fragt er zum gleichen Artikel diese nochmal ab, ist es möglich das nur eine Eingabe erforderlich ist. In der Spal...
06.02.2017 21:10:58
Thread-ID: 1539889
9 Beiträge
Anzeige
VBA Input Box
Christian

Hallo zusammen,
kann mir jemand sagen, wo mein Fehler liegt? Probiere schon ewig ...
Private Sub Loeschen() ActiveSheet.Unprotect On Error Resume Next Dim Bereich As Range Set Bereich = Application.InputBox("Bitte markieren Sie einen Bereich", _ "Bereich wählen", , , , , , 8) If StrPtr(...
23.03.2017 13:12:36
Thread-ID: 1549020
3 Beiträge
VBA - Input Textbox bestimmter Wert
Arnd-Olav

Ich schon wieder...
Mein Tagesziel bezüglich Code ist auf einem guten Weg ;)
Nun habe ich (immer noch) eine Input Textbox, die eine Eingabe erwartet. Ich möchte aber, dass zwei Bedingung erlaubt werden
1. nur eine Zahl 10 stellige Zahl ,
2. und diese muss mit 1013 beginnen.
...
11.01.2019 15:12:21
Thread-ID: 1667528
4 Beiträge
VBA: Inputbox mit max. 5 stellige Nummer
Markus Mannheim
Hallo,
wie mache ich ein Makro indem die Inputbox max. eine 5 Stellige Zahl annimmt, alles andere mit einer Fehlemeldung quittiert wird?
Gruß
MM
Soviel habe ich schon:
If Sheets("RK_F").Range("C6").Value = "" Then
REWE = InputBox("Bitte geben Sie Ihre 5-stellige REWE Mitarbe...
23.07.2003 13:32:53
Thread-ID: 284532
4 Beiträge
Anzeige
Range mit Inputbox (Type:=8)
Erich M.
Hallo EXCEL-Freunde,
da ich laufend aus einem Tabellenblatt Teile entweder in eine neue Datei
oder in ein neues Tabellenblatt kopieren muss, habe ich mir ein Makro mit
einer UF erstellt. Funktioniert soweit auch.
Da ich kürzlich aus dem Forum einen Tipp (leider weiss ich nicht mehr...
01.02.2004 08:53:00
Thread-ID: 374464
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Verwendung der InputBox (Type 8) zur Auswahl eines Bereichs in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor in Excel, indem Du ALT + F11 drückst.

  2. Füge ein neues Modul hinzu:

    • Klicke im Projektfenster mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)".
    • Wähle „Einfügen“ > „Modul“.

  3. Füge den folgenden Code ein:

    Option Explicit
Sub BereichAusgeben()
   Dim Bereich As Range
   Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
   ActiveSheet.Range("I6") = Bereich.Parent.Name & "!" & Bereich.Address
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus:

    • Gehe zu „Entwicklertools“ > „Makros“ und wähle „BereichAusgeben“ aus.
    • Klicke auf „Ausführen“.

  6. Wähle den gewünschten Bereich in Deinem Arbeitsblatt aus. Der Bereich wird nun in der Zelle I6 als Text ausgegeben.

Häufige Fehler und Lösungen

  • Fehler: "Typ nicht korrekt"

    • Stelle sicher, dass Du Type:=8 korrekt eingegeben hast, um die InputBox für die Auswahl eines Bereichs zu verwenden.

  • Problem: Der Bereich wird nicht korrekt angezeigt

    • Prüfe, ob Du den Code in einem Modul und nicht in einem Arbeitsblatt platziert hast. Der Code muss sich in einem Modul befinden, um korrekt ausgeführt zu werden.

  • Fehler: Nur die Adresse wird angezeigt

    • Um sowohl das Blatt als auch die Adresse auszugeben, verwende den Code aus der Schritt-für-Schritt-Anleitung.

Alternative Methoden

  • Verwendung der InputBox für andere Datentypen: Du kannst die Application.InputBox auch für andere Datentypen verwenden, indem Du den Typ anpasst. Zum Beispiel für Text oder Zahlen:

    Dim Eingabe As String
Eingabe = Application.InputBox("Bitte Text eingeben:", Type:=2)

  • Direkte Zellenauswahl: Du kannst auch die Range-Methode verwenden, um einen Bereich ohne InputBox auszuwählen:

    Set Bereich = Sheets("Admin").Range("A1:B10")

Praktische Beispiele

  1. Einfaches Beispiel zur Ausgabe:

    Sub BereichAusgeben()
   Dim Bereich As Range
   Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
   Sheets("Admin").Range("I6") = Bereich.Address
End Sub

  2. Erweiterte Ausgabe mit Blattnamen:

    Sub BereichMitBlatt()
   Dim Bereich As Range
   Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
   Sheets("Admin").Range("I6") = Bereich.Parent.Name & "!" & Bereich.Address
End Sub

Tipps für Profis

  • Verwende die InputBox, um dynamische Berichte zu erstellen: Du kannst den Bereich, den der Benutzer wählt, verwenden, um Daten dynamisch zu verarbeiten und Berichte zu generieren.

  • Fehlerbehandlung implementieren: Füge Fehlerbehandlung in Deinen Code ein, um unerwartete Eingaben zu handhaben. Zum Beispiel:

    On Error Resume Next
Set Bereich = Application.InputBox(prompt:="Bereich eingeben oder mit Maus auswählen", Type:=8)
If Bereich Is Nothing Then
  MsgBox "Keine Eingabe getroffen."
  Exit Sub
End If
On Error GoTo 0

FAQ: Häufige Fragen

1. Was ist der Unterschied zwischen InputBox und Application.InputBox? Die InputBox ist eine einfache Eingabemethode für Text, während Application.InputBox vielseitiger ist und verschiedene Typen wie Bereiche oder Zahlen akzeptiert.

2. Wie kann ich die InputBox anpassen? Du kannst das Aussehen der InputBox nicht direkt anpassen, aber Du kannst den Text und die Eingabetypen über die Parameter der Application.InputBox steuern.

3. Funktioniert das Beispiel in allen Excel-Versionen? Ja, die vorgestellten Beispiele funktionieren in Excel VBA ab Version 2000 und höher.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige