Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte aus Spalten in Berechnungen übernehmen

Werte aus Spalten in Berechnungen übernehmen
31.07.2005 11:08:09
andi
Guten Morgen,
habe ein Problem mit folgenem Makro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Werte berechnen und an Variablen übergeben
wert = Cells(6, 4).Value
minTol = wert + Cells(8, 4).Value
maxTol = wert + Cells(7, 4).Value
orange_max = Cells(7, 4).Value * 20 / 100 * -1
orange_min = Cells(8, 4).Value * 20 / 100 * -1
m = maxTol - orange_max
n = minTol + orange_min
'Wenn mehr als eine Zelle markiert wurde dann Makro beenden
If Target.Cells.Count > 1 Then Exit Sub
Select Case Target.Value
Case Is > maxTol
Target.Font.ColorIndex = 3 'rot
Case Is < minTol
Target.Font.ColorIndex = 3
Case Is < maxTol, Is < m
Target.Font.ColorIndex = 46 'orange
Case Is < minTol, Is < n
Target.Font.ColorIndex = 46
Case Else
Target.Font.ColorIndex = 10 'grün
End Select
End Sub

So funktioniert es natürlich nur für Spalte 4. Ich möchte aber, dass es für alle Spalten die Werte übernimmt. Spalten 4-30. Die Werte in den Spalten sind immer verschieden.
Anstatt: wert = Cells(6, 4).Value, vielleicht so etwas: wert = Cells(6, Target-Spalte).Value?
Weiß nicht wie ich so etwas hinbekomme. Wer kann mir helfen?
Gruß Andi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Cells(6, Target.Column)
31.07.2005 11:26:04
PeterW
danke, lag ja gar nicht so falsch
31.07.2005 12:08:26
andi
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige