Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn * dann MsgBox und Eingabeaufforderung

wenn * dann MsgBox und Eingabeaufforderung
12.10.2007 17:42:00
Wolfgang
Hallo*
in das Tabellenblatt "Ergebnis" wird im Bereich C4:C26 und E4:E26 Text hineinkopiert, der an bestimmten Stellen ein * enthalten kann. Wie kann ich erreichen, dass beim hineinkopieren eines Textbeitrages direkt überwacht wird, ob der Text ein * enthält und wenn ja, dass dann eine Auffordung erscheint (Eingabeaufforderung oder MsgBox.?), den Text zu ergänzen. In der Folge sollte dann jeweils das * durch den eingegebenen Text ersetzt werden. Kriege das über den Makrorekorder nicht hin. Kennt jemand eine Möglichkeit? - Danke schon jetzt für die Rückantworten.
Herzliche Grüße
Wolfgang

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: wenn * dann MsgBox und Eingabeaufforderung
12.10.2007 17:58:36
Worti
Hallo Wolfgang,
das geht zB mit dem Worksheet_Change-Ereignis der Tabelle Ergebnis:


Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Count = 1 Then
        If Target.Row >= 4 And Target.Row < 27 Then
           If Target.Column = 3 Or Target.Column = 5 Then
              If InStr(1, Target, "*") > 0 Then
                 Application.EnableEvents = False
                 Target.Value = InputBox("Bitte den Stern ersetzten durch Text!", , Target)
                 Application.EnableEvents = True
              End If
            End If
        End If
     End If
End Sub


Gruß Worti
Anzeige
AW: wenn * dann MsgBox und Eingabeaufforderung
12.10.2007 19:07:00
Wolfgang
Hallo Worti,
das klappt fast, VBA kopiert mir jetzt allerdings den gesamten Text in die Inputbox. Gibt es eine Möglichkeit, lediglich den Stern in die Inputbox zu kopieren und dann durch den eingegebenen Text an der jeweiligen Stelle in Textzeile zu ersetzen? - Danke schon jetzt wieder für Deine Rückmeldung und auch herzlichen Dank für Deine jetzige Meldung.
Gruß - Wolfgang

AW: wenn * dann MsgBox und Eingabeaufforderung
12.10.2007 19:36:00
Worti
Hallo Wolfgang,
meinst du so:


Private Sub Worksheet_Change(ByVal Target As Range)
     Dim strText As String
     If Target.Count = 1 Then
        If Target.Row >= 4 And Target.Row < 27 Then
           If Target.Column = 3 Or Target.Column = 5 Then
              If InStr(1, Target, "*") > 0 Then
                 Application.EnableEvents = False
                 strText = InputBox("Bitte den Stern ersetzten durch Text!", , "*")
                 Target.Value = Application.WorksheetFunction.Substitute(Target.Value, "*", strText)
                 Application.EnableEvents = True
              End If
            End If
        End If
     End If
End Sub


Gruß Worti
Anzeige
AW: wenn * dann MsgBox und Eingabeaufforderung
12.10.2007 19:57:00
Wolfgang
Hallo Worti,
erneut herzlichen Dank.- eigentlich ist es genauso, wie ich es mir vorgestellt hatte; Jetzt fällt mir dabei nur auf -sorry-, dass man den Text, den es zu ergänzen gilt, gar nicht sieht. - Kann der evtl. dort erscheinen, wo momentan der Text ("Bitte den Stern ersetzten durch Text!", , "*") erscheint? Danke nochmals.
Gruß - Wolfgang

AW: wenn * dann MsgBox und Eingabeaufforderung
12.10.2007 20:01:42
Worti
Hallo Wolfgang,
woher weiß ich denn, welcher Text zu nehmen ist? Und wenn es sich immer um den gleichen Text handelt, warum erst eine User-Eingabe und nicht sofort automatisch ersetzten?
Gruß Worti

