Anzahl Spalten ausgeben

[lapunta]

Hallo,

Ich habe eine Tabelle (Data) mit 41 Spalten und genau die 41 brauche ich als Variable.

Jetzt habe ich aus dem Netz folgenden Code kopiert, der mir die Anzahl der Spalten ausgibt:

Code:

With Sheets("Data")
   j = Cells(3, Columns.Count).End(xlToLeft).Column
End With

Er gibt mir aber nicht 41, sondern 13 aus

[GMG-CC]

Moin,
dann wird wohl in Zeile 3 Spalte_13 den letzten Eintrag haben ...
Schau mal hier nach: http://www.excel-ist-sexy.de/letzte-zeil...te-finden/

[lapunta]

Moin,

dann wird wohl in Zeile 3 Spalte_13 den letzten Eintrag haben ...

Wär schön, wenn die Welt so einfach wär.

Tabelle sieht aber so aus:

[Jonas0806]

Hallo,

Wär schön, wenn die Welt so einfach wär.

In den meisten Fällen ist sie das....

Was soll man aus deinem Bild erkennen? Hast Du den Link von Günther überhaupt gelesen?

Ohne eine Beispieldatei kann man dir leider mit den aktuellen Infos nicht weiterhelfen.

[GMG-CC]

Im Prinzip ist sie auch so einfach ...  :05:
Allerdings kann mein Excel keine Bildchen interpretieren darum bleibt nur "Das Große Rätselraten" übrig. Alternativ natürlich die Mappe (als *.xlsx, ohne Makros). Und der Name des Blattes ist auch richtig, natürlich auch die aktuelle Mappe?

[atilla]

Hallo,

vielleicht reicht das ja schon:

Code:

With Sheets("Data")
  j = Cells(1, 3).CurrentRegion.Columns.Count
End With

[Hydronaut]

Oder vielleicht das?

Code:

With Sheets("Data")
   j = .Cells(3, Columns.Count).End(xlToLeft).Column
End With

[atilla]

Hallo Detlef,

klar, habe ich auch völlig übersehen.  :28:
Bei mir muss vor Cells natürlich auch ein Punkt.

[lapunta]

Oder vielleicht das?


Code:

Code:

With Sheets("Data")
   j = .Cells(3, Columns.Count).End(xlToLeft).Column
End With

Hab ich gerade ausprobiert - Da gibt er mir 4 aus.

[Jonas0806]

Hallo,

hast Du denn #4 und #5 überhaupt gelesen?