Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

per VBA kopierte Zellen an der letzten Zelle der Spalte A anfügen

Frage Microsoft Microsoft Office

Mitglied: wachsi08

wachsi08 (Level 1) - Jetzt verbinden

09.09.2008, aktualisiert 13:15 Uhr, 14313 Aufrufe, 3 Kommentare

per VBA kopierte Zellen an der letzten Zelle der Spalte A anfügen

Hi @ll

ich hab mal wieder ein prisantes Problem. Ich habe eine Exceldatei mit meheren Tabellenblätter, in dem Tabellenblatt 1 markiere und kopiere
ich per Makro Daten die ich nur auf das Tabellenblatt 2 mittels makro einefügen lasse. Mein problem ist nun folgendes die Daten werden immer an der Fest vorgeben Zelle eingefügt, das will ich aber nicht ich will das die Daten an der letzten leeren Zelle eingefügt wird

anbei die Markros:
Sub Markieren_der_Zellen()


'
Selection.Copy
Sheets("24 V Leistung").Select " in diesem verweis springt das Makro auf die einfüge Zelle, welche aber jetzt fest vorgegeben ist was
Range("A17").Select " ich nicht will er soll die Daten an der letzten beschreibbaren Zelle anfügen


End Sub
Sub EINFÜGEN()
'

'
Range(ActiveCell.Address).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False


kann mir jemand ne gute Lösung zu meinem Problem sagen

Mit freundlichen Grüßen

wachsi08
Mitglied: bastla
09.09.2008 um 11:05 Uhr
Hallo wachsi08!

Das Einfügen sollte so klappen:
01.
Range("A65536").End(xlUp).Offset(1, 0).Select 
02.
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ 
03.
False, Transpose:=False 
04.
Application.CutCopyMode = False
Die angegebene Zelle "A65536" ist der Ausgangspunkt der Suche nach der letzten nicht leeren Zelle in Spalte A - kannst Du nachvollziehen, indem Du den Zellcursor in diese Zelle (kann auch eine nicht ganz so weit unten liegende sein ) setzt und die Tastenkombination Strg+PfeilNachOben verwendest.

Mit dem Zusatz ".Offset(1,0)" wird dann noch angegeben, dass (von der gefundenen Zelle ausgehend) die Markierung um 1 Zeile und 0 Spalten verschoben werden soll ...

Grüße
bastla
Bitte warten ..
Mitglied: wachsi08
09.09.2008 um 13:05 Uhr
Super es funktioniert

DANKE
Bitte warten ..
Mitglied: bastla
09.09.2008 um 13:15 Uhr
Hallo wachsi08!

Super es funktioniert
Du könntest diese erfreuliche Tatsache übrigens noch so dokumentieren ...

Grüße
bastla
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
gelöst Sheet in hinter letzten, verwenderten Spalte einfügen (9)

Frage von aivilon zum Thema VB for Applications ...

VB for Applications
gelöst Excel VBA Eine oder mehrere Zellen Verschieben (2)

Frage von batchnewbie zum Thema VB for Applications ...

Microsoft Office
gelöst Verschieben von Zellinformation in andere Spalte (per VBA) excel 2010 (5)

Frage von thomas1972 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Microsoft
Ordner mit LW-Buchstaben versehen und benennen (20)

Frage von Xaero1982 zum Thema Microsoft ...

Outlook & Mail
gelöst Outlook 2010 findet ost datei nicht (19)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (18)

Frage von Unwichtig zum Thema Netzwerkmanagement ...

Festplatten, SSD, Raid
M.2 SSD wird nicht erkannt (14)

Frage von uridium69 zum Thema Festplatten, SSD, Raid ...