title image


Smiley Re: Schleife von Zeilenebene auf Spaltenebene erweitern
Hallo Hans Bärbel [img]http://smilie-land.de/t/i-l/lachen/lachen0048.gif[/img],



ich sehe in Deinem Code nicht wie die Zelle eingeht.

In VBA kann zu 99% auf select verzichtet werden. Versuche mal den Teil den Du gepostet hast laufen zu lassen. Ich vermute mal das geht nicht.



Sub test()

Dim Zähler As Integer

Dim Loletzte As Long

Dim LoZeile As Long

Loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

For LoZeile = 1 To Loletzte

For Zähler = 1 To 6

If Len(rs.Fields(intcounter).Value) > 0 Then

[ANWEISUNG]

End If

Next Zähler

Next LoZeile

End Sub







In Foren gilt allgemein das Du. Alle Leute, die ich duze, spreche ich mit dem Vornamen an. Ich habe jetzt mal meinen Antwortstil umgestellt: in Beiträgen, in denen kein Name steht, werden die Personen mit "Hans Bärbel" angeredet, da liege ich zumindest beim Geschlecht mit 50% richtig.

 http://hajo-excel.de/fragen_wie_1.htm

Betriebssystem: Windows 10, Office 2016 32 bit. Bitte Version angeben. Bei keiner Angabe wird von meiner  ausgegangen.Mails nur nach Aufforderung.



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: