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

Zeilen-und Zellenanwahl mit Variablen

Forumthread: Zeilen-und Zellenanwahl mit Variablen

Zeilen-und Zellenanwahl mit Variablen
10.08.2005 18:52:38
reiner
Hallo Leute,
durch eine IF-Abfrage wird mit Hilfe einer Variablen [varZeile] eine (evtl. auch mehrere) Tabellenzeile(n) markiert. “If varZeile "" Then Range(varZeile).Select”
Wie müsste der Programmcode lauten, damit in der(den) markierten Zeile(n) die Zelle in der 3.Spalte in roter Farbe markiert wird?
Gruß Reiner
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Cells(VarZeile,3).Interior.Colorindex = 3 o.T.
10.08.2005 19:32:01
Ramses
...
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
10.08.2005 20:34:51
reiner
hallo ramses,
ich erhalte eine Fehlermeldung: „Laufzeitfehler13; Typen unverträglich“; eine falsche Variablendeklaration scheidet als Ursache ebenfalls aus, woran könnte es denn nun noch liegen?
gruß reiner
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
10.08.2005 20:50:58
Ramses
Hallo
"...eine falsche Variablendeklaration scheidet als Ursache ebenfalls aus..."
Glaub mir,... der Code funktioniert :-)
Probiers aus

Sub Demo()
Dim VarZeile as Integer
Varzeile = 3
Cells(VarZeile,3).Interior.Colorindex = 3
End Sub

Gruss Rainer
Anzeige
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
10.08.2005 21:56:32
reiner
hallo ramses,
Dein Code funktioniert einwandfrei, aber ich immer noch das gleich Problem.
Ich habe mir das Makro im Einzelschrittmodus durchlaufen lassen und in der Codezeile mit der Variablen bekam ich beim Herüberfahren mit der Maus die Information: varzeile="$9:$9,$11:$11"
das heißt die Zeile wird übergeben mit „$9:$9“, hier liegt wohl das Problem.
gruß reiner
Anzeige
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
10.08.2005 22:04:50
Ramses
Hallo
Dann ist deine Variable kein Integer-Wert !
Damit kannst du keine einzelnen Zeilen oder Zellen adressieren.
Ändere den Variablenwert oder lass die einzelenen Zellen auswählen.
Gruss Rainer
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
10.08.2005 23:56:25
reiner
hallo ramses,
zunächst vielen Dank für Deine bisherige Geduld, aber leider hat auch der letzte Vorschlag nicht geholfen.
Hier zur Information der funktionierende Programmcode zur MIN-MAX-Markierung ganzer Zeilen:
varzeile = ""
For vSchleifeMin = vAnfang.Row To vEnde.Row (frei wählbarer Zeilenbereich)
If Cells(vSchleifeMin, 3) = WorksheetFunction.Min(Bereich3) Then
varzeile = varzeile & "," & Rows(vSchleifeMin).Address
End If
ActiveCell.Offset(1, 0).Select
Next vSchleifeMin
varzeile = Mid(varzeile, 2) Beispiel für varzeile: „$9:$9“
If varzeile "" Then Range(varzeile).Select
wenn "varzeile as String" deklariert ist, funktioniert die MIN- und die entsprechend aufgebaute MAX- Zeilenmarkierung. Wird "varzeile as integer" deklariert, funktioniert dieser Code nicht mehr. Selbst eine Variant-Deklaration löst das Problem nicht.
Der Inhalt der Variablen enthält die Information z.B. „Zeile 9 : Zeile 9“ („$9:$9“) passt diese Bezeichnung mit Deinem Vorschlag überein?
Der in Spalte 3 enthaltene Wert zu markierende Wert lautet z.B.: „15,9 °C“
es wäre schön wenn Du noch einen Vorschlag auf Lager hastm wenn nicht muss ich vielleicht einen ganz anderen Lösungsweg suchen.
gruß reiner
Anzeige
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
11.08.2005 00:09:56
Ramses
Hallo
1. Stehen die zu suchenden Minimal Werte nur in Spalte C ?
2. Ist der Bereich egal wo die Minimalwerte stehen ?
Gruss Rainer
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
11.08.2005 00:20:29
reiner
hallo ramses,
sowohl die MIN- als auch die MAX-Werte stehen in Spalte C.
Wäre es eine Möglichkeit die Zeilenummern der markierten Zeilen auszulesen und sie der Variablen zu übergeben, wenn es nicht gelingt die Zeilenummer wie angegeben ($9:$9, $10:$10) über die Variable weiter zu reichen?
gruß reiner
Anzeige
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
11.08.2005 10:11:16
Ramses
Hallo
Sub ColMinVal()
    Dim i As Integer, colN As Integer
    '3 = Spalte C
    colN = 3
    For i = 1 To Cells(Rows.Count, colN).End(xlUp).Row
        If Cells(i, colN) = WorksheetFunction.Min(Range(Cells(1, colN), Cells(Rows.Count, colN))) Then
            Cells(i, colN).Interior.ColorIndex = 3
        End If
    Next i
End Sub
Damit markierst du alle Min-Werte in Spalte C
Gruss Rainer
Anzeige
AW: Cells(VarZeile,3).Interior.Colorindex = 3 o.
11.08.2005 16:39:10
reiner
Hallo Ramses,
danke für den letzten Vorschlag; er funktioniert bestens.
Ich habe diesen Code in den bereits vorhandenen Code eingearbeitet und bin jetzt damit zufrieden.
Ein Problem fiel mir noch auf, hat aber wohl nichts mit dem bisherigen zu tun. Bei der MIN- und MAX-Ermittlung kann es vorkommen dass sehr viele Zeilen den gleichen MIN-oder MAX-Wert aufweisen.
Wie schon gesagt, die Variable „varzeile“ enthält die Informationen über die zu markierenden Zeilen in der Form: („$9:$9“,....) bei einer Anzahl mit mehr als 40 zu markierenden Zeilen scheint die Variable überfordert zu sein, es folgt eine Fehlermeldung.
Ist das Speichervermögen einer Variablen begrenzt? Kann man es erweitern?
Gruß Reiner
Anzeige
;

Forumthreads zu verwandten Themen

Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Anzeige
Verweis auf andere Tabelle mit Variable
Ralf

Hallo zusammen,
ich benötige Hilfe.
Ich habe eine Übersichtsdatei in der
='G:\Werkstatt\Kunde Ordner\[Kalkulation 11.xls]Deckblatt'!$AA$53
immer wieder in ähnlicherweise vorkommt.
Ich möchte es mir vereinfachen und z.B. in Zelle A3 "Kalkulation 11" schreiben.
Und dann f...
25.03.2009 14:48:52
Thread-ID: 1063809
4 Beiträge
OHNE VBA Wert aus Zelle +71
Tom

Hallo zusammen,
kann mir jemand sagen ob es die Möglichkeit gibt über eine Formel beim runter ziehen eines Zellbezugs den Wert des Bezugs um 71 Spaltenb zu verschieben?
Beispiel:
Tabelle1 hat in der A1 Zelle einen Wert, in der A72 Zelle wieder einen und nach weiteren 71 Zeilen wiede...
17.06.2009 00:09:09
Thread-ID: 1082093
5 Beiträge
SVerweis mit variablem Spaltenindexergebnis
Dirk

Hallo zusammen,
ich habe folgendes Problem:
Ich habe zwei Tabellen; in der einen stehen Namen und ein Suchkriterium und in der anderen sollen die Namen, die neben dem Suchkriterium aufgelistet sind übertragen werden.
Beispiel:
Spalte A_______Spalte B
__P1__________Müller
...
25.08.2009 10:38:59
Thread-ID: 1098346
5 Beiträge
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Anzeige
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 Beiträge
Addition: Zelle A1 + B1; Ergebnis in Zelle B1; Nac
reiner

Hallo Leute,
vor 2 Tagen hatte ich einen Beitrag unter der gleichen Überschrift an dieses Forum gesandt.
Hajo_Zi gab mir den Rat: unter Optionen Iteration 1 zu aktivieren. Das habe ich getan, die Berechnung funktionierte auch.
Allerdings habe ich erst danach festgestellt dass zu dem...
08.05.2010 11:08:09
Thread-ID: 1156186
8 Beiträge
Verweisen auf Zellbereich mit Variable
heicumed

Hallo zusammen,
ich habe ein kleines VBA-Problem, bei dem ich eure Hilfe brauchen könnte.
Ich will die leeren Zellen in einer Tabelle zählen, aber nur bis zu einer bestimmten Endzeile, die über ein Textfeld eingegeben wird.
So ungefähr sieht mein Plan in der Theorie aus - funktionie...
19.05.2011 17:10:40
Thread-ID: 1215240
6 Beiträge
Zellwert um 1 erhöhen
Walter

Hallo Excelfreunde,
Ich möchte den Zellwert(A1) 2500, per Mausklick oder einem Tastendruck um 1 erhöhen.
Danke für Euere Hilfe.
Gruß
Rentner Walter
17.05.2012 13:53:49
Thread-ID: 1263866
3 Beiträge
ZELLE + 1
Walter

Hallo Excelfreunde,
Gibt es die Möglichkeit eine Zelle nach "x" sek. um 1 zu erhöhen?
Wenn möglich ohne VBA
Gruß
Walter
09.02.2013 10:18:28
Thread-ID: 1298420
6 Beiträge
ZELLE + 1
Walter

Hallo Excelfreunde,
Gibt es die Möglichkeit eine Zelle nach "x" sek. um 1 zu erhöhen?
Wenn möglich ohne VBA
Gruß
Walter
09.02.2013 10:18:44
Thread-ID: 1298421
2 Beiträge
Zelle bei Speichern +1
Rudolf

Hallo,
ich habe im VBA- Editor unter "DieserArbeitsmappe" folgendes eingegeben Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets("Interface").Range("H1") = Now() End Sub
damit soll er immer wenn ich auf Speichern klicke das Aktuelle Datum und die Uh...
10.02.2013 19:30:48
Thread-ID: 1298608
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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