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

Eingabe in Zellen erzwingen

Forumthread: Eingabe in Zellen erzwingen

Eingabe in Zellen erzwingen
02.08.2017 10:42:19
Manuela
Hallo Zusammen,
zu diesem Thema gibt es zwar schon viele Beiträge, aber ich konnte keinen finden, der mein Problem löst, daher hier nochmal.
Ich möchte per VBA in gewissen Spalten einer Zeile Eingaben erzwingen, sobald in Spalte A dieser Zeile etwas eingetragen wurde.
In der Beispieldatei ist bereit ein Coder hinterlegt, den ich gefunden habe und versucht habe anzupassen, aber leider funktioniert es nicht. Nicht wundern, ich habe hier ein bisschen rumprobiert, ohne wirklich zu verstehen warum es eigentlich nicht funktioniert.
Es handelt sich um das Tabellenblatt Vorlage.
https://www.herber.de/bbs/user/115168.xlsm
Außerdem ist im Tabellenblatt Vorlage noch ein weiterer Code zum automatischen ein- und ausblenden hinterlegt, dieser funktioniert jedoch bei mir weiterhin einwandfrei.
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe in Zellen erzwingen
03.08.2017 02:47:26
Piet
Hallo Manuela,
am einfachsten so wie unten: - 1 neues Modulblayy anlegen dort den Code Mit MsgBox kopieren
Den Teil in Target aenderni dann wird bei Eingabe in Spalte A der Code in Modul1 aufgerufen.
Wichtig ist die Übergabe der aktiven Zeile durch die Public Variabe.
Im Modul1 kannst du z.B. über Wert = InputBoX Eingaben erzwingen und in die jeweilige Spalte eintragen.
Die Anzahl der InputBoxen spielt keine Rolle.
mfg Piet

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns = 1 And Target.Row > 6 Then
TRow = Target.Row
Call Eingabe_inSpalten
Exit Sub
End If
If Target.Address(0, 0) = "F4" Then
'Modul1:
Public TRow As Integer
Sub Eingabe_inSpalten()
MsgBox "Hallo " & TRow
Wert = Inputbox("Bitte Wert für Spalte xx eingeben")
if Wert  "" THEN Cells(TRow, "xx") = Wert
End Sub

