Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
872to876
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
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Macro: Suchen mit in einer UserForm

Macro: Suchen mit in einer UserForm
24.05.2007 10:59:00
Raphael
Hallo
Ich habe eine Frage!
mein Macro findet zwar die gewünschte Zelle (zumindest Markiert er Sie) gibt mir aber trotzdem die Fehlermeldung.
Was habe ich da falsch gemacht? kann mir jemand dabei Helfen?
Danke
MFG
rapahel

Private Sub CommandButton3_Click()
Set frm2 = UserForm1
With frm2
Sheets("Eingabe").Select
Range("A:A").Select
On Error GoTo fehler
Selection.Find(What:=.TextBox4.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
.TextBox3.Value = ActiveCell.Offset(0, 2).Value
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
fehler:
MsgBox "Kein Fragebogen mit der Nummer : " & _
.TextBox4.Value & " gefunden"
End With
End Sub


5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Macro: Suchen mit in einer UserForm
24.05.2007 11:02:00
AndrRo
Hallo Raphael,
setze vor Fehler: ein Exit Sub
Also
Exit Sub
Fehler:
Sonst wir auch bei keinen Fehler die Fehlermeldung abgearbeitet.
gruss
Andreas

AW: Macro: Suchen mit in einer UserForm
24.05.2007 11:13:31
Raphael
Hallo Andreas
Danke! so gehts. ich habe da aber gleich noch ne Frage, wie kann ich CheckBoxen finden? mit OptionButton funktioniert es! was mach ich da Falsch?
Danke

Private Sub CommandButton3_Click()
Set frm2 = UserForm1
With frm2
Sheets("Eingabe").Select
Range("A:A").Select
On Error GoTo fehler
Selection.Find(What:=.TextBox4.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
.TextBox3.Value = ActiveCell.Offset(0, 2).Value
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
If ActiveCell.Offset(0, 4).Value = "TRUE" _
Then .CheckBox1.Value = True _
Else .CheckBox1.Value = False
Exit Sub
fehler:
MsgBox "Kein Fragebogen mit der Nummer : " & _
.TextBox4.Value & " gefunden"
End With
End Sub


Anzeige
AW: Macro: Suchen mit in einer UserForm
24.05.2007 11:16:00
Dan
Hi Raphael,
exit sub faehlt, und falls nichts gefunden wird, gibt Find Nothing zurueck, und Nothing kann man nicht selectieren ...

Private Sub CommandButton3_Click()
dim findResult
Set frm2 = UserForm1
With frm2
Sheets("Eingabe").Select
Range("A:A").Select
On Error GoTo fehler
set findResult = Selection.Find(What:=.TextBox4.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
if (findResult is nothing)then
msgbox "Not found ..."
exit sub
end if
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
.TextBox3.Value = ActiveCell.Offset(0, 2).Value
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
.TextBox2.Value = ActiveCell.Offset(0, 1).Value
exit sub
fehler:
MsgBox "Kein Fragebogen mit der Nummer : " & _
.TextBox4.Value & " gefunden"
End With
End Sub


Anzeige
AW: Macro: Suchen mit in einer UserForm
24.05.2007 11:20:08
Dan
...ja und so wie Du es hast, sollte man noch else Zweig hinzufuegen:
if (findResult is nothing)then
msgbox "Not found ..."
exit sub
else
findResult.activate
end if
Gruss Dan, cz.

AW: Macro: Suchen mit in einer UserForm
24.05.2007 11:25:00
Luschi
Hallo Raphael,
beim Suchen in Tabellen sollte man wie folgt vorgehen:
- Anlegen von 2 Objekt-Variablen vom Typ Range (rg1 ist der Suchbereich, rg2 die Ergebnisvariable)
- Find-Befehl ohne .Activate ausführen
- Ergebnis der Suche in eine Objektvariable von Typ Range schreiben (rg2)
- wurde keine Zelle gefunden, dann ist diese Objektvariable (rg2) leer (Nothing)
- zum Schluß alle Objektvariablen aif Nothing stellen
- damit erspart man sich das On Error und hat immer definierte Zustande
- Select/Activate-Befehle sollte man vermeiden
- und so sieht's in der Praxis aus:; 

Private Sub CommandButton3_Click()
Dim rg1 As Range, rg2 As Range
Set frm2 = UserForm1
Set rg1 = Worksheets("Eingabe").Range("A:A")
Set rg2 = rg1.Find(What:=.TextBox4.Value, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not (rg2 Is Nothing) Then
''1 Zelle mit Suchwert wurde gefunden
With frm2
.TextBox1.Value = rg2.Offset(0, 1).Value
.TextBox2.Value = rg2.Offset(0, 2).Value
.TextBox3.Value = rg2.Offset(0, 3).Value
End With
Else
MsgBox "Kein Fragebogen mit der Nummer : " & _
frm2.TextBox4.Value & " gefunden"
End If
Set rg1 = Nothing
Set rg2 = Nothing
Set frm2 = Nothing
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige

301 Forumthreads zu ähnlichen Themen

Daten aus vielen xls-Datein auslesen
Daniel

Hallo Profis,
ich suche einen VBA-Befehl für folgendes:
Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
Geht dies?
Vielen Dank vorab.
Daniel
...
18.08.2008 15:07:01
Thread-ID: 1002621
2 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Datensätze aus Blatt auslesen
bully

Hallo Leute,
ich möchte mit VBA aus dem Blatt2 ganze Datenzeilen auslesen, wenn diese in der Spalte3 den Wert enthalten, den ich in Blatt3 in Zelle F6 vorgebe. Die Datenzeilen sollen dann in Blatt3 ab Zeile14 eingefügt werden.
Nach etlichen Selbstversuchen gebe ich jetzt auf.
Gruss...
02.09.2008 15:55:27
Thread-ID: 1006842
6 Beiträge
Anzeige
Werte aus Matrix auslesen j. mit richtiger Bsp.
trebor-robert

Hallo,
wie kann ich aus einer Matrix, die in einer separaten Arbeitsmappe (im Beispiel der Bereich Arbeitsmappe "B") liegt, den entsprechenden EUR Betrag auslesen, wenn in der Spalte "C" untereinander in den einzelnen Zeilen die Bemessungsgrösse 1 steht (in diesem Fall qm) und in den Spalt...
05.09.2008 13:33:00
Thread-ID: 1007667
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Werte aus anderem Blatt für ComboBox auslesen
mtremer

Hallo Excel-Freunde,
ich glaub ich werde verrückt.
Meine ComboBox füllt sich nicht mehr. Ich versuche den Code so zu ändern, dass die Quelle für die ComboBox wo anders stehen kann. Im folgenden Code müssen die Werte in der Spalte A der Tabelle1 stehen.
Private Sub Worksheet_Change...
17.09.2008 13:17:34
Thread-ID: 1010349
11 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige

Links zu Excel-Dialogen

OptionButton TextBox

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
1
8
2
5
3
4
7
10
2
4
2
4
4
3
6
1
3
3
6
6
1
4
2
2
4