Q
12.10.2007 20:18:58
Wolfgang
Hallo Worti,
stimmt, ich war davon ausgegangen, dass VBA sich jeweils meldet, wenn innerhalb des genannten Bereiches ein Text auftaucht der ein * enthält. Quasi so, wie in deiner ersten Version, als der Text in der Inputbox erschien. Wenn also z.B. der Text, der da noch in der Inputbox erscheint an anderer Stelle erscheint, damit er einfach noch vor Augen ist, um die passende Ergänzung in die Inputbox einzutragen - wäre das denkbar? Der Tausch Sternchen gegen Eingabetext funktioniert ja bereits super in der zweiten Version von Dir. Es ist, das hätte ich fast vergessen, nicht immer der gleiche Text. Danke schon jetzt wieder.
Gruß - Wolfgang

Anzeige
AW: Q
12.10.2007 20:38:00
Worti
Hallo Wofgang,
spontan mal zwei Möglichkeiten: den Text als Prompt oder als Titel der Inputbox anzeigen. Was gefällt dir besser?


Private Sub Worksheet_Change(ByVal Target As Range)
     Dim strText As String
     If Target.Count = 1 Then
        If Target.Row >= 4 And Target.Row < 27 Then
           If Target.Column = 3 Or Target.Column = 5 Then
              If InStr(1, Target, "*") > 0 Then
                 Application.EnableEvents = False
                 '1. Variante Anzeige des Textes als Titel der Inputbox
                 strText = InputBox("Bitte den Stern ersetzten durch Text!", Target.Value, "*")
                 'oder zweite Variante Anzeige des Textes als Prompt der Inputbox
                 'strText = InputBox(Target.Value, "Bitte den Stern ersetzten durch Text!", "*")
                 Target.Value = Application.WorksheetFunction.Substitute(Target.Value, "*", strText)
                 Application.EnableEvents = True
              End If
            End If
        End If
     End If
End Sub

Gruß Worti
Anzeige
AW: Q
12.10.2007 20:47:03
Wolfgang
Hallo Worti,
genau das ist es, beides ist gut - ich habe mich spontan für die zweite Version entschieden. Super! - recht herzlichen Dank nochmals für Deine Ausarbeitungen und vor allem auch Deine Geduld mit mir.
Ein schönes Wochenende und herzliche Grüße
Wolfgang

Dir auch ein schönes WE und bis demnächst oT
12.10.2007 20:49:15
Worti
Worti

300 Forumthreads zu ähnlichen Themen

Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
Wenn 1 dann Wert aus Überschrift
Kendra

Hallo,
ich habe folgendes Problem, zu dem mir einfach keine Lösung einfallen will:
Meine Matrix sieht in etwa so aus:
______Peter_Hans_Susi_Karl_Klaus
Auto___0____1____0___2___0
Haus___1____0____0___0___2
Urlaub__0____0____1___0___2
Hobby__2____0____0___1___0...
23.09.2008 14:03:57
Thread-ID: 1011726
7 Beiträge
Mehr als 7 Wenn-Dann-Verschachtelungen
Bernd

Hallo Leute,
ich habe eine WENN DANN Formel mit mehr als 7 Verschachtelungen. Hat jemand eine Idee wie ich diese Formel so umschreiben kann, dass ich Sie nutzen kann?
Hier ist sie:
=WENN(Monat($D$2)=1;SVERWEIS($D$2;'01'!$G$7:$R$43;2);WENN(Monat($D$2)=2;SVERWEIS($D$2;'02'!$G$7:$R$43...
13.10.2008 17:23:11
Thread-ID: 1016134
4 Beiträge
Wenn ComboBox Dann ListBox
sockel939

Hallo Excelfreunde,
habe hier ne Legerverwaltung dessen Code ich gerne um einen Punkt erweitern möchte.
Und zwar soll die TextBox " Lagerbestand" aus der UserForm die Gesamtmenge aus der Tabelle "Lagerstand" wiedergeben in abhängigkeit des Wertes der in der ComboBox "Marke"
eingegeb...
16.10.2008 15:36:46
Thread-ID: 1016894
3 Beiträge
Wenn-Dann
Jenny

Hallo,
also in meiner Tabelle habe ich mehrere Daten z.B. 01.12.1990. Excel soll mir nun alle Daten die vor dem 01.10.2005 waren als 01.10.2005 anzeigen...alle Daten die nach dem 01.10.2005 sind soll er mir auch genau anzeigen. Geht das?
Lieben Gruß
23.10.2008 10:31:00
Thread-ID: 1018545
7 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
15
5
4
2
6
3
2
6
2
9
6
1
10
4
14
2
2
7
4
3
2
10
2
4