Office: Auslesen von Zellen

Eine Sache hätte ich doch noch, lieber hary :-)

Ich habe den Code jetzt soweit angepasst. Hat auch alles wunderbar funktioniert. Ich habe mich nun allerdings entschieden, dass die Prüfungsnoten noch zusätzlich von einem anderen Blatt kommen (nämlich "Prüfung_Abschluss")

Ich habe den Code folgendermaßen abgeändert:

Code:

Wenn ich dann aber den Button klicke, um das Makro durchaufen zu lassen, kommt in den "Zielfeldern" nur ein "'WERT" was zeigt, dass auf das Blatt HSA etwas nicht richtig übertragen wird. Kannst du mir da nochmal weiterhelfen?

LG

LG

 

Moin
Bist du den Code schon im Einzelschritt(F8 Taste) durchgegangen?
In der ersten Schleife wird alles nach HSA uebertragen/gerechnet.
Schaetze mal, da ich keine Pruefmappe habe(lad mal hoch) das der Fehler in der zweiten Schleife liegt.
C20 wird immer ueberschrieben mit:
.Range("C20") = wksX.Cells(k, "L") '--Abschlussbedingungen erfüllt
evtl. liiegt der fehler auch Bsp. hier:
.Range("E4") = wksQ.Cells(i, "L") '--Prüfungsnote Deutsch
damit uebertraegst du die evtle Formel von "Übersicht" nach HSA
Da waer es:
.Range("E4").Value = wksQ.Cells(i, "L").Value '--Prüfungsnote Deutsch
mehr kann ich aber dazu ohne es zu pruefen nicht schreiben.
Daher geh den Code mal im Einzelschritt durch, dann siehst du was gemacht wird.
gruss hary

 

Hi,

ich bins jetzt mit F8 durchgegangen und er nimmt natürlich erst einmal alles von "Übersicht", wie es im Code auch drinsteht. An der Stelle an der er dann auf das zweite Blatt springen müsste ("Prüfung_Abschluss") nimmt er dann die nächste Zeile aus Übersicht. Das liegt an dem Next, wie ich jetzt lernen konnte.

Ich habe halt leider keine Lösung im Netz gefunden für For i=2 (Übersicht) und k=4 (Prüfung_Abschluss) ... Next usw.

Das war nicht der Fehler. Er nimmt ordnungsgemäß nur die Ziffer mit rüber. :-)

Ich habs auch nochmal reduziert und angehängt.

Vielen Dank.

 

Moin
Meinst du das so?
Der Teil in der 2. Schleife muss in dei 1. Schleife. Sonst hast du immer nur die letzte Berechnung der 1. Schleife
Code:

gruss hary
Namen muessen in immer in der gleichen Reihenfolge in beiden Blaettern sein.

 

Hallo hary,

vielen Dank. Es funktioniert ganz wunderbar. :-)

 

Hallo liebe Community,

in den letzten Zügen muss ich noch eine letzte Anpassung durchführen aber Excel mag ums Verrecken nicht das, was ich möchte.

Folgenden Code habe ich (Ausgangssituation war die von hary weiter oben)

Code:

Ich bekomme es jetzt allerdings nicht mehr hin, dass er mir 3 Zellen auf dem Blatt wksZ löscht, wenn auf diesem Blatt in Zelle F28 "Hauptschulabschluss" steht. Ich habe die betreffende Stelle rot eingefärbt (Ziemlich weit am Ende des Codes).

2. Am Anfang des Codes frage ich ab, ob bei den Noten ein 1+, 1 oder 1- drinsteht. Wenn ja, soll er die Note 1 übertragen. Dadurch wird der Code sehr aufgebläht. Geht die if-Afrage auch kürzer, weil ja eigl in allen 3 Werten die Zahl 1 drin vorkommt und die "Wahr"-Erfüllung wenn 1 enthalten ist, schon ausreichen würde?
Wie unschwer zu erkennen ist, geht es hier um eine Abschlussberechnung :-)

 

Moin
Zu 2 Bsp. fuer Deutsch.
Mit pruefen auf Zahl.
Code:

Wenn keine Pruefung gebraucht wird reicht:
Code:

-------------------------
Edit: Hatte langeweile ;-) hier fuer die Noten
Code:

-------------------------
zu 1.
Bist du schon im Einzelschritt den Code(passt eigtl.) durchgegangen?
oder bau mal eine Msgbox zum pruefen ein.
Code:

In der Bsp.-Mappe steht der Abschluss in F20
Ist es auch wirklich der Bereich der geloescht werden soll?
gruss hary

 

Hallo hary,

vielen Dank. Die 1) funktioniert soweit. :-)

2) Wenn ich Code:

eintrage, wird ein Fehler ausgegeben. Gebe ich aber zum Beispiel Code:

ein, wird das ordnungsgemäß in einer Messagebox ausgegeben.

Es handelt sich wirklich um F28 auf diesem Blatt. Ich habe da noch ein paar Zeilen hinzugefügt. Aber auch wenn ich Code:

, was ebenfalls auf dem Blatt von F28 liegt, nehme, wird ebenfalls ein Fehler ausgegeben.

Der Wert "Hauptschulabschluss" kommt in die Zelle F28 per Code in Zelle F28:
Code:

 

Update: Wenn ich Code:

schreibe, funktioniert es. ...

 

Moin
Oh mann,zig mal durchgelesen und das Hirn den Fehler immer automatisch korrigiert: Range("F28").
Cells("F28") kann nicht gehen. Cells erwartet Zeilen- und Spaltennummer.
Erkenntniss: Das Hirn, ist nicht das Non plus Ultra, macht manchmal unglaubliche Sachen.
Hast den Fehler ja behoben.
Kannst es aber auch so schreiben, da WksZ in der with Anweisung liegt. Nur einen Punkt vor Cells.
Code:

gruss hary