Bereich mit Variablen Markieren :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2002] Bereich mit Variablen Markieren

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 23.01.2008, 13:14

Hallo Forum,

wie kann ich einen Bereich mit Variablen markieren ?

Also statt Range("A5:C7").Select

Range("XY:ZZ).Select
Ih habe es schon mit cells(x,y) porbiert, aber das geht nicht.
Hat irgendjemand eine Idee ?

Ciao

_________________
Chakko

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 23.01.2008, 13:32

Hallo!

Meinst du sowas?

Code:

Dim LinksOben As String, RechtsUnten As String
LinksOben = "C3"
RechtsUnten = "D5"
Range(LinksOben & ":" & RechtsUnten).Select

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

john g.
Office-Spezialist

Anmeldedatum: 10.03.2006
Beiträge: 339

Verfasst am: 23.01.2008, 13:55

Hallo,

oder mit Eingabe in Zellen z.B.:

a = Range("a1")
b = Range("b1")
Range(a & ":" & b).Select

_________________
Gruß
J.

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 23.01.2008, 17:32

Ja genausowas meinte ich und zunächst hat es auch geklappt.
Nachdem ich das feritige Makro aber in ein anderes Worksheet bertragen habe kommt eine Fehlermeldung, die ich mir nicht erklären kann:
bereits in der Zeile

Code:

Range("L5").Select

kommt die Fehlermeldung Laufzeitfehler 1004 - Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden.

Hier das vollständige Makro.

Code:

Private Sub CommandButton1_Click()
Range("L5:N28").Select
Selection.Copy
Workbooks.Add
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Dim Zeile As Integer
Dim i As Integer
Dim loesch As Integer
Dim z$

loesch = 0
For Zeile = 28 To 5 Step -1

z$ = Right$(Str$(Zeile), Len(Str$(Zeile)) - 1)

Wert1 = Range("L" + z$)
Wert2 = Range("M" + z$)
Wert3 = Range("N" + z$)

If (Wert1 = 0 Or Wert1 = "") And (Wert2 = 0 Or Wert2 = "") And (Wert3 = 0 Or Wert3 = "") Then ActiveSheet.Rows(Zeile).Delete: loesch = loesch + 1

Next Zeile
Dim b$
loesch = 28 - loesch
b$ = "N" + Right$(Str$(loesch), 1)

Range("L5" & ":" & b$).Select
Selection.Copy

End Sub

ES solltenaus einem Tabellenberich die leeren Zeilen entfernt werden und der Restbereich dann in de Zwischenalage kopiert werden, um ihn dann in eine WordDatei einzufügen.
Ich krieg zuviel, es lief wirklcih genauso, wie ich es wollte., Stöhn

_________________
Chakko

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 23.01.2008, 17:48

Hallo!

Bei mir erscheint dieser Fehler nicht...

Kleiner Tipp:
Du kannst auf "Select" in 99% aller Fälle verzichten:

Code:

Range("L5:N28").Copy
Workbooks.Add
Range("L5").PasteSpecial Paste:=xlPasteValues
Range("L5").PasteSpecial Paste:=xlPasteFormats
Range("L5").PasteSpecial Paste:=xlPasteColumnWidths

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 04.02.2008, 18:19

Hallo Schatzi,

nachdem der Fehler bei mir immer wieder aufgetreten ist habe ich jetzt wohl herausgefunden woran es lag.
Das Makro funktionierte als Private Sub nur, wenn ich keine neue Arbeutsmappe öffne.
So funtioniert es :

Code:

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:="sr1"

Range("L5:N28").Select
Selection.Copy
'Workbooks.Add ******************diese Zeile habe ich deaktiviert !
Range("L5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

Dim Zeile As Integer
Dim i As Integer
Dim loesch As Integer
Dim z$

loesch = 0
For Zeile = 28 To 5 Step -1

z$ = Right$(Str$(Zeile), Len(Str$(Zeile)) - 1)

Wert1 = Range("L" + z$)
Wert2 = Range("M" + z$)
Wert3 = Range("N" + z$)

If (Wert1 = 0 Or Wert1 = "") And (Wert2 = 0 Or Wert2 = "") And (Wert3 = 0 Or Wert3 = "") Then ActiveSheet.Rows(Zeile).Delete: loesch = loesch + 1

Next Zeile
Dim b$

loesch = 28 - loesch
b$ = "N" + Right$(Str$(loesch), Len(Str$(loesch)) - 1)

Range("L5" & ":" & b$).Select
Selection.Copy

End Sub

Ich würde es aber gern auch in einer anderen Arbeitsmappe hinkriegen, damit die Ursprungstabeller erhalten bleibt. Kennst Du ne Lösung ?

_________________
Chakko

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 04.02.2008, 18:32

Hallo!

Klappt es mit dieser Anpassung?

ActiveSheet.Range("L5").Select

chakko
Newbie
Newbie

Anmeldedatum: 03.09.2007
Beiträge: 42

Verfasst am: 05.02.2008, 16:18

Ich habs gerade ausprobiert und es klappt !!!!

Du hast es mal wieder geschafft und mein Problem gelöst.

Vielen, vielen Dank !

Laughing

_________________
Chakko

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Diagram bereich zwischen zwei linen f...	Thagor	Microsoft Excel Hilfe	1	18.12.2008, 13:05
	Bereich eingrenzen	Harro	Microsoft Excel Hilfe	6	16.11.2008, 21:52
	Dynamischer Bereich - kapier's nicht	trottlbua	Microsoft Excel Hilfe	0	02.10.2008, 10:46
	sicher nur einfache Variablen ....	SparkY	Microsoft Excel Hilfe	3	17.09.2008, 08:02
	Spalten vergleichen und doppelte Eint...	gorbi-9000	Microsoft Excel Hilfe	6	09.09.2008, 09:04

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de