Graphik in E2016

[karomue]

Sehr schön.

Nur, wie macht man eine Pivot intelligent?

Und mein Makro war eigentlich mehr Neugierde, was passiert beim Erstellen einer Pivot. Also so ne Art Beschäftigung damit keine Langeweile aufkommt. Obwohl meine Frau - man sieht es ihr an, braucht sie garnichts zu sagen - meint, "jetzt sitzt er schon wieder vor der Kiste".

[WillWissen]

Hi Charly,

Nur, wie macht man eine Pivot intelligent?

es handelt sich um eine intelligente Tabelle. Du gehst in deine Tabelle in irgend eine Zelle und drückst STRG+T oder STRG+L. Es öffnet sich ein Fenster, in dem du nur noch ein Häkchen setzen musst, ob deine Tabelle Uberschriften hat oder nicht. Den aktuell gültigen Bereich hat XL bereits selber erkannt.

[
Bild bitte so als Datei hochladen: Klick mich!
]

Jetzt mit OK bestätigen und deine Tabelle sieht so aus:

[
Bild bitte so als Datei hochladen: Klick mich!
]

Die Tabelle ergänzt sich dann bei neuer Eingabe von alleine - Formeln werden automatisch weitergeführt.

[karomue]

Darf ich mich jetzt schon "(Bodensatz-) Experte" nennen?

Mit euerer Hilfe bin ich auf dem besten Weg.... Großes Dankeschön.

[GMG-CC]

Günters Name ist ja etwas kürzer als meiner (ich bin noch mit dem h "geadelt"  :05: [auch wenn Günter stolz auf seine Namensform ist, was ihm als "Non-Preiß" auch zusteht] ), darum ist seine Kurzforn vollkommen OK. Wenn du etwas tiefer in die Materie einsteigen willst, dann ist bei Excel-ist-sexy etwas mehr an Informationen und Hintergrundwissen zu finden.

[WillWissen]

Hi Günther,

das mit dem "geadelt" sollten wir zwingend bei einer bis mehreren Hopfenkaltschalen (darf auch gerne Hopfentee sein ;) ) ausdiskutieren. Da würde sich doch wohl bestens der 16. - 18.9. nächstes Jahr in Kornwestheim anbieten.  :15:

[karomue]

Hi Günt(h)er,

hihi. Das mit der Hopfenteefeier würde ich gerne wahrnehmen, aber da gibts leider ein Problem....

[WillWissen]

Hi Charly,

sicherlich gibt's für dein Problem auch eine Lösung. Der sich jährlich treffende "Haufen" freut sich über jedes neue Gesicht.

[karomue]

Schaun mer mal...

Dafür ist mein Gesicht ja jetzt hier sichtbar...

[karomue]

Hallo alle.

Code:

i = 2
Do While Cells(i, 2).Value <> ""
   i = i + 1
Loop
EndTab = i - 1
ZelleUntenLinks = "E" & EndTab
   'Range("A1":ZelleUntenLinks).Select
   Range(Cells("a1"), Cells(ZelleUntenLinks)).Select

Kann mir mal jemand auf die Sprünge helfen:

Bereich markieren geht ja über Range("A1:E21").Select, z.B.
Es gibt auch Range(Cells("A1"), Cells("E21")).select - hoffe das war syntaktisch richtig.

Jetzt wirds eklig, ich habe nichts gefunden: siehe Code. In ZelleUntenLinks steht brav "E22", aber so geht es leider nicht. Das konnte ich schon mal, vergessen - wie so vieles. Und nein, lebenswichtig ist es natürlich nicht, sollte nur mein abhandegekommendes Excel-Verständnis wieder etwas aufpolieren. Es geht immer noch um die Blutdrucktabelle...

[GMG-CC]

Moin Charly,

Schleifen solltest du meiden, wo du kannst. So erreichst du auch dein Ziel:

Code:

Sub Markieren_1()
  Dim lRow As Integer
  lRow = Cells(Rows.Count, 5).End(xlUp).Row
  Range("A1:E" & lRow).Select   'Wobei 99% aller Select-Anweisungen flüssiger sind als flüssig (überflüssig)
End Sub

... und warum nicht UntenRechts?
Allerdings sollte in Spalte E nichts unterhalb des letzten RR-Wertes stehen.

Und deine Version lauffähig:

Code:

Sub Berichtigt()
  Dim i as Integer, ZelleUntenRechts as String, EndTab As Integer
  i = 2
  Do While Cells(i, 5).Value <> ""
   i = i + 1
  Loop
  EndTab = i - 1
  ZelleUntenRechts = "E" & EndTab
 Range("a1:" & ZelleUntenRechts).Select
End Sub