markierte Zellen

• markierte Zellen von Martin vom 05.01.2007 08:55:43
• AW: markierte Zellen - von Ramses am 05.01.2007 09:56:46
• AW: markierte Zellen - von Martin am 05.01.2007 10:13:25
• AW: markierte Zellen - von WernerB. am 05.01.2007 10:16:02
• AW: markierte Zellen - von Martin am 05.01.2007 10:29:42

Betrifft: markierte Zellen
von: Martin

Geschrieben am: 05.01.2007 08:55:43
Hallo Ich habe ein kleines Problem
ich kopiere nach flogenem Script Daten,
aber am Schluss sind die Daten in den neuen Zeilen markiert... und sie sollten das nicht sein.

Sub Schaltfläche55_BeiKlick()
If Sheets("Produkte programierung").Range("M1") > 0.1 Then
Lrow = Sheets("Lieferschein zum Ausdruck").Range("A50").End(xlUp).Row + 1
If Lrow < 17 Or Lrow > 50 Then Exit Sub
Sheets("Produkte programierung").Range("M1:P1").Copy
Sheets("Lieferschein zum Ausdruck").Range("A" & Lrow).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End If
End Sub

Gruss Martin

Betrifft: AW: markierte Zellen
von: Ramses
Geschrieben am: 05.01.2007 09:56:46
Hallo
Dann wähle doch einfach eine andere Zelle aus ;-)
Am Ende
Range("A1").select
Gruss Rainer

Betrifft: AW: markierte Zellen
von: Martin
Geschrieben am: 05.01.2007 10:13:25
Ramses dein Humor gefällt mir :-)
wenn ich aber das mache sind die Zeilen immer noch markiert (vom Ziel der Kopie) und die Zelle A1 von der Quelle der Kopie ist aktiv

Betrifft: AW: markierte Zellen
von: WernerB.

Geschrieben am: 05.01.2007 10:16:02
Hallo Martin,
wie gefällt Dir das:

Sub Schaltfläche55_BeiKlick()
If Sheets("Produkte programierung").Range("M1") > 0.1 Then
Lrow = Sheets("Lieferschein zum Ausdruck").Range("A50").End(xlUp).Row + 1
If Lrow < 17 Or Lrow > 50 Then Exit Sub
Sheets("Produkte programierung").Range("M1:P1").Copy
Sheets("Lieferschein zum Ausdruck").Range("A" & Lrow).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Lieferschein zum Ausdruck").Range("A1").Copy
Sheets("Lieferschein zum Ausdruck").Range("A1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Betrifft: AW: markierte Zellen
von: Martin
Geschrieben am: 05.01.2007 10:29:42
Danke Dir du bist meine Rettung ;-)

Excel-Beispiele zum Thema "markierte Zellen"
Abfrage der markierten Spalten	Zeilen oberhalb der markierten Zellen einfügen
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren	Markierten Bereich drucken
Adressen grau markierter Zellen als Hyperlink eintragen	Makros in Abhängigkeit vom Zellennamen aufrufen
Zellen auf Kommentar überprüfen	Spalten bedingt summieren und Zellen formatieren
Text aus Textbox in Zellen aufteilen	Zellen vergleichen und markieren