Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA MsgBox Zeile suchen

VBA MsgBox Zeile suchen
14.09.2018 11:29:37
Marquardt
Hallo,
ich möchte nach einer Abfrage (MsgBox) in Spalte A eine Zeile suchen und dann einen bestimmten Wert (auch über Abfrage MsgBox) in der gleichen Zeile aber in Spalte B eintragen.
Ist das möglich?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA MsgBox Zeile suchen
14.09.2018 12:13:30
Gerd
Moin! 
Sub Abfragen()
Dim A, B, X
A = InputBox("Suche", "Zeile ermitteln")
B = InputBox("Engabe", "Wert eintragen")
If StrPtr(A)  0 And StrPtr(B)  0 Then
X = Application.Match(A, Columns(1), 0)
If IsNumeric(X) Then
Cells(X, 2) = B
Else
MsgBox "Suche war erfolglos", vbCritical, "Kein Treffer!"
End If
End If
End Sub

Gruß Gerd
AW: VBA MsgBox Zeile suchen
14.09.2018 13:00:01
Marquardt
Hallo Gerd,
vielen Dank für die schnelle Antwort.
Leider wird die eingegebene Zahl (in Spalte A)nicht gefunden.
Gruß Detlef
AW: VBA MsgBox Zeile suchen
14.09.2018 15:31:58
Gerd
Hallo Detlef,
probiers mal so. Klappt dies auch nicht, müsstest du zu deiner Konstellation "nachliefern". 
Sub Abfragen2()
Dim A, B, X
A = InputBox("Suche", "Zeile ermitteln")
B = InputBox("Engabe", "Wert eintragen")
If StrPtr(A)  0 And StrPtr(B)  0 Then
X = Application.Match(CVar(A), Columns(1), 0)
If IsNumeric(X) Then
Cells(X, 2) = B
Else
MsgBox "Suche war erfolglos", vbCritical, "Kein Treffer!"
End If
End If
End Sub
Gruß Gerd
Anzeige
Suche A - Eingabe B
14.09.2018 15:29:02
EtoPHG
Hallo,
Versuch mal: 
Option Explicit
Sub SucheUndEingabe()
Dim suchWert As String
Dim eingabeWert As String
Dim fndCell As Range
suchWert = InputBox("Geben Sie den Suchwert für die Spalte A ein:", _
"Suchwert Eingabe")
If suchWert = "" Then Exit Sub
Set fndCell = ActiveSheet.Columns(1).Find(what:=suchWert)
If fndCell Is Nothing Then
MsgBox suchWert & " wurde in Spalte A nicht gefunden!", vbCritical, "Suche erfolglos"
Else
eingabeWert = InputBox(suchWert & " in Zelle " & fndCell.Address(0, 0) & _
"gefunden." & vbCrLf & "Wert für Spalte B eingeben:", "Wert für  _
Spalte B")
fndCell.Offset(, 1) = eingabeWert
End If
End Sub
Gruess Hansueli
Anzeige
AW: Suche A - Eingabe B
14.09.2018 17:23:47
Marquardt
Hallo Gerd und Hansueli,
wirklich super.
Vielen Dank.
AW: Gerne, keine Ursache (owT)
15.09.2018 13:50:13
EtoPHG

AW: Suche A - Eingabe B
17.09.2018 09:30:14
Marquardt
Guten Morgen Hansueli,
ist es möglich den Eingabewert der Spalte aus eine Zelle zu beziehen?
Gruss Detlef

223 Forumthreads zu ähnlichen Themen

Zeilenumbruch in MsgBox?
Volker Croll
Hallo Daniel,eine der Moeglichkeiten ist"Sollen hier ein" & Chr(10) _
"Zeilenumbruch erfolgen ?"Gruss Volker
16.04.2002 11:06:35
Thread-ID: 113650
4 Beiträge
Anzeige
VBA - Zeilenumbruch in Zelle entfernen
Jörg

Hallo Forum,
bei der Übergabe von xlsx an csv wird bei einer mehrzeiligen (Alt+Enter) Zelle ein CR übergeben, der zwischen den Trennzeichen (;) steht und bei der Übergabe an das Walldorf-System einen neuen Datensatz erzwingt.
;;;;;;;;;
"Text2 Z1
Text2Z2";"Text3 Z1
Text3 Z...
20.04.2012 14:25:48
Thread-ID: 1260269
3 Beiträge
mit VBA einen Zeilenumbruch einfügen
WalterK

Hallo,
Per Schaltfläche möchte ich ein Makro starten, das in jeder beschriebenen Zelle am Ende des Zellinhaltes zusätzlich noch einen Zeilenumbruch einfügt, außer es ist am Ende des Zellinhaltes bereits einer vorhanden.
Es soll im Bereich D5:D&bis zur letzten belegten Zelle funktio...
26.06.2012 10:42:03
Thread-ID: 1268821
3 Beiträge
Anzeige
Tabelle in VBA erweitern (neue Zeile am Ende)
Rainer

Hallo,
ich möchte eine Tabelle in mehreren Schritten so füllen, dass in jedem Schritt jeweils hinter der letzten bereits gefüllten Zeile weitergemacht wird. Solange keine Zeilen gelöscht werden, klappt das mit UsedRange ganz gut, aber sobald Zeilen gelöscht werden liefert UsedRange immer no...
16.01.2014 14:41:00
Thread-ID: 1345480
2 Beiträge
Code übernimmt Zeilenumbruch nicht beim kopieren
rieckmann

Hallo allerseits,
ich habe hier einen Code der hier im Forum kreiert wurde.
er funktioniert so weit ganz gut, nur dass er beim kopieren das Format Zeilenumbruch
nicht mit kopiert.
Funktion des Code ist alle markierten Zeilen in das Tabellenblatt "Auswahlliste" zu kopieren.
I...
11.02.2014 18:50:02
Thread-ID: 1349153
5 Beiträge
Mehrspaltig in Textbox und Enter für neue Zeile
Vulferin

Hallo Zusammen
Ich habe ene Textbox
Wenn ich einen Text reinkopieren kann ich diesen durch neue Zeilen Gliedern z.B
1. Lila Bogen
2. Roter Bogen.
3 Gelber Bogen
Wenn ich das aber alles per Handschreibe geht das nur so
1. Lila Bogen 2. Roter Bogen 3. Gelber Bogen
...
21.09.2014 07:10:31
Thread-ID: 1382708
2 Beiträge
VBA Dynamische Tabelle neue Zeile generieren
Spenski

Hallo
Ich habe eine Dynamische Tabelle "Tabelle1"
Ich möchte, das per Button die Tabelle um eine Zeile erweitert wird. geht sowas?
danke fürs lesen
christian
18.05.2015 20:31:20
Thread-ID: 1426692
3 Beiträge
VBA - Messagebox - Eingabeformular
Neo

Hallo zusammen,
ich bin gestern in die Tiefen der VBA (mittels Youtube u. Google) erstmals eingestiegen, um die Produktionsdatenerfassung über ein Eingabeformular zu standardisieren.
Soweit prima, nun möchte ich jedoch noch die Fehleranfälligkeit reduzieren.
(hierzu siehe mein Einga...
14.08.2015 13:59:04
Thread-ID: 1442348
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
2
2
2
4
1
4
1
2
2
19
2
4
7
7
4
4
1
1
3
22
1
2
1
2