Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1324to1328
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1324to1328
1324to1328
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereiche suchen und markieren

Bereiche suchen und markieren
13.08.2013 15:37:04
Gerhard
Hallo zusammen
Bitte um VBA Hilfe!
Ich habe laufend Messdateien zum auswerten.
Dazu möchte ich wegen der schnelleren Auswertung mehrere Bereiche automatisch farblich markieren!
Die Messwerte sind von A1:G (also über 7Spalten)
Die Werte-Abfrage soll in der Spalte C: erfolgen!
Beispiel:
Der Startwert für die erste farbliche Markierung ist in Zelle L1 und der Endwert in Zelle L2 abgelegt.
z.B
Inhalt von L1 = 100 (dieser Wert ist variabel)
Inhalt von L2 = 170 (dieser Wert ist variabel)
Jetzt soll dieser Bereich in der Spalte C: gesucht werden und derBereich
von Spalte A:G also über 7 Spalten farblich markiert werden.
Der 2.Bereich der farblich markiert werden soll ist der Startwert in Zelle M1
und der Endwert in Zelle M2 abgelegt.
Vielen Dank für Eure Hilfe
Gruß Gerhard

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

Betreff
Datum
Anwender
Anzeige
AW: Bereiche suchen und markieren
13.08.2013 16:10:50
Balder
Hallo Gerhard,
für den ersten Bereich:
Sub Auswertung()
Dim i As Long
For i = 1 To Sheets(1).Cells(Cells.Rows.Count, 3).End(xlUp).Row
If Sheets(1).Cells(i, 3) > Sheets(1).Range("L1") And Sheets(1).Cells(i, 3) _
Den 2. Bereich nach dem gleichen Prinzip, nur anpassen...
Gruß
Balder

AW: Bereiche suchen und markieren
13.08.2013 16:37:02
Gerhard
Hallo Balder,
Vielen Dank zuerst einmal für deine schnelle Hilfe.
Aber leider funktioniert das Makro nicht so wie gewollt.
In der beiliegenden Beispielmappe, habe ich den markierten Sollberech
einmal händisch farblich markiert so wie er sein sollte!
Gruß Gerhard
https://www.herber.de/bbs/user/86835.xls

Anzeige
AW: Bereiche suchen und markieren
13.08.2013 16:52:25
Heribert
Hallo Gerhard
i und Spaltenbezeichner waren wohl vertauscht
tausche diese Zeile aus 

Range(Sheets(1).Cells(1, i), Sheets(1).Cells(7, i)).Interior.Color = vbRed

gegen diese hier 

Range(Sheets(1).Cells(i, 1), Cells(i, 7)).Interior.Color = vbRed
sollte jetzt passen
Gruß
Heribert

AW: Bereiche suchen und markieren
13.08.2013 17:31:09
Gerhard
Vielen Heribert,
sieht gut aus!
Ich habe aber noch eine Bitte.
Von dem jeweils markierten Bereich sollte noch der Mittelwert
aus der Spalte E und der Spalte G berechnet werden und die
Berechnung sollte für Spalte E rechts daneben in H
und die Berechnung der Spalte G rechts daneben in I geschrieben werden!
Vielen Dank
Gruß Gerhard

Anzeige
AW: Bereiche suchen und markieren
13.08.2013 20:54:49
Heribert
Hi Gerhard,
vielleicht nicht die eleganteste Lösung (die Cracks hier haben das echt besser drauf)
aber so könnte es auch funktionieren.

Option Explicit
Sub Auswertung()
Dim i As Long
Dim funderste As Long
Dim fundletzte As Long
Dim wertee As Double
Dim werteg As Double
Dim anzwerte
Dim mitw1 As Double
Dim mitw2 As Double
wertee = 0
werteg = 0
anzwerte = 0
funderste = 0
fundletzte = 0
Range("H1:I" & Sheets(1).Cells(Cells.Rows.Count, 3).End(xlUp).Row).ClearContents
Range("A1:G" & Sheets(1).Cells(Cells.Rows.Count, 3).End(xlUp).Row).Interior.ColorIndex = xlNone
For i = 1 To Sheets(1).Cells(Cells.Rows.Count, 3).End(xlUp).Row
If Sheets(1).Cells(i, 3) >= Sheets(1).Range("L1") And Sheets(1).Cells(i, 3)  0 Then fundletzte = i
End If
Next
mitw1 = Application.WorksheetFunction.Average(Sheets(1).Range("E" & funderste & ":E" &  _
fundletzte))
mitw2 = Application.WorksheetFunction.Average(Sheets(1).Range("G" & funderste & ":G" &  _
fundletzte))
Sheets(1).Cells(fundletzte, 8).NumberFormat = "0.00000"
Sheets(1).Cells(fundletzte, 8).Value = mitw1
Sheets(1).Cells(fundletzte, 9).NumberFormat = "0.00000"
Sheets(1).Cells(fundletzte, 9).Value = mitw2
End Sub
Als Ansatz denke ich brauchbar.
bin dann mal weg
Heribert

Anzeige
AW: Bereiche suchen und markieren
14.08.2013 08:14:00
hary
Moin Gerhard
So? Mittelwerte in letzte Zelle des Bereichs in Spalte H und I.
Das kannst du aber auch einfacher mit bedingter Formatierung machen. 
Sub Auswertung()
Dim start As Variant
Dim ende As Variant
Dim wks As Worksheet
Set wks = Worksheets("Tabelle1")
wks.Range("A:G").Interior.ColorIndex = xlNone
wks.Range("H:I").ClearContents
start = Application.Match(wks.Range("L1"), wks.Range("C:C"), 0)
If IsNumeric(start) Then
ende = Application.Match(wks.Range("L2"), wks.Range("C:C"), 0)
If IsNumeric(ende) Then
With Range(wks.Cells(start, 1), wks.Cells(ende, 7))
.Interior.ColorIndex = 3
wks.Cells(ende, 8) = Application.Sum(Range(wks.Cells(start, 5), wks.Cells(ende, 5)))  _
/ .Rows.Count
wks.Cells(ende, 9) = Application.Sum(Range(wks.Cells(start, 7), wks.Cells(ende, 7)))  _
/ .Rows.Count
End With
End If
End If
End Sub

gruss hary

Anzeige
AW: Bereiche suchen und markieren
14.08.2013 12:15:36
Gerhard
Hallo zusammen,
Vielen Dank für Eure Hilfe!
Es funktioniert super! Danke
Gruß Gerhard

AW: Bereiche suchen und markieren
14.08.2013 12:18:38
Gerhard
Vielen Danke für Eure Hilfe
Ich habe die Variante von Heribert schon eingebaut und getestet
funktioniert super!
Danke
Gruß Gerhard

305 Forumthreads zu ähnlichen Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
Text in Zelle suchen und markieren
Heiko

Hi, Excelianer,
kenne mich mit der Suche nach Strings nicht gut aus...
Ich habe mit Excel einen Kalender (händisch) erstellt mit dem Datum jeweils eines Monats in Spalte A (Text in Zelle: "01.10.2008", durch Formatierung angezeigt: "Mittwoch, 01. Oktober 2008"). Die Tabellenblätter heiß...
30.10.2008 08:21:00
Thread-ID: 1020459
5 Beiträge
Zellen mit gleichem Inhalt farblich markieren
TomTom

Hi,
ich möchte meine Spalte "F5:F500" auf dem Sheet "Ausgabe" nach doppelten oder mehrfach vorkommenden Zellen (gleicher Inhalt) farblich rot markieren (Schriftfarbe Rot)
Wie macht man denn das ?
Danke
Tom
10.12.2008 09:02:54
Thread-ID: 1031574
5 Beiträge
Anzeige
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
In Spalte leere Zelle erkennen /farblich markieren
Joachim

Hi,
ich mal wieder: ich lese Daten in mein Tabellenblatt "DATEN" ein. Dann möchte ich überprüfen, ob es in der Spalte B irgendwo eine Zelle gibt , die leer ist. Den Range des Datenbereichs ermittle ich so:
lngRow = Cells.Find("*", , xlValues, 2, 1, 2, False, False).Row
Range("B10:B"...
21.04.2009 08:56:19
Thread-ID: 1069952
17 Beiträge
Datum suchen und markieren
edie

Hallo zusammen,
das recherchieren im Archiv hat mich nicht weiter gebracht, wäre schön, wenn mir jemand helfen könnte.
Im Bereich B6:B50 wird immer wieder ein Datum geschrieben und die Zelle markiert.
Nun soll das markierte Datum in der Spalte AA1:AA200 gesucht und die Zelle markie...
03.06.2009 21:54:16
Thread-ID: 1079017
2 Beiträge
Wortteil in Tabelle suchen und Zelle markieren
Elmar

Hallo zusammen,
ich bräuchte mal Hilfe... ich krieg´s irgenwie selbst nicht hin.
Ich möchte ein Makro, das mir Suchbegriffe aus einer Liste ausliest (Liste z.B. in Tabelle 2 von A1 bis A10) und damit (mit den Suchbegriffen) eine andere Tabelle dann durchsucht. Wenn der Begriff (das ist...
17.08.2009 22:44:22
Thread-ID: 1096582
8 Beiträge
Zellen farblich markieren
Uwe.Siebers

Guten Morgen,
in einem Arbeitsblatt "Zeitdaten" befinden sich in den Zellen "B6:B36" die Angaben zu den Tagen eines Monats (01 bis z.B. 31) In den Zellen "C6:C36" stehen dazu die Wochentage (z.B. Sa, So)
Wie bekomme ich`s nun hin, das die Zellen im Bereich "B6:Z36" immer dann farblich h...
10.09.2009 10:09:17
Thread-ID: 1101686
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
6
4
4
2
6
16
1
7
2
15
7
1
15
5
3
5
3
1
2
7
6
6
10
3