Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Datensatz auslesen und Bemerkung anhängen
Gehe zu Seite Zurück  1, 2
zurück: modul benennen weiter: in die Zelle wird nur letzter Wert vom String geschrieben Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Gast



Verfasst am:
04. Mai 2007, 07:43
Rufname:

AW: Datensatz auslesen und Bemerkung anhängen - AW: Datensatz auslesen und Bemerkung anhängen

Nach oben
       Version: Office 2003

HE Ihr Seit so klasse!

Danke für die Ausfürliche Beschreibung.

@ wipe

Damit nur von A1 bis A300 gesucht wird habe ich aus der Synatx erkannt. /Trotzdem danke für den Tipp. Idea

Mit Euren Infos habe ich echt ein Quantensprung gemacht mit meiner Userform.


Danke hiermit nochmals an ALLE die mich in meiner Frage/ Problem unterstützt haben!!

RIESEN LOB

MFG gollgetter
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Mai 2007, 07:57
Rufname:


AW: Datensatz auslesen und Bemerkung anhängen - AW: Datensatz auslesen und Bemerkung anhängen

Nach oben
       Version: Office 2003

Ups habe da wohl noch ein Fehler übersehen.

Uns Zwar gibt es folgende Fehlermeldung: "Laufzeitfehler 91 Objektvariable oder With-Blockvariable nicht festgelegt."

Code:
Private Sub CommandButton1_Click()

If UserForm2.TextBox1 = "" Then
MsgBox "Bitte die Störungsnummer eintragen!"
Exit Sub
End If

Dim sSuchwort As Long
Dim oZelle As Range
Dim Zeile As Integer 'gefundene zeile

sSuchwort = TextBox1 'name des eingabefeldes
Set oZelle = Range("A1:A1000").Find(sSuchwort)
oZelle.Select

Zeile = ActiveCell.Row

UserForm2.TextBox2 = Sheets("Datenbank").Cells(Zeile, 10)
UserForm2.TextBox3 = Sheets("Datenbank").Cells(Zeile, 11)
UserForm2.TextBox5 = Sheets("Datenbank").Cells(Zeile, 12)
UserForm2.TextBox4 = Sheets("Datenbank").Cells(Zeile, 13)
UserForm2.TextBox7 = Sheets("Datenbank").Cells(Zeile, 15)



End Sub


Der Fehler tritt bei oZelle.Select auf.

Vielleicht habt Ihr nochmal eine Idee.

MFG goolgetter
wipe
Hobbyanwender


Verfasst am:
04. Mai 2007, 11:25
Rufname: Willi
Wohnort: Salzburg

AW: Datensatz auslesen und Bemerkung anhängen - AW: Datensatz auslesen und Bemerkung anhängen

Nach oben
       Version: Office 2003

guten morgen,

kontrolliere mal die variable sSuchwort , ? ist diese leer.

sonst schreib mal statt
Code:
sSuchwort = TextBox1

dann
Code:
sSuchwort = userform2.TextBox1


oder hast du einen suchbegriff eingegeben, der nicht vorhanden ist.
( eine kontrolle, ob vorhanden, sollte sowieso eingebaut werden )

mehr kann ich mir derzeit nicht vorstellen, muß das sonst nachbauen.

gruß wipe
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Mai 2007, 11:47
Rufname:

AW: Datensatz auslesen und Bemerkung anhängen - AW: Datensatz auslesen und Bemerkung anhängen

Nach oben
       Version: Office 2003

Das Problem ist irgendwie ganz komisch.

Wenn ich längere Zeit das Projekt offen habe und führe den Code aus, dann ließt er mir die Zeilen aus, ohne Fehlermeldung.
Gehe ich dann auf den Button speichern, schließt er mir die Userform (ist ja so gewollt, und speichert er).
Öffne ich nun wieder diese Mappe und will anschließend wieder Datensätze auslesen kommt die Fehlermeldung. komisch, komisch Confused

Eine Kontrolle ob es vorhanden ist wäre auch nicht schlecht.

Vielleicht so:

Code:


Private Sub CommandButton1_Click()

If UserForm2.TextBox1 = "" Then
MsgBox "Bitte die Störungsnummer eintragen!"
Exit Sub
End If



Dim sSuchwort As Long
Dim oZelle As Range
Dim Zeile As Integer 'gefundene zeile

sSuchwort = TextBox1 'name des eingabefeldes
Set oZelle = Range("A1:A1000").Find(sSuchwort)

oZelle.Select
Zeile = ActiveCell.Row

If Sheets("Datenbank").Cells(Zeile, 10) = "" Then

MsgBox "Dieser Datensatz existiert noch nicht!"
Exit Sub
End If

UserForm2.TextBox2 = Sheets("Datenbank").Cells(Zeile, 10)
UserForm2.TextBox3 = Sheets("Datenbank").Cells(Zeile, 11)
UserForm2.TextBox5 = Sheets("Datenbank").Cells(Zeile, 12)
UserForm2.TextBox4 = Sheets("Datenbank").Cells(Zeile, 13)
UserForm2.TextBox7 = Sheets("Datenbank").Cells(Zeile, 15)



End Sub


Wenn du so viel Spaß daran hast würde ich das gesamte Projekt auch gezippt, hier rein stellen.

MFG

goolgetter
wipe
Hobbyanwender


Verfasst am:
04. Mai 2007, 12:17
Rufname: Willi
Wohnort: Salzburg

AW: Datensatz auslesen und Bemerkung anhängen - AW: Datensatz auslesen und Bemerkung anhängen

Nach oben
       Version: Office 2003

hallo goolgetter,
wer sagt denn, daß ich so viel spaß habe?

aber scherz beiseite.

dieses hide entlädt das form nicht, schau mal in die hilfe.

es gibt auch noch den befehl unload.

probier mal so: ( greife jetzt den tipp von hindy auf )

Code:
Private Sub CommandButton1_Click()

If UserForm2.TextBox1 = "" Then
MsgBox "Bitte die Störungsnummer eintragen!"
Exit Sub
End If

Dim Zeile As Integer 'gefundene zeile

'bestimmen der zeile + 2 dazu
Zeile = textbox1.value + 2

'vergleich ob begriff aus spalte 1 und textbox gleich
If Sheets("Datenbank").Cells(Zeile, 1).value = textbox1.value then
MsgBox "Dieser Datensatz existiert noch nicht!"
exit sub
else

UserForm2.TextBox2 = Sheets("Datenbank").Cells(Zeile, 10)
UserForm2.TextBox3 = Sheets("Datenbank").Cells(Zeile, 11)
UserForm2.TextBox5 = Sheets("Datenbank").Cells(Zeile, 12)
UserForm2.TextBox4 = Sheets("Datenbank").Cells(Zeile, 13)
UserForm2.TextBox7 = Sheets("Datenbank").Cells(Zeile, 15)
End If

End Sub


bin dann heute nicht mehr erreichbar, mußt dich sonst bis morgen früh gedulden.

gruß wipe
goolgetter
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Mai 2007, 12:42
Rufname:


AW: Datensatz auslesen und Bemerkung anhängen - AW: Datensatz auslesen und Bemerkung anhängen

Nach oben
       Version: Office 2003

Danke wipe.

scheint jetzt zu klappen mit deiner neuen Version.

Danke.

Wünsche dir dann ein schönes Wochenende.


Gruß

goolgetter
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite Zurück  1, 2
Diese Seite Freunden empfehlen

Seite 2 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Excel soll Daten auslesen und in Tabelle eintragen 18 holtman 2334 07. März 2007, 15:15
holtman Excel soll Daten auslesen und in Tabelle eintragen
Keine neuen Beiträge Excel Formeln: Tabellenblattname beliebiger Tabellen auslesen 4 Angelus 6679 05. März 2007, 14:02
Angelus Tabellenblattname beliebiger Tabellen auslesen
Keine neuen Beiträge Excel Formeln: Am letzten Arbeitstag des Monats eine Zelle auslesen 6 godzilla0012 986 13. Nov 2006, 22:52
Günni Am letzten Arbeitstag des Monats eine Zelle auslesen
Keine neuen Beiträge Excel Formeln: Neue Daten automatisiert an die letzte Zeile anhängen 2 Florian2006 2628 13. Okt 2006, 10:21
Sagi Neue Daten automatisiert an die letzte Zeile anhängen
Keine neuen Beiträge Excel Formeln: Wert auslesen + 1 addieren und in Zelle schreiben 3 DerEchteThomas 16438 25. Sep 2006, 11:51
DerEchteThomas Wert auslesen + 1 addieren und in Zelle schreiben
Keine neuen Beiträge Excel Formeln: Namen des Tabellenblattes auslesen? 3 Sobo 1612 29. Aug 2006, 15:38
Gast Namen des Tabellenblattes auslesen?
Keine neuen Beiträge Excel Formeln: Anzahl2 soll unendlich viele Zeilen auslesen 4 DeeKay 3275 24. Aug 2006, 12:57
Cabation Anzahl2 soll unendlich viele Zeilen auslesen
Keine neuen Beiträge Excel Formeln: Komma getrennte Werte aus einer Zelle auslesen 4 hammersack 7647 01. Jun 2006, 10:11
hammersack Komma getrennte Werte aus einer Zelle auslesen
Keine neuen Beiträge Excel Formeln: Monat auslesen / Quartalsauswertung 2 BerndMueller 2633 10. Apr 2006, 07:11
< Peter > Monat auslesen / Quartalsauswertung
Keine neuen Beiträge Excel Formeln: Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren 2 JensK 1222 22. März 2006, 22:52
JensK Zeilen in Tabelle nach mehreren Kriterien auslesen/markieren
Keine neuen Beiträge Excel Formeln: Zelle von links und rechts auslesen bis zum Leerzeichen 3 Sascha David 10506 17. Jan 2006, 14:31
Gast Zelle von links und rechts auslesen bis zum Leerzeichen
Keine neuen Beiträge Excel Formeln: Tabellenzeile indizieren und auslesen 4 Zander-Carve 2128 28. Nov 2005, 11:07
Zander-Carve Tabellenzeile indizieren und auslesen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage