Thema Datum  Von Nutzer Rating
Antwort
Rot Fehler bei IF-ELSE Anweisung
 11.01.2012 12:04:46 Sino
NotSolved
11.01.2012 12:42:17 Dekor
NotSolved
11.01.2012 13:07:50 Heiko
NotSolved
11.01.2012 13:24:14 Sino
NotSolved
11.01.2012 15:08:29 Till
NotSolved
11.01.2012 15:21:59 Sino
Solved
11.01.2012 16:15:01 Till
NotSolved
12.01.2012 09:15:00 Sino
Solved
12.01.2012 10:27:41 Sino
NotSolved

Ansicht des Beitrags:
Von:
Sino		 Datum:
11.01.2012 12:04:46		 Views:
2066		 Rating:
     
Antwort:
  Ja
Thema:
Fehler bei IF-ELSE Anweisung

 Hallo,

habe folgendes Makro (nicht vollständig):

 

?
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
.
.                         
   zeile = Cells(Rows.Count, 1).End(xlUp).Row
                            
                                 
                                For x = 2 To zeile
                                 
                                With Sheets("Neuwagen")
                                  fin1 = .Cells(x, 1).Value
                                  End With
                                   
                                If (fin = fin1) Then
 
                                TextBox13.Value = Cells(x, 12).Value         
'                                TextBox2.Value = Cells(x, 26).Value                 
          
 
                                Label87.Caption = Cells(x, 14).Text                    
                                Label42.Caption = Cells(x, 15).Value                     
                                  
                                Else
                                 
                                zeile1 = Cells(Rows.Count, 29).End(xlUp).Row
                                                               
                                For y = 2 To zeile1
                                 
                                With Sheets("Neuwagen")
                                 fin2 = .Cells(y, 30).Value
                                 End With
                                   
                                If (fin = fin2) Then
 
                                Label429.Caption = Sheets("Neuwagen").Cells(y, 32).Value                  
                                Label431.Caption = Sheets("Neuwagen").Cells(y, 33).Text                    
                                     
 
                                     End If
                                     Next x
                                      
                                     End If
                                     Next y

 

Bei Ausführung bekomme ich immer ein Fehler. Ich glaube meine Syntax bei End If und der Next Variable stimmt nicht. Kann mir jemand kurz feedback dazu geben :)

 

Danke

 

Gruß 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 Fehler bei IF-ELSE Anweisung
 11.01.2012 12:04:46 Sino
NotSolved
11.01.2012 12:42:17 Dekor
NotSolved
11.01.2012 13:07:50 Heiko
NotSolved
11.01.2012 13:24:14 Sino
NotSolved
11.01.2012 15:08:29 Till
NotSolved
11.01.2012 15:21:59 Sino
Solved
11.01.2012 16:15:01 Till
NotSolved
12.01.2012 09:15:00 Sino
Solved
12.01.2012 10:27:41 Sino
NotSolved