Thema Datum  Von Nutzer Rating
Antwort
22.06.2011 09:07:53 DJ Dan
NotSolved
22.06.2011 13:17:40 Till
NotSolved
22.06.2011 15:51:45 DJ Dan
NotSolved
22.06.2011 16:10:19 Till
NotSolved
22.06.2011 16:24:07 DJ Dan
NotSolved
22.06.2011 16:35:05 Till
NotSolved
22.06.2011 18:15:28 DJ Dan
NotSolved
Blau Matritzen problem
22.06.2011 21:19:07 Till
NotSolved
23.06.2011 08:33:50 DJ Dan
Solved

Ansicht des Beitrags:
Von:
Till
Datum:
22.06.2011 21:19:07
Views:
974
Rating: Antwort:
  Ja
Thema:
Matritzen problem
Sub SetRange ()
Dim Lc&(1), rng as range

flc lc,Activesheet

set rng=Range("E1:H" & lc(0))


End sub

Function fLC(ByRef lc&(), tSh As Worksheet)
Dim C%, R&, E1&, E2%, TV&, TV2&
E1 = Rows.Count
E2 = Columns.Count
     
    With tSh
        TV2 = .Cells(1, E2).End(xlToLeft).Column
        For C = 1 To E2
             
            TV = .Cells(E1, C).End(xlUp).Row
            If TV > lc(0) Then lc(0) = TV
            If TV <> 1 And C > TV2 Then lc(1) = C
             
        Next
        If lc(1) = 0 Then lc(1) = TV2
    End With
     
End Function


Genau so sollte es daann laufen..

 


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:



  • 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
22.06.2011 09:07:53 DJ Dan
NotSolved
22.06.2011 13:17:40 Till
NotSolved
22.06.2011 15:51:45 DJ Dan
NotSolved
22.06.2011 16:10:19 Till
NotSolved
22.06.2011 16:24:07 DJ Dan
NotSolved
22.06.2011 16:35:05 Till
NotSolved
22.06.2011 18:15:28 DJ Dan
NotSolved
Blau Matritzen problem
22.06.2011 21:19:07 Till
NotSolved
23.06.2011 08:33:50 DJ Dan
Solved