Anzeige
AW: Eingabe in Zellen erzwingen
07.08.2017 14:56:48
Manuela
Hallo Piet,
vielen Dank für deine Antwort, aber ich fürchte ich verstehe das nicht ganz oder ich mache es falsch.
Ich habe den Code kopiert und die Zeile
If Target.Columns
angepasst.
Dann habe ich ein Modul angelegt und den Rest eingefügt ab Modul1.
Jetzt funktioniert aber gar nichts mehr und ich bekomme auch keine Fehlermeldung zum Code bzw. den Debugger.
Muss ich noch irgendwas anderes anpassen?
Ich hatte das so verstanden, dass ich ab
If Target.Address(0, 0)
meinen vorherigen Code zum ein- und ausblenden direkt anhänn kann, aber das funktioniert auch nicht mehr. Oder muss ich die beiden trennen?
Anzeige
AW: Eingabe in Zellen erzwingen
07.08.2017 18:37:10
Piet
Hallo Manuela,
ich habe einen dummen Denkfehler in meinem Makro macht aber nichts, den bereinigen wir!
Das Makkro in Modul1 muss geaendert werden, s.unten, denn wenn du mal schaust hat der Code funktioniert.
Er hat den Wert der Eingabe aber sicher in der Spalte "xx" abgelegt, ausserhalb deines Sichtbereichs!!
Das Problem, bei der Eingabe muss ja noch festgelegt werden in welche Spalte die Eingabe erfolgen soll?
Ich brauche den Buchstaben der Spalte! Der kann am Anfang stehen, durch Komma getrennt, oder am Ende.
Entsprechend habe ich zwei Codes geschrieben, je nachdem wie es dir besser gefaellt. Deine Entscheidung.
Wenn ein Komma im Text oder Zahl vorkommt ist auch kein Problem. Das 1. Komma definiert die Spalte!
Im Test der InputBox kannst du noch selbst angeben wo die Spalte angegeben werden muss! - (First/Last)
Das der Code nicht weiterlaeuft liegt vielleicht an Exit Sub in Target hinter dem Call Befehl.
Nimm den mal raus, und schau was dann passiert. Wir probieren solange bis es funktioniert!
mfg Piet
Sub Eingabe_inSpalten()
Dim Spalte As String, Wert As Variant
Wert = InputBox("Bitte Wert für Spalte xx eingeben" & Chr(10) & "Bitte Spalte als Buchstabe  _
angeben")
If Wert = "" Then Exit Sub
'Code für Spalte wird zuletzt angeben, mit Komma !!
Spalte = Trim(Right(Wert, Len(Wert) - InStrRev(Wert, ",")))
Wert = Trim(Left(Wert, InStrRev(Wert, ",") - 1))
Cells(TRow, Spalte) = Wert
'Ende - oder diesen Code
'Code für Spalte wird zuerst angeben, mit Komma !!
Spalte = Trim(Left(Wert, InStr(Wert, ",") - 1))
Wert = Trim(Right(Wert, Len(Wert) - InStr(Wert, ",")))
Cells(TRow, Spalte) = Wert
End Sub

Anzeige
AW: Eingabe in Zellen erzwingen
07.08.2017 18:47:21
Piet
Hallo Manuela,
mir ist noch was eingefallen - wenn du mehrere Eingaben hast, sagen wir drei, vier, fünf Spalten waere es sinnvoller das ganze über eine kleine UserForm mit je einem Textfeld für Spalte und Eingabe zu machen. Dann kann man mehrere Spalten in einem Rutsch verbuchen.
Sollte dir das lieber sein kann man auch sowas entwickeln.
mfg Piet
Anzeige
AW: Eingabe in Zellen erzwingen
07.08.2017 18:50:06
Piet
Denk bitte daran das der Thread bald zu Ende ist und vom Admin PC in dieser Liste gelöscht wird!
Zum ansehen steht er im Forum Archiv zur Verfügung, aber ich kann dir dann -nicht mehr antworten-!!
AW: Eingabe in Zellen erzwingen
08.08.2017 04:36:24
Piet
Hallo Manuela
jetzt kann ich dir noch eine Beispieldatei für mehrfach Eingabe über UserForm anbieten.
Wenn der Thread zu ist findest du die Datei im Archiv. Würde mich freuen wenn es dir gefaellt.
Für die Buchung gibt es zwei Makros, eine mit Fehlerprüfung ob bereits eine Eingabe vorhanden ist,
das andere als einfache Version, ohne Fehlerprüfung. Du kannst frei waehlen welche dir zusagt.
mfg Piet
https://www.herber.de/bbs/user/115323.xlsm
Anzeige
AW: Eingabe in Zellen erzwingen
09.08.2017 13:45:03
Manuela
Hallo Piet,
und erstmal vielen Dank für deine Geduld mit mir. :)
Ich fürchte ich konnte keinen deiner Vorschläge umsetzen.
Ich habe jetzt noch einmal die akutelle Datei hochgeladen, vielleicht kannst du dir die mal anschauen?
https://www.herber.de/bbs/user/115358.xlsm
Hier sind sowohl für das Tabellenblatt Vorlage als auch für die Übersicht Codes hinterlegt.
Auch die Codes im Tabellenblatt Übersicht scheinen so zusammen nicht zu funktionieren, aber das sollte ja eigentlich keine Auswirkungen auf den Code für das Voralge-Tabellenblatt haben oder?
LG Manuela
Anzeige
AW: Eingabe in Zellen erzwingen
09.08.2017 14:38:52
Manuela
Hallo Piet,
und erstmal vielen Dank für deine Geduld mit mir. :)
Ich fürchte ich konnte keinen deiner Vorschläge umsetzen.
Ich habe jetzt noch einmal die akutelle Datei hochgeladen, vielleicht kannst du dir die mal anschauen?
https://www.herber.de/bbs/user/115358.xlsm
Hier sind sowohl für das Tabellenblatt Vorlage als auch für die Übersicht Codes hinterlegt.
Auch die Codes im Tabellenblatt Übersicht scheinen so zusammen nicht zu funktionieren, aber das sollte ja eigentlich keine Auswirkungen auf den Code für das Voralge-Tabellenblatt haben oder?
LG Manuela
Anzeige
;

Forumthreads zu verwandten Themen

erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
UnterschiedlicheFormatierung innerhalb einer Zelle
Heinzelmännchen

Hallo zusammen,
ich möchte einen Wert innerhalb einer Zelle (Formel) mit einer Formatierung versehen (Fett gedruckt). Funktioniert das?
Viele Grüße
Steffi
02.02.2009 11:50:00
Thread-ID: 1046136
6 Beiträge
Text innerhalb einer Zelle faerben
Timmy

