Inputbox nach Zelle schreiben

Forumthread: Inputbox nach Zelle schreiben

28.06.2005 17:48:04

helena

Guten Abend
mich plagt noch ein kleines problem


Sub Name_Insert()
Dim sTxt As String
sTxt = InputBox("Bitte Eingabe tätigen:")
If sTxt = "" Then Exit Sub
'MsgBox sTxt
sTxt = Value.Range("A1")
End Sub

möchte via Inputbox einen Wert in Zielzelle schreiben
Habe nicht viel in Recherche gefunden, in letzter Zeit ist Recherche auch sehr
undurchschaubar, Link, Link und noch ein Link und kein weg führt zurück.
DANKE
gruss helena

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Inputbox nach Zelle schreiben

28.06.2005 17:57:31

Andi
AW: Inputbox nach Zelle schreiben

28.06.2005 18:07:15

helena
ich habs's Danke (o.T.)

28.06.2005 18:10:29

helena

AW: Inputbox nach Zelle schreiben

28.06.2005 17:57:31

Andi

Hi,
is ja auch schon fast richtig; schreibe
Range("A1").Value = sTxt
statt
sTxt = Value.Range("A1")
und schon geht's...
Schönen Gruß,
Andi

AW: Inputbox nach Zelle schreiben

28.06.2005 18:07:15

helena

Hallo Andi
danke habs X-mal schon gesehen aber wenn manns braucht findet man es nicht
gibt es noch eine Möglichkeit die Eingabe abzubrechen ?
Danke
gruss helena

ich habs's Danke (o.T.)

28.06.2005 18:10:29

helena

Infobox / Tutorial

Werte mit Inputbox in Excel-Zellen schreiben

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject (DeineDateiName)" und wähle „Einfügen“ > „Modul“.

Füge den folgenden Code ein:

Sub Name_Insert()
    Dim sTxt As String
    sTxt = InputBox("Bitte Eingabe tätigen:")
    If sTxt = "" Then Exit Sub
    Range("A1").Value = sTxt ' Wert in Zelle A1 schreiben
End Sub

Schließe den VBA-Editor und kehre zu Excel zurück.
Führe das Makro aus: Gehe zu „Entwicklertools“ > „Makros“, wähle „Name_Insert“ und klicke auf „Ausführen“.
Gib einen Wert ein und klicke auf OK. Der Wert wird in Zelle A1 geschrieben.

Häufige Fehler und Lösungen

Fehler: Makro läuft nicht oder gibt eine Fehlermeldung zurück.
- Lösung: Stelle sicher, dass der VBA-Code korrekt eingegeben wurde, insbesondere die Zeile Range("A1").Value = sTxt.
Fehler: Der Wert wird nicht in der gewünschten Zelle geschrieben.
- Lösung: Ändere Range("A1") in die gewünschte Zelle, z.B. Range("B1"), um den Wert in Zelle B1 zu schreiben.
Frage: Wie kann ich die Eingabe abbrechen?
- Antwort: Wenn du die Eingabe abbrichst (z.B. durch Klicken auf „Abbrechen“), wird die If-Anweisung If sTxt = "" Then Exit Sub ausgelöst und das Makro beendet sich ohne Änderungen.

Alternative Methoden

Eine andere Möglichkeit, Werte in Excel-Zellen zu schreiben, ist die Verwendung von Formularen oder UserForms in VBA. Diese bieten eine benutzerfreundlichere Oberfläche für Eingaben und ermöglichen komplexere Eingaben.

Hier ein einfaches Beispiel für ein UserForm:

Erstelle ein neues UserForm im VBA-Editor.
Füge ein Textfeld und einen Button hinzu.

Verwende den folgenden Code im Button:

Private Sub CommandButton1_Click()
    Range("A1").Value = TextBox1.Text
    Unload Me
End Sub

Praktische Beispiele

Beispiel 1: Wenn du mehrere Werte in aufeinanderfolgende Zellen schreiben möchtest, kannst du Range("A1").Value = sTxt durch Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = sTxt ersetzen, um automatisch in die nächste leere Zelle in Spalte A zu schreiben.
Beispiel 2: Verwende eine MsgBox, um den Benutzer zu benachrichtigen, dass der Wert erfolgreich in die Zelle geschrieben wurde:
```
MsgBox "Wert wurde in Zelle A1 geschrieben."
```

Tipps für Profis

Verwende Datenvalidierung in deinen Zellen, um sicherzustellen, dass nur bestimmte Werte eingegeben werden.
Nutze Fehlerbehandlungsroutinen in deinem VBA-Code, um unerwartete Fehler zu vermeiden. Füge z.B. On Error Resume Next ein, um Fehler zu ignorieren.
Experimentiere mit Formeln in Excel, die auf den Werten basieren, die du mit VBA in die Zellen schreibst.

FAQ: Häufige Fragen

1. Wie kann ich das InputBox-Fenster anpassen?
Du kannst die Eingabemeldung in der InputBox anpassen, indem du den Text in der Zeile sTxt = InputBox("Bitte Eingabe tätigen:") änderst.

2. Ist es möglich, mehrere Eingaben zu machen?
Ja, du kannst eine Schleife verwenden, um mehrere Eingaben zu sammeln und sie in verschiedene Zellen zu schreiben.

3. Funktioniert dieser Code in jeder Excel-Version?
Ja, der Code sollte in den meisten aktuellen Excel-Versionen funktionieren, die VBA unterstützen, wie Excel 2010 und später.

Beliebteste Forumthreads (12 Monate)

Forumthread: Inputbox nach Zelle schreiben

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Werte mit Inputbox in Excel-Zellen schreiben

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread