Office: Spalte hochzählen

Moin!!

weiß jemand wie ich Spalten hochzählen kann? Die erste Zelle ist kein Problem, nun möchte ich die nächste Zelle in der Spalte (Zeile #6)direkt daneben ansprechen, da komme ich nicht weiter.

Code:

bei der zweiten Msgbox-Anweisung kommt es zu einer Typunverträglichkeit. Ist ja auch irgendwie klar, dass es Probleme geben kann, wenn man String hochzählen will. Aber wie macht man das denn richtig?

zweite Frage: kann mir jemand erzählen, was diese Zeile tut (oben auch drin):
Code:

die habe ich aus einem Buch rauskopiert, weiß aber nicht was es macht. Aber es tut was ich brauche, nämlich die Spalte der aktuellen Zelle als Buchstaben ausgeben und zwar auch mal zweistellig (z.B. AB)

Danke und Gruß,
Dicky

:)

 

Hallo Dicky,

aus welchem Buch hast du denn solch einen Spagetticode?

VBA ist eine Objektbezogene Programmiersprache.
Wenn du einen Range als Objekt verwendest, kannst du dessen Eigenschaften (Zeile, Spalte, Werte etc.) einsetzen und musst nicht
zusätzlich einen Spaltenbuchstaben extrahieren um daraus wieder umständlich einen Range zusammenzusetzen.

Deine Prozedur könnte dann z.B. so aussehen:
Code:

Zu deiner zweiten Frage:

Wie gesagt, brauchst du keinen Spaltenbuchstaben, wenn du stattdessen das Range-Objekt genau referenzierst.
Die Syntax dazu ist zudem äußerst umständlich und schneidet die Zeilenzahl vom Spaltenbuchstaben ab.
Einfacher wäre der Spaltenbuchstabe z.B. so zu ermitteln:
Code:

Aber wie gesagt ist der Spaltenbuchstabe gar nicht nötig und erschwert die VBA Programmierung nur unnötig.

 

Hallo Melanie,

das sieht doch ganz gut und vor allem übersichtlich aus. Ich werde es morgen im Büro mal ausprobieren. Leider habe ich die Datei nicht mitgenommen *stupid

Ich melde mich dann! Danke

Gruß,
Dicky

 

Hallo Melanie,

das funktioniert so in etwa wie ich mir das vorstelle. ich hab das ein bissschen angepasst für meine Bedürfnisse und das sieht dann so aus:

Code:

so was ich jetzt nicht nachvolziehen kann ist: die 5 wird 3 mal angezeigt, ebenso die 8, obwohl ja eigentlich nur zwei mal msgbox(...) dort stehen.

ääähm moment, mir ist gerade aufgefallen, dass die msgbox-anweisungen keine Klammer haben, wie ich sie sonst kenne. Liegt ds vielleicht daran?

Grüße,
Dicky

 

hi

eigentlich müsstest du (zumindest) noch eine leere Anzeige haben!
schreibe mal noch ein paar Einträge in die zweite Zeile, dann hast du noch mehr Anzeigen.

2 Msgboxen in einer Schleife (mit einer Abfrage) liefern so oft eine Ausgabe wie Werte gefunden werden!

ob die msgbox in einer Klammer steht oder nicht ist in diesem Fall egal!
die Klammern werden gebraucht, wenn ein Rückgabewert erforderlich ist.

z.b wenn abgefragt werden sollte ob nein oder Ja gedrückt worden ist, da würde es ohne Klammer nicht funktionieren.

so z.B
Code:

p.s aus welchem Buch stammt der erste Code wirklich, das ist ja infernalisch *Smilie

 

heißt: Excel-VBA Codebook von Monika Weber und Bert Körn. Melanie dürfte Monika auch kennen, weil sie ja auch irgendwie so eine ... **Zitat** Microsoft MVP im Bereich Excel und Microsoft User Specialist. Sie ist Office-Trainerin in der Schweiz **Zitat-Ende** Aber da hat jede doch seine Spezialität, die beiden vielleicht in Spagetti-Code. Diese habe ich aber auch meinem Bedarf etwas angepasst, aber der Stil ist gleich geblieben.

Den Code werde ich hoffentlich heute Aben ausprobieren können. Ich melde mich dann wieder. Danke schon mal!

Gruß,
Dicky

 

Hallo Melanie,

weshalb nicht noch einfacher *cool.gif* :

paramColumn = Replace(paramName .Address(0,0),paramName .Row,"")

 

Hallo Dicky

Danke für die Info *Smilie (habe mir mal die die Werte in der Klammer bedeuten (Zeilenversatz, Spaltenversatz)

Code:

wäre eine Zeile höher und 4 Spalten nach rechts versetzt

Eine relativ unbekannte Möglichkeit ist auch

Code:

wäre dasselbe wie

Code:

Nur steht 1 jetzt für die aktuelle Position!!

Nächste Aufgabe:
angenommen ich möchte mit einer Schleife, Werte in A1:C50 eintragen

Code:

Wird nicht funktionieren!!!!!!

Code:

GEHT auch nicht!!!!!

1,2,3 muss noch in Buchstaben umgewandelt werden, da ja beim Range ein Buchstabe benötigt wird.
NEIIIN!!!

Lösung:
statt Range, Cells verwenden

Cells(Zeile, Spalte)

Range("B5")
wäre
Cells(5,2)
nun kann auch obige Aufgabe gelöst werden
Code:

Bereiche wie
Range("C2:G100")
können auch so ausgegeben werden
Range(Cells(2,2),Cells(100,7))

Fazit: Spaltenbuchstaben ermitteln ist zu 99,999% überflüssig
ist aber nur meine persönliche Meinung!!!

für ALLE die denoch eine Funktion oder Sub haben wollen
Code:

 

also gut, dann lade ich mal eine Datei hoch. In der Datei ist auch mein VBA-Code mit drin.

Vielleicht habt ihr ja eine Idee. Ich wäre sehr dankbar

Gruß,
Dicky

 

hi

Set upperLimit = Range(testName.Offset(1, 0), testName.Offset(1, 1))

nicht & ":" &
verwenden *Smilie

das gleiche natürlich für die anderen Bereiche
p.s das war im vorigen Post der Hinweis hier

 

hallo chris,

das funktioniert, danke! wie macht man denn

Range("A3:A1000,B3:B1000")?

wobei die Bereiche als Variable stehen sollen, da diese ja flexibel sein sollen. Diesen Ausdruck brauche ich, weil (für die erste Testreihe) in der Spalte A die Nummern und in B die Messwerte stehen. Für die zweite stehen die Messwerte in Spalte C, d.h. es müsste sein, Range ("A3:A1000, C3:C1000").

Mein Code wäre (nachdem das Diagram erzeugt wurde):
Code:

Aber dann macht es "Typ unverträglich". Aber wenn ich stattdessen mache:
Code:

dann macht er bei dem zweiten Diagram (da bei jeder Testreihe ein neues Diagram eingefügt werden soll) zwei Datenreihen:
- mit Spalte A für die X-Achse und Spalte B für die Y-Achse (identisch wie beim ersten Diagram, also fehl am platz)
- mit Spalte A für die X-Achse und Spalte C für die Y-Achse.

Ich bin ein bissel überfordert. Könnte ihr Experten hier mal helfen?

Gruß,
Dicky

 

Hallo Dicky,

das geht zum Beispiel so:

Code:

 

das kann doch gar nicht wahr sein!!

was hat Excel fürn Problem?! wenn ich den Code kompiliere:
Code:

dann bricht es ab mit der Fehlermeldung Laufzeitfehler 1004: die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen.

Das komische ist, manchmal bricht es in der ersten Zeile ab, manchmal zweite. Was istn da los? Leigt es vielleicht daran, dass ich mit Excel 2002 arbeite? Ist solch ein Ausdruck dort unbekannt? Glaube ich zwar nicht, aber wer weiß? Ich habe das Gefühl, dass Excel 2002 Probleme damit hat, mit der Anweisung umzugehen.

Gruß,
Dicky

 

Hallo Dicky,

referenziere die beiden Zellbereiche mal ausführlich über den Tabellenblattnamen:

Code:

Ohne diese ausführliche Referenzierung geht das zum Beispiel dann schief, wenn gerade nicht das Tabellenblatt, sondern das Diagramm aktiv ist (und der Code nicht im Modul des Tabellenblattes steht).

Gruß Ingolf

 

Hallo Ingolf,

vielen Dank!! das klappt super! Jetzt gehts weiter und habe neue Fragen. Mache ich neue Threads auf :-)

Gruß,
Dicky