Liebe Excler,
gibt es eine Moeglichkeit (evtl. in der bed. Formatierung) einen Text innerhalb einer Zelle zu faerben?
Z.B.
A1 Excel 2003 ist super
A2 Excel 2003 ist genial
Excel soll mir nun jeweils "Excel 2003" farblich machen, den Zusatz jedoch nicht!
Geht das, am best...
20.03.2009 14:28:40
Thread-ID: 1062211
19 Beiträge
Zeilenumbruch in Zelle mit Verkettungen
Rolf

Hallo!
ich möchte in eine Zelle folgendes schreiben: ="Text" & A1
Dann sollte aber der Text in der 1. Zeile stehen, der Rest in der 2. Zeile.
Alt-Return klappt leider nicht.
Kann mir jemand sagen, wie ich das hinkriege (ohne die Zelle entsprechend zu verkleinern)?
Danke<...
02.06.2009 09:48:33
Thread-ID: 1078547
6 Beiträge
Problem mit Zeilenumbruch in verbundenen Zellen
Christian

Hallo zusammen!
nachdem auf meinen letzten Beitrag leider keine Antworten eingegangen sind, habe ich nochmal selbst versucht, das Problem einzugrenzen.
Es ist nicht nur auf das Dokument beschränkt, mit dem ich Probleme hatte.
Man kann das Problem nachstellen:
Zellen A1 bis D30 v...
03.07.2009 22:42:59
Thread-ID: 1086260
3 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Zeilenumbruch in einzelne Zellen
Larissa

Hallo,
wie bekomme ich es mit einem Makro oder einer Formel hin, dass Werte die in einer Zelle mit Zeilenumbrüchen eingetragen sind, untereinander in einzelne Zellen zu übertragen werden?
Dieses ist z.B. ein Eintrag in einer Zelle A1:
"Montag
Dienstag
Mittwoch"
und soll...
11.10.2009 11:23:20
Thread-ID: 1108862
4 Beiträge
aktive Zelle in Zeilenumbruchmodus versetzen
Karsten

Hallo...
ich möchte die aktive Zelle im Zeilenumbruchmodus angezeigen lassen. Bei Verlassen soll sie wieder zurückgesetzt wird.
Kann mir jemand dabei helfen?
Danke
Gruß
Karsten
09.11.2009 14:23:06
Thread-ID: 1115511
9 Beiträge
Zeilenumbruch und sverweis in Zelle
Rainer

Hallo,
ich habe eine Exceldatei erhalten, die ich aufbereiten soll.
In der A-Spalte befinden sich in einzelnen Zellen jeweils Daten, die durch ein /-Zeichen getrennt sind:
Die Daten sind in folgender Reihenfolge eingegeben: Artikelnummer/Lieferantennummer/Preis
Dabei sind teilwe...
24.03.2010 10:48:17
Thread-ID: 1148071
14 Beiträge
Curser springt nach Enter in eine bestimmte Zelle
KLE

Hallo,
...komisches Problem - brauche eine Idee, wo ich schauen - bzw. was ich ändern kann.
Habe in einem Arbeitsblatt ein Eingabeformular gebastelt (ca. 20 Felder).
Alles ist schreibgeschützt bis auf diese Eingabezellen.
Wenn jemand in eine Zelle was einträgt und nun Enter drüc...
27.11.2010 14:05:33
Thread-ID: 1189020
2 Beiträge
Anzeige
Text mit Zeilenumbrüchen in verbundener Zelle
JensF

Hallo Leute,
ich habe längere texte in verbundenen Zellen. Die Zelle erlaubt Zeilenumbrüche.
Wenn ich nun die optimale Zeilenhöhe einstellen will reduziert Excel die Höhe auf eine Zeile.
Das pasiert nur wegen der blöden verbunenden Zelle.
Gibt es einen Trick mit dem dieser Bug...
28.02.2011 13:39:04
Thread-ID: 1203330
8 Beiträge
2 zeilig innerhalb einer zelle
bernhard

ich möchte den inhalt aus 2 zellen (a1 und b1) in 1 zelle (c19) transportieren.
innerhalb c1 soll dann der text 2 zeilig untereinander stehen.
nachdem es sich um viele daten handelt, bringt der mir bekannte weg über 2x kopieren und einfügen und dazwischen alt+return (für zeilenumbruch) mi...
17.05.2002 14:23:02
Thread-ID: 121721
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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