Selection.copy erweitern

Sub Mitglieder_alle_Kanal_neu_kopieren() ' Mitglieder_alle_Kanal_neu_kopieren Makro ' Makro am 31.08.2003 von Rolf aufgezeichnet Selection.Copy 'An dieser Stelle möchte nur die Zeile(C3) markieren, weil dort der Name steht 'die gesamte Adresse steht aber in Zeile(B3:H3) 'von Hand klappt das 'wie geht das automatisch With Sheets("Kanalscheine neu") Dim Loletzte As Long If Range("B145") = "" Then Loletzte = .Range("B23").End(xlUp).Row Selection.Copy Destination:=.Cells(Loletzte + 1, 2) Else MsgBox "keine Zelle mehr frei" End If End With Sheets("Kanalscheine neu").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Antwort() 'Hallo Rolf, soviel Zeit muss sein 'auch wenn man es im Code schreibt! :-) 'ist nicht so ganz einfach 'die im Code unvollständig 'versteckte Aufgabenstellung 'zu entschlüsseln 'eine Zeile C3 gibt es nicht 'meinst du Zeile 3? 'Statt Selection.Copy 'könnte es mit Rows(3).Copy 'klappen 'Gruß 'Peter End Sub

kurz zur Erklärung:
Ich habe eine Umfanreiche Datei mit vielen Tabellenblättern.
In einem Tabellenblatt stehen alle Daten (Adressen) in Zelle (B3:H130)
Dies kopiere ich in ein anderes Tabellenblatt, von wo ich Bescheiniungen anfordere.
Wenn ich jetzt von Hand z.B. die komplette Adresse in der zeile 5 markiere (B5:H5)und dann das Makro starte, klappt es.
Ich möchte jetzt aber in dieser Zeile nur die Zelle C5 markieren, dort steht der Nachname,es soll aber erweitert werden in die Zellen (B5:H5), weil man sehr aufpassen muss, die richtige markierung zu treffen.


Sub Mitglieder_alle_Kanal_neu_kopieren()
' Mitglieder_alle_Kanal_neu_kopieren Makro
' Makro am 31.08.2003 von Rolf aufgezeichnet
Selection.Copy
'An dieser Stelle möchte nur die Zeile(C3) markieren, weil dort der Name steht
'die gesamte Adresse steht aber in Zeile(B3:H3)
'von Hand klappt das
'wie geht das automatisch
With Sheets("Kanalscheine neu")
Dim Loletzte As Long
If Range("B145") = "" Then
Loletzte = .Range("B23").End(xlUp).Row
Selection.Copy Destination:=.Cells(Loletzte + 1, 2)
Else
MsgBox "keine Zelle mehr frei"
End If
End With
Sheets("Kanalscheine neu").Select
End Sub

Sub Mitglieder_alle_Kanal_neu_kopieren() ' Mitglieder_alle_Kanal_neu_kopieren Makro ' Makro am 31.08.2003 von Rolf aufgezeichnet ' überarbeitet am 01.09.2003 Dim Loletzte As Long With Sheets("Kanalscheine neu") If Range("B145") = "" Then Loletzte = .Range("B23").End(xlUp).Row Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 8)).Copy Destination:=.Cells(Loletzte + 1, 2) Else MsgBox "keine Zelle mehr frei" End If End With Sheets("Kanalscheine neu").Select End Sub

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread