Office: Variable Bereiche markieren

JobCoach · 6. Juli 2007

Hi Folks,

wie kann ich variable Bereiche einer Tabelle mittels VBA markieren.

Die Spaltenanzahl ist immer gleich. Der Bereich beginnt bei A3 bis G3.
Die Zeilenanzahl variiert. (manchmal drei, manchmal 25)

Ich weiss was der Code bewirken soll, bekomme jedoch den Code nicht zuzsammen. Wer kann helfen. Danke.

:)

Fibonacci · 7. Juli 2007

Hallo,

wird die Dynamik durch Kennzeichen oder aber einfach durch die Anzahl der
befüllten Zeilen bestimmt?

Für alle Fälle 3 Möglichkeiten:
Code:

Sub Selektieren()

Dim C As Range, WS As Worksheet

Set WS = ActiveSheet
Set C = WS.Cells

WS.Range(C(1, 1), C(7, 7)).Select

Union(WS.Range(C(1, 1), C(7, 7)), WS.Range(C(10, 1), C(12, 7))).Select

WS.Range(C(1, 1), C(C(65536, 1).End(xlUp).Row, 7)).Select
'C(65536, 1).End(xlUp).Row --> prüft von unten (65536) in der Spalte 1, welches die letzte befüllte Zelle ist

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß

Fibo

jinx · 8. Juli 2007

Moin, JobCoach,

es ist nicht ntowendig, einen Bereich irgendwie zu markieren, um Änderungen oder Bearbeitungen daran vorzunehmen: das alles lässt sich durch eine With-Anweisung besser lösen:

Code:

' durchgängig gefüllter Bereich auf einer aktiven Tabelle
With Range("A3:G" & Range("G3").End(xlDown).Row)
'... Aktionen
End With
'===
' nicht durchgängig gefüllter Bereich
With Range("A3:G" & Cells(Rows.Count, 7).End(xlUp).Row)
'... Aktionen
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JobCoach · 8. Juli 2007

Hi Leute,

erstmals danke für eure Antworten. Bin noch nicht zum Ausprobieren gekommen. Melde mich dann wieder.

JobCoach · 12. Januar 2021

von JobCoach

Hi Leute,

erstmals danke für eure Antworten. Bin noch nicht zum Ausprobieren gekommen. Melde mich dann wieder.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hi,

da ich sicher etwas falsch mache hänge ich die Datei an.
Um die Daten von Anmeldungen nach PaS zu übertragen müssen die Datensätze erst markiert werden. Geht das nicht auch automatisch. Kann man den Code Sub Uebergeben nicht erweitern?

Danke im Voraus für euer Bemühen.

Manfred

jinx · 8. Juli 2007

Moin, Manfred,

für den Zweck in der UserForm benutzt man gemeinhin Optionsschaltflächen...

Es ist schlichtweg falsch, dass die Daten markiert werden müssen - wer behauptet so etwas?
Code:

Sub Übertrag()
Dim lngLastRow As Long
Dim lngToCopy As Long
lngLastRow = Worksheets("Anmeldungen").Cells(Rows.Count, 1).End(xlUp).Row
With Sheets("PaS")
lngToCopy = .Cells(.Rows.Count, 1).End(xlUp).Row - 3
Worksheets("Anmeldungen").Range("A" & lngLastRow + 1).Resize(lngToCopy, 3).Value = _
.Range(.Cells(4, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 3)).Value
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte auf die Punkte achten... *wink.gif*

JobCoach · 8. Juli 2007

Hi Jinx,

klappt wunderbar so mit deinem Code. Was muss ich noch einfügen, das der übertragene Bereich dann geleert wird?

jinx · 8. Juli 2007

Moin, nfred,

die Anweisung heißt ClearContents - etwa so (obwohl sich da aauch noch eine weitere With-Anweisung einfügen lässt):
Code:

With Sheets("PaS")
lngToCopy = .Cells(.Rows.Count, 1).End(xlUp).Row - 3
Worksheets("Anmeldungen").Range("A" & lngLastRow + 1).Resize(lngToCopy, 3).Value = _
.Range(.Cells(4, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 3)).Value
.Range(.Cells(4, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 3)).ClearContents
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

JobCoach · 8. Juli 2007

Hi Jinx,

klappt bestens. Danke.*Smilie

Office: Variable Bereiche markieren

Variable Bereiche markieren

Variable Bereiche markieren

Variable Bereiche markieren

Variable Bereiche markieren

Variable Bereiche markieren - Similar Threads - Variable Bereiche markieren

Variablen Bereich löschen

Range-Bereich mit Variablen definieren

Variabler Bereich für Mittelwerte

Makro Summenformel auf variablen Bereich anpassen

Bereich markieren mit 2 Variablen

VBA - Formel kopieren - variabler bereich

Bereich mit Variablen Markieren