Thema Datum  Von Nutzer Rating
Antwort
22.06.2011 09:07:53 DJ Dan
NotSolved
Blau Matritzen problem
 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
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 13:17:40		 Views:
983		 Rating:
     
Antwort:
  Ja
Thema:
Matritzen problem		 
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

Aufrufen läuft dann so:

Dim LC&(1)

flc lc, activesheet

letzteZeile=lc(0)

LetzteSpalte=lc(1)

Das ist eine Funktion, die ich mir mal dafür geschrieben habe, eine bessere Methode ist mir nicht bekannt. "UsedRange" auslesen bringt ein nicht immer weiter.

Falls noch andere Daten in deinem Blatt stehen musst du das Ende der Matrix irgendwie markieren, z.B. "End Matrix" unter die letzte Zeile der Matrix schreiben und dann nach diesem Eintrag suchen.

Gruß

Till

 

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
Blau Matritzen problem
 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
22.06.2011 21:19:07 Till
NotSolved
23.06.2011 08:33:50 DJ Dan
Solved