Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife Notenschlüssel per VBA

Forumthread: Schleife Notenschlüssel per VBA

Schleife Notenschlüssel per VBA
11.01.2005 15:39:11
Fitz
Hallo zusammen!
Ich möchte einen prozentsatz mit einem Schlüssel vergleichen und eine Note eintragen lassen,und das Ganze über mehrere Zellen.
Untenstehend mein Ansatz:
Sub Note()
Dim c As Range
For Each c In Range("I5:I12")
If ActiveCell.Offset(0, -1) > Cells(20, 2) And Cells(5, 8) ActiveCell = "1"
ElseIf ActiveCell.Offset(0, -1) > Cells(21, 2) And Cells(5, 8) ActiveCell = "2"
ElseIf ActiveCell.Offset(0, -1) > Cells(22, 2) And Cells(5, 8) ActiveCell = "3"
ElseIf ActiveCell.Offset(0, -1).Offset(0, -1) > Cells(23, 2) And Cells(5, 8) ActiveCell = "4"
ElseIf ActiveCell.Offset(0, -1) > Cells(24, 2) And Cells(5, 8) ActiveCell = "5"
End If
Next
Ps:unbedingt VBA
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schleife Notenschlüssel per VBA
11.01.2005 15:49:17
Matthias
Hallo Andy,
Du mach eine Schleife (For Each c in...) und dann taucht c nirgends mehr auf...
Versuch's mal mit
If c.Offset(0,-1)... usw.
Gruß Matthias
AW: Schleife Notenschlüssel per VBA
Fitz
Danke für die Antwort
Ich habe es geändert, es funktioniert aber leider noch nicht.

Sub NoteForum()
Dim c As Range
For Each c In Range("I5:I12")
If c.Offset(0, -1) > Cells(20, 2) And Cells(5, 8) < Cells(20, 1) Then
ActiveCell = "1"
ElseIf c.Offset(0, -1) > Cells(21, 2) And Cells(5, 8) < Cells(21, 1) Then
ActiveCell = "2"
ElseIf c.Offset(0, -1) > Cells(22, 2) And Cells(5, 8) < Cells(22, 1) Then
ActiveCell = "3"
ElseIf c.Offset(0, -1).Offset(0, -1) > Cells(23, 2) And Cells(5, 8) < Cells(23, 1) Then
ActiveCell = "4"
ElseIf c.Offset(0, -1) > Cells(24, 2) And Cells(5, 8) < Cells(24, 1) Then
ActiveCell = "5"
End If
Next
End Sub

Anzeige
AW: Schleife Notenschlüssel per VBA
11.01.2005 16:14:30
Matthias
Hallo Andy,
ich kann anhand des Codes leider nicht sehen, was überhaupt funktionieren soll.
Gruß Matthias
AW: Schleife Notenschlüssel per VBA
RR
bei note 4 ist einmal
.Offset(0, -1)
zuviel.
vielleicht klappt es dann!
AW: Schleife Notenschlüssel per VBA
Fitz
Ich habe auf untenstehenden Code geändert und jetzt funkioniert die Schleife nur der Wertevergleich funktioniert noch nicht
If c.Offset(0, -1) > Cells(20, 2) And c.Offset(0, -1) 

Sub NoteForum()
Dim c As Range
For Each c In Range("I5:I12") "das sind die Zellen in denen die Note eingetragen wird"
If c.Offset(0, -1) > Cells(20, 2) And c.Offset(0, -1) < Cells(20, 1) Then
c = "1"
ElseIf c.Offset(0, -1) > Cells(21, 2) And c.Offset(0, -1) < Cells(21, 1) Then
c = "2"
ElseIf c.Offset(0, -1) > Cells(22, 2) And c.Offset(0, -1) < Cells(22, 1) Then
c = "3"
ElseIf c.Offset(0, -1).Offset(0, -1) > c.Offset(0, -1) And Cells(5, 8) < Cells(23, 1) Then
c = "4"
ElseIf c.Offset(0, -1) > Cells(24, 2) And c.Offset(0, -1) < Cells(24, 1) Then
c = "5"
End If
Next
End Sub

Anzeige
AW: Schleife Notenschlüssel per VBA
Fitz
Danke für die Antwort
Ich habe es geändert, es funktioniert aber leider noch nicht.

Sub NoteForum()
Dim c As Range
For Each c In Range("I5:I12")
If c.Offset(0, -1) > Cells(20, 2) And Cells(5, 8) < Cells(20, 1) Then
ActiveCell = "1"
ElseIf c.Offset(0, -1) > Cells(21, 2) And Cells(5, 8) < Cells(21, 1) Then
ActiveCell = "2"
ElseIf c.Offset(0, -1) > Cells(22, 2) And Cells(5, 8) < Cells(22, 1) Then
ActiveCell = "3"
ElseIf c.Offset(0, -1).Offset(0, -1) > Cells(23, 2) And Cells(5, 8) < Cells(23, 1) Then
ActiveCell = "4"
ElseIf c.Offset(0, -1) > Cells(24, 2) And Cells(5, 8) < Cells(24, 1) Then
ActiveCell = "5"
End If
Next
End Sub

Anzeige
AW: Schleife Notenschlüssel per VBA
AndréL.
Hallo Andy,
ich hab mal ein kleines Beispiel
gebastelt.
Musst Du aber noch erweitern.

Sub Note()
Dim c As Range
For Each c In Range("B3:B7")
If c.Value > "91" Then
c.Offset(0, 1) = "1"
ElseIf c.Value > "82" And c.Value < "91" Then
c.Offset(0, 1) = "2"
End If
Next
End Sub

https://www.herber.de/bbs/user/15930.xls
Gruß
AndréL.
Anzeige
AW: Danke an alle
Fitz
Es funktioniert bestens und Ich bedanke mich recht herzlich.
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
VBA Progr. Schleife- Doppelklick in Zelle
Jeebee

Guten Morgen,
Habe in Excel folgendes Problem: Ich übernehme eine Tabelle aus SAP. Leider Sind die Zahlen dort nicht als Zahl definiert sondern als Text. Jede Zahl zB. 33,01- hat einen Bindestrich hinten dran. Dass ich den wegkriege konnte ich bereits mit "Makro aufzeichnen" lösen.
Dies...
07.03.2009 09:56:05
Thread-ID: 1057531
3 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
VBA Laufschrift: Zeitgrenze definieren
dieter(drummer)

Excle/VBA SoLaLa
Hi VBA Profis,
habe aus dem Forum folgendes Makro in meiner Arbeitsmappe, Modul2. Es bewirkt, das in der aktiven Tabelle, hier TAB4, in Zelle B5 eine vorhandener Text als Laufschrift abläuft.
Makro (Verfasser hatte ich leider nicht notiert):
Declare Sub Sleep...
23.10.2009 16:56:17
Thread-ID: 1111654
3 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA Schleife mit Bedingung
Benjamino

Hallo zusammen,
bin ein blutiger VBA-Neuling und versuche bislang erfolglos mein Problem zu lösen. Wäre unendlich dankbar, wenn mir jemand weiterhelfen könnte.
Das unten stehende Makro "Makro2" soll solange durchlaufen werden, bis in der Spalte A im Sheet "Readme" keine befüllte Zellen...
20.03.2010 23:25:52
Thread-ID: 1147311
5 Beiträge
VBA If-Fkt mit Teilstring
Jonathan

Hallo liebe Experten,
ich bekomme es einfach nicht hin...
Ausgangssituation:
2 Dateien mit Adressdaten (1 Zeile A-H) enstpricht einer Adresse.
Jede Adresse hat in Spalte A eine Adressnummer, quasi als Primärschlüssel
Folgender Code vergleicht die Datei "Freizeitliste_XY500.x...
13.05.2010 14:52:18
Thread-ID: 1156910
7 Beiträge
Mit VBA Zugriff auf ein pdf-Dokument
Gregor

Hallo zusammen
Ich möchte in einer Excel Tabelle aus einem pdf Vornamen und Namen kopieren. Dabei muss ich in einem e-Book (pdf) nach dem Begriff "Erstellerautor" suchen, und dann die jeweiligen Namen NACH diesem Suchgegriff kopieren und in einer Excel-Tabelle einfügen. Das e-Book ist alpha...
18.08.2010 16:48:01
Thread-ID: 1172920
3 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
Anzeige
VBA Schleife Farbhintergrund setzen
Dieter(Drummer)

Hi VBA Spezislisten,
suche ein VBA Lösung: Der Bereich ist A4 bis AH34! Ab der aktiven Zelle sollen 3 Zellen BLAU, die nächsten 3 ROT und die nächsten 3 GRÜN Hintergrund gefärbt werden. Dann wieder mit ROT usw. beginnen. Dies soll sich max. bis Zeile 34 der aktiven Spalte wiederholen.
D...
27.04.2011 12:53:49
Thread-ID: 1211980
14 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige