leere Zelle ermitteln

[karomue]

leere zelle wird nicht 

Code:

  a = ""
   For i = 1 To 16
     Windows("Ausgaben 2015.xls").Activate
     'vergl=ausgaben 2015.xls").Activate
       Cells(2, i).Select
       'vergl=
       vergl = Zuordng(i, 1)
       Windows("DatumAbfrageAusgabenMärz2015.xls").Activate
       For j = 1 To 500
           Cells(j, 1).Select
           
           If Cells(j, 1).Value = vergl Then
               Windows("Ausgaben 2015.xls").Activate
               For k = 1 To 300
                   Cells(k, 1).Select
                   If Cells(k, 1).Value = vergl Then
                       'Column(j + 1, 10).Select
                       Windows("DatumAbfrageAusgabenMärz2015.xls").Activate
                       Cells(k, 3).Select
                       For l = 1 To 30
                           If Cells(j + l, 3).Value <> "" Then
                               Cells(j + l, 3).Select
                               'zaehl = j + l
                                   'a = Right(Cells(j + l, 3), 5)
                                   'If a = "" Then
                                   'If Cells(j + l, 3).Value = "  " Then
                                   If Cells(j + l, 3).Value = False Then                                    'If Cells(j + l, 3).Formula = " " Then
                                   'If Range(Cells(j + 1, 3)).Value = "" Then
                                   'Cells(1, 3).End(xlDown).Offset(1, 0)
                                   'If Range("d65536").End(xlUp).Offset(1, 0).Value Then
                                   'If (Cells(j + l, 3).Value) Is Null Then
                                   'If istleer(j + l, 3) Then
                                       Stop
                                   End If
                                   a = ""
                               zaehl = j + l
                               Cells(zaehl, 3).Select
                                   'Rows("3:9").Select

                           End If
                       Next l
                       
                       Stop
                   End If
               Next k
               Stop
           End If
           
       Next j

gefunden: versucht mit allen auskommentierten Zeilen.

[steve1da]

Hola,

zur Vorgeschichte:

http://ms-office-forum.net/forum/showthr...p?t=324376

Gruß,
steve1da

[karomue]

 

Ja, dort kam nix verwertbares raus, leider. Ea waren alle sehr bemüht, ich vermute jedoch, dass es nix mit meinem Code zu tun hat, sondern es sich um einen Excel-Fehler handelt. Nur wo??? :@

[Steffl]

Hallo Charly,

lade die Datei hoch.

[Fred0]

 

...., dass es nix mit meinem Code zu tun hat, sondern es sich um einen Excel-Fehler handelt. .... :@

Fehler macht immer der, der davor sitzt :21:

[karomue]

 

...., dass es nix mit meinem Code zu tun hat, sondern es sich um einen Excel-Fehler handelt. .... :@

Fehler macht immer der, der davor sitzt :21:

Ja, toll. dann sag mir doch welchen!

[karomue]

Hallo Charly,

lade die Datei hoch.

Der fragliche Codeteil steht doch ganz oben  ...

[Steffl]

Hallo Charly,

der reicht mir nicht. Außerdem ist es eh nur ein Teil des Codes.

[Käpt'n Blaubär]

Hallo,

Ja, dort kam nix verwertbares raus, leider. Ea waren alle sehr bemüht, ich vermute jedoch, dass es nix mit meinem Code zu tun hat, sondern es sich um einen Excel-Fehler handelt. Nur wo???

und ich vermute mal, daß Du einer von denen bist, die niemals selbst die Schuld an irgendwas tragen.
Wofür sonst gibt es denn auch die anderen?

Mal 'ne andere Frage;
Wie oft wurdest Du (in den Foren) inzwischen gebeten, Deine Datei hochzuladen und sie damit den Helfern
zur Verfügung zu stellen? Daraus folgt schlußendlich die Frage: Hat schon mal einer von denen die Datei gesehen?

[karomue]

Hallo Stefan.

Es geht ausschließlich darum ein einer Spalte die 1. leere Zelle zu finden, was offensichlich mit den auskommentierten Zeilen nicht geht. Es siollte mit einer Abfrage auf "" eigentlich gehen, tut es aber nicht. Ach mit den anderen Versuchzeilen nicht.

Der ganze Code kann eh nicht verstanden werden, da er sich auf 2 weitere Excel-Tabellen bezieht.

Sorry, aber drücke ich mich so unverständlch aus?