Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch Zeileninhalte auslesen

Automatisch Zeileninhalte auslesen
28.07.2005 17:32:56
Carsten
Hallo zusammen,
ich habe folgendes dringendes Problem, dass mit einem Makro gelöst werden soll:
In der ersten Tabelle stehen in Spalte B Maßnahmen aufgelistet. In den Spalten C und D sind Start und Ende der Maßnahmen aufgeführt. Zwischen Spalte E und y auf Zeile 1 sind die Kalenderwochen aufgelistet. In den Zeilen darunter wird farblich grün für jede Maßnahme hinterlegt, wenn die Maßnahme in die Kalenderwoche fällt.
Nun mein Problem: In der 2. Tabelle wird in der Zelle b1 eine Kalenderwoche z.B. 37 eingegeben. Aus der 1. Tabelle sollen die Maßnahmen, die in diese Kalenderwoche fallen (also mit grüner Hintergrundfarbe in der 1. Tabelle) in die 2. Tabelle untereinander Zeile für Zeile aufgelistet werden.
Ich weiß nicht, wie ich dies machen kann und benötige unbedingt eure Hilfe als VBA-Leihe!! Vielen Dank für Eure Hilfe im Voraus,
Carsten

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch Zeileninhalte auslesen
28.07.2005 17:52:10
Carsten
O.k.! Kann mir denn trotzdem jemand helfen?
AW: Automatisch Zeileninhalte auslesen
28.07.2005 19:41:58
Berber
Hallo Carsten,
kopiere den Code und lass ihn laufen.
In Tabelle1 e1 bis bd1 die KW 1-56
in Tabelle2 b1 der Suchwert z.b. 3 für Kw 3
Die gefundenen Maßnahmen werden in Spalte B ab Zeile 2 ausgegeben.
Die alten Werte müssen jeweils vorher gelöscht werden.

Sub wochesuchen()
With Worksheets(1).Range("d1:bd1")
Set c = .Find(Worksheets(2).Range("b1").Value)
If Not c Is Nothing Then
spalte = c.Column
Sheets(1).Activate
ActiveSheet.Cells(65536, 2).End(xlUp).Offset(-1 * Not IsEmpty(Cells(2, 1)), 0).Select
lastzeile = ActiveCell.Row
zeileX = 2
For zeile = 2 To lastzeile
If Sheets(1).Cells(zeile, spalte).Interior.ColorIndex = 50 Then 'chromgrün
'MsgBox ("grün")
Sheets(2).Cells(zeileX, 2).Value = Sheets(1).Cells(zeile, 2).Value
zeileX = zeileX + 1
End If
Next
End If
End With
End Sub

Gruss
Berber
Anzeige

304 Forumthreads zu ähnlichen Themen

Automatisches füllen von Zeilen aus Spalten
Zeilen

Hallo,
ich habe eine Datei, sie besteht aus 2 Tabellenblättern. Im Tabellenblatt "Ursprung" stehen die Daten, wie man sieht in einer Zeile nebeneinander. Ich habe nun diese Zeile mittels "Transportieren" in eine Spalte untereinander kopiert (im Tabellenblatt "Problem").
Nun habe ich ein...
24.10.2008 15:37:41
Thread-ID: 1019049
6 Beiträge
Anzeige
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Anzeige
Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
Stephan

Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
25.01.2009 12:52:00
Thread-ID: 1043550
11 Beiträge
Zeilennr. in gefilterten und markierten Bereich
Kasimir

Hallo Leute,
ich stehe auf dem Schlauch und weiß ehrlich auch nicht so ganz, ob das was ich realisieren möchte überhaupt geht?
Also, ich filtere über den Autofilter Daten. Bei diesen gefilterten Daten möchte ich danach einen Bereich, also mehrere zusammenhängende Zellen in einer Spalte...
04.04.2009 08:21:59
Thread-ID: 1066813
7 Beiträge
Abhaengige ComboBox - automatische Zeilenausgabe
AnRo

Hallo zusammen,
ich bin absoluter vb anfaenger und moechte folgende Loesung mit vb realisieren.
Ein Dateiname soll automatisch generiert werden. Hierzu werden drei Comboboxen ausgewaehlt und danach soll der Dateiname entsprechend der Auswahl ausgegeben werden.
Hierzu habe ich bereit...
26.05.2009 15:32:32
Thread-ID: 1077443
4 Beiträge
kleinster, resp grösster nicht ausgeblendeter Wert
Peter

Guten Abend
Ich möchte aus einem Spaltenbererich den grössten, resp. den kleinsten Wert ermitteln. Dabei dürfen nur Werte aus nicht ausgeblendeten Zeilen berücksichtigt werden.
Wie kann ich das anstellen?
Danke für eine Antwort.
Gruss, Peter
16.06.2009 20:38:45
Thread-ID: 1082045
2 Beiträge
ausgeblendete Zeilen mit einbeziehen
SteffenS

Hallo Zusammen,
ich ermittle meinen Bereich mit:
WS.Range(WS.Cells(16, 5), WS.Cells(i - 1, 34)).Interior.ColorIndex = xlNone
Leider werden dabei ausgeblendete Zeilen ignoriert.
Was muss ich tun damit die Zeilen mit geändert werden?
Danke im Voraus.
Steffen Schmerler
01.04.2010 21:42:39
Thread-ID: 1149923
6 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
5
6
2
4
11
10
6
3
1
5
1
7
4
1
2
2
1
1
2
3
4
10
5
6
8