Bereich makieren

Forumthread: Bereich makieren

Bereich makieren

04.02.2004 10:55:30

Marco

Ich habe eine Userform7, in der ich den User über combobox1 (von) und combobox2 (bis) nach einem Datumszeitraum frage. Die kombbox bekommen beide Ihre Daten aus der Spalte A (fortlaufendes Datum )
Wie kann ich nun erreichen, dass ich für spätere Proz. den Bereich bzw. den Zeitraum von-bis, jewils alle Zellen in der Zeile makieren kann.
Z.B nach Abschluss von Userform7, wird die Zeilennr von bzw. bis in eine Zelle zur späteren Verwendung geschrieben ?!???
oder geht es komfortabler ?
viel dank

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bereich makieren

04.02.2004 10:59:44

Dirk
AW: Bereich makieren

04.02.2004 13:37:47

Marco
AW: Bereich makieren

04.02.2004 14:33:38

Dirk
geht nüttt

04.02.2004 17:59:29

Marco

AW: Bereich makieren

04.02.2004 10:59:44

Dirk

Hallo!
For i=1 to Cells(Cells(Rows.Count, 1).End(xlUp).Row , 1)
Damit erfasst Du A1 bis letzte gefüllte Zelle in A
Cheers

AW: Bereich makieren

04.02.2004 13:37:47

Marco

Das erklärt leider nicht mein Problem.
Ich möchte das in der Userform7 gesuchte Datum in der Spalte A suchen.
Er soll von der combobox1.value (Datum in A) bis zum combobox2.value (Datum in A) alle Zellen makieren (z.B. A234:IV238).

AW: Bereich makieren

04.02.2004 14:33:38

Dirk

Achso.
for i=1 to Cells(Cells(Rows.Count, 1).End(xlUp).Row , 1)
If range("A" &i).value = combobox1.value then exit for
next i
for j=1 to Cells(Cells(Rows.Count, 1).End(xlUp).Row , 1)
If range("A" &i).value =combobox2.value then exit for
next j
Range (cells(i,1),cells(j,"*1*")).select
Is jetzt zwar ungetestet und geht mit Sicherheit auch eleganter, aber sollte so funktionieren. Die "*1*" in der letzten Anweisung tauschst Du gegen die letzte Spalte aus. also meinetwegen "cells(j,255)"
Ich hoffe, das hilft.
Cheers

geht nüttt

04.02.2004 17:59:29

Marco

Habe es nun versucht. Einfacherheitshalber schreibe ich nun die Werte der Userform vorher in das Sheet Jahresplan AF7 bzw. AF8.
Wenn er sich dort das DAtum jeweils rausnehmen soll, muniert er, dass die Methode Range für Global nicht funktioniert...?

For i = 1 To Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)
If Range("A" & i).Value = Sheets("Jahresplan").Range("AF7").Value Then Exit For
Next i
For j = 1 To Cells(Cells(Rows.Count, 1).End(xlUp).Row, 1)
If Range("A" & i).Value = Sheets("Jahresplan").Range("AF8").Value Then Exit For
Next j
Range(Cells(i, 1), Cells(j, 255)).Select
With Selection
.Cells.Locked = False
.Cells.FormulaHidden = True
End With

Beliebteste Forumthreads (12 Monate)

Forumthread: Bereich makieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread