Hi muss nee Gruppenarbeit mit einem Kollegen machn

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Helfer,

ich habe eine Frage/bitte bzw. brauche eure Hilfe.

Ich habe ein Makro welches wie folgt aussieht und müsste wenn ich den nächsten Datensatz der aus der gleichen Stelle kopiert wird immer in die nächste freie zeile wählen. Sprich wie in dem Makro angegeben jedoch muss der nächste Datensatz der eingefügt wird eine Zelle darunter immer eingefügt werden so das keine Daten überschrieben werden. Ich hoffe ich konnte mein Problem erklären und danke im Voraus für Ihre Hilfe:

Sub Objekt_einfügen()
’
’ Objekt_einfügen Makro
’

’
Range(„B10:C10“).Select
Selection.Copy
Sheets(„Basisdaten-Objekt“).Select
Range(„B7“).Select
ActiveSheet.Paste
Sheets(„Eingabemaske“).Select
Range(„D10:G10“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Basisdaten-Objekt“).Select
Range(„G7“).Select
ActiveSheet.Paste
Sheets(„Eingabemaske“).Select
Range(„H10:X10“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Basisdaten-Flächen“).Select
Range(„B7“).Select
ActiveSheet.Paste
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 2
End Sub

Sub Neuer_Standort()
’
’ Neuer_Standort Makro
’

’
Range(„B19:smiley:19“).Select
Selection.Copy
Sheets(„Sonstige Daten“).Select
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 28
Range(„C35“).Select
ActiveSheet.Paste
Sheets(„Eingabemaske“).Select
Range(„E19:J19“).Select
Application.CutCopyMode = False
Selection.Copy
Sheets(„Sonstige Daten“).Select
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 23
ActiveWindow.ScrollRow = 22
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 18
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 15
ActiveWindow.ScrollRow = 14
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 12
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 4
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
Range(„C17“).Select
ActiveSheet.Paste
End Sub

Würde es vlt. auch Sinn machen diese ganzen ScrollRow zu entfernen?

Bin ein blutiger Anfäger also nicht darüber wundern =)

Danke

Lg

Manu Haller

#2

Hi.

Kann es vielleicht sein, dass due das Makro aufgezeichnet hast?
Dann sind hier vielleicht ein paar „unnötige“ Zellen reingekommen.
Mach die Aufzeichnung dann nochmal und lass alles unnötige weg.
Sorry, mehr kann ich dir in der Kürze nicht mitgeben, da mir die Zeit gerade fehlt.

Im Zweifel schau in der Doku nach, was der „Scroll“ bewirkt.
Grüße
Jonn

#3

Was immer du machst vorher auswählst oder kopierst,

wenn du folgende 3 Befehle ausführst

ActiveCell.SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select
ActiveCell.Offset(1, 0).Range(„A1“).Select

stehst du in der nächsten leere Zeile deiner aktiven Tabelle.