Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfung ob Wert vorhanden ist
 19.05.2012 21:55:59 Sino
NotSolved
20.05.2012 01:32:26 Till
*****
Solved
20.05.2012 10:20:03 Sino
NotSolved

Ansicht des Beitrags:
Von:
Sino		 Datum:
19.05.2012 21:55:59		 Views:
5826		 Rating:
     
Antwort:
  Ja
Thema:
Prüfung ob Wert vorhanden ist

Hallo, 

habe eine UserForm mit mehreren Textboxen und Labels. Der Benutzer kann über dieses UF Daten eingeben und in eine Excel-Liste übertragen. 

Problem: Das Makro soll aber vorher überprüfen ob der Datensatz (bzw. ein Wert) in der Liste in Spalte 1 schon vorhanden ist. Ich probiere es die ganze Zeit mit der For-Schleife aber nach dem Ausführen des Makros springt der Debugger immer auf den IF-Block. 

Hier das Makro: 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim wkb As Workbook
Dim zeile, zeile2, y As Long
Dim fin As String
 
fin = TextBox50.Value
name = TextBox51.Value
 
 
Set wkb = Workbooks.Open("C:\Users\Desktop\....xls")
wkb.Activate
Sheets("Neuwagen").Activate
 
zeile2 = Sheets("Neuwagen").Cells(Rows.Count, 1).End(xlUp).Row
 
For y = 2 To zeile2
     
If (fin <> Sheets("Neuwagen").Cells(y, 1).Value) Then
 
 
zeile = Sheets("Neuwagen").Cells(Rows.Count, 1).End(xlUp).Row + 1
         
         
         Sheets("Neuwagen").Cells(zeile, 1).Value = Terminverwaltung.TextBox50.Value
         Sheets("Neuwagen").Cells(zeile, 3).Value = Terminverwaltung.Label519.Caption
         Sheets("Neuwagen").Cells(zeile, 4).Value = Terminverwaltung.Label521.Caption
         Sheets("Neuwagen").Cells(zeile, 10).Value = Terminverwaltung.Label539.Caption
         Sheets("Neuwagen").Cells(zeile, 5).Value = Terminverwaltung.TextBox51.Value
         Sheets("Neuwagen").Cells(zeile, 27).Value = Terminverwaltung.TextBox52.Value
         Sheets("Neuwagen").Cells(zeile, 7).Value = Terminverwaltung.TextBox53.Value
         Sheets("Neuwagen").Cells(zeile, 9).Value = Terminverwaltung.TextBox54.Value
         Sheets("Neuwagen").Cells(zeile, 8).Value = Terminverwaltung.TextBox55.Value
   
wkb.Close savechanges:=True
 
 
MsgBox " Neuwagen für Herr/Frau " + name + " wurde angelegt!"
 
Else
 
MsgBox "Fin" + fin + "ist bereits angelegt!"
 
 
End If
 
 Next y
 
End Sub
 
 
 
Gruß und Danke
Sino

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Prüfung ob Wert vorhanden ist
 19.05.2012 21:55:59 Sino
NotSolved
20.05.2012 01:32:26 Till
*****
Solved
20.05.2012 10:20:03 Sino
NotSolved