Markierung erst ab B2

Forumthread: Markierung erst ab B2
9 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Markierung erst ab B2

Josef

Hallo!
Mit folgendem Makroauszug wird die Spalte B von B1 bis zum letzten eingetragenen Wert in Spalte A markíert.
Dim c As Range, ErgBereich As Range
For Each c In Range("B:B")
Ich möchte jedoch erreichen, dass die Markierung erst ab B2 beginnt. Wasmüßte ich dann bitte an der Zeile For Each c In Range("B:B") ändern?
Danke
Josef

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Markierung erst ab B2

Hajo_Zi
AW: Markierung erst ab B2

Josef
AW: Markierung erst ab B2

Hajo_Zi
AW: Markierung erst ab B2

Rudi
AW: Markierung erst ab B2

Josef
dann steht in B nichts. owT

Rudi
AW: dann steht in B nichts. owT

Josef
AW: dann steht in B nichts. owT

Rudi
AW: dann steht in B nichts. owT

Josef

AW: Markierung erst ab B2

08.04.2011 11:59:28

Hajo_Zi

Halo Josef,
mit dem Code wird noch nichts markiert.
For Each c In Range("B2:B65536")

AW: Markierung erst ab B2

08.04.2011 12:20:22

Josef

Hallo Rudi!
Hier wäre das ganze Makro:

Sub Markierung_Uebergabe_ü()
Dim c As Range, ErgBereich As Range
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Muster")
'''    For Each c In Range("B:B")
For Each c In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
If c.Offset(0, 1).Value  "" Then
Set ErgBereich = c
Exit For
End If
Next c
If ErgBereich Is Nothing Then
Exit Sub
Else
For Each c In Range(Cells(2, 2), Cells(Rows.Count, 2).End(xlUp))
'''      For Each c In Range("B:B")
If c.Offset(0, 1).Value  "" Then
Set ErgBereich = Application.Union(ErgBereich, c)
End If
Next c
ErgBereich.Select
Set ErgBereich = Nothing
End If
End Sub

AW: Markierung erst ab B2

08.04.2011 12:25:55

Hajo_Zi

Hallo Josef,
Du hast da Makro doch schon geändert. Dann teste es auch. Es macht das was gewünscht.
Die Zeilen
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Muster")
sind sinnlos.
Gruß Hajo

AW: Markierung erst ab B2

08.04.2011 12:05:01

Rudi

Hallo,
for each c in Range(cells(2, 2),cells(rows.count, 2).end(xlup))
Gruß
Rudi

AW: Markierung erst ab B2

08.04.2011 12:18:04

Josef

Hallo Rudi!
Danke für Deine Antwort.
Mit for each c in Range(cells(2, 2),cells(rows.count, 2).end(xlup)) wird leider nur b1 und b2 markiert.
Josef

dann steht in B nichts. owT

08.04.2011 12:19:36

Rudi

AW: dann steht in B nichts. owT

08.04.2011 12:22:45

Josef

Hallo!
In B steht ja auch nichts. Ich möchte hier ja nur eine Markierung erreichen und dann in die Markierung eine Formel mittels VBA reinbringen. Da hätte ich die Lösung schon. Ich hatte nur das Problem mit dem Beginn der Markierung.
Josef

AW: dann steht in B nichts. owT

08.04.2011 12:31:25

Rudi

Hallo,
dann halt
For Each c In Range(Cells(2, 2), Cells(Rows.Count, 3).End(xlUp).OffSet(, -1))
Gruß
Rudi

AW: dann steht in B nichts. owT

08.04.2011 12:34:10

Josef

Hallo Rudi!
Perfekt. Ich danke Dir für Deine Hilfe. Schönen Tag noch.
Josef