Hallo Beatlefield,

na das ist ja mal eine Frage. Präzise gestellt, so dass sofort jeder versteht, was Dein Anliegen ist. Man weiß sofort um was es geht, obwohl man kein Hintergrundwissen hat.

Spaß beiseite, bitte erklär doch mal etwas genauer, was Du als Endergebnis haben möchtest. Denn aus Deiner Beschreibung werde ich zumindest nicht schlau. Denke daran, Du kennst Deine Datei und was Du Dir als Endergebnis vorstellst. Wir wissen von alle dem nichts.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

ja gut, und zwar ich habe ein makro für eine schnittstellen Programm erstellt im Excel, und da kommen immer wieder Datensätze dazu, und das makro soll mir helfen die dazugehörigen Datensätze mit mein vorgefertiges Makro auszuführen. Aber es macht nur bis zur der Anzahl von Datensätze die ich im Makro aufgezeichnet habe, aber da ständig datensätze dazu kommen, muss irgendwie mein makro die auch ausführen sprich umwandeln!!!!!!

Gruß Thomas

Danke

Hallo Thomas,

sorry, aber immer noch nicht verständlich, was genau Du meinst. Geht es darum, dass Du beim Aufzeichnen einen Bereich markiert hast, der in dem Makro abgearbeitet werden soll und dieser Bereich soll nun variabel werden? Als Beispiel der Bereich A1 bis A10 soll nun A1 bis Aletzte Zeile werden?

Poste doch mal Dein aufgezeichnetes Makro hier hinein, eventuell wirds dann etwas klarer.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hi Oliver,

Sub Kantinenschnittstelle()
'
' Kantinenschnittstelle Makro
' Makro am 15.11.2007 von thomas aufgezeichnet
'

'
ActiveWindow.SmallScroll Down:=-12
Columns("A:A").Select
Selection.NumberFormat = "00"
Columns("B:B").Select
Selection.NumberFormat = "000"
Columns("C:C").Select
Selection.NumberFormat = "000"
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
ActiveCell.FormulaR1C1 = "#"
Range("D1").Select
Selection.AutoFill Destination:=Range("D1:D72"), Type:=xlFillDefault
Range("D1:D72").Select
ActiveWindow.SmallScroll Down:=-60
Columns("E:E").Select
Selection.NumberFormat = "000000000.00"
Columns("F:G").Select
Selection.ClearContents
Columns("F:F").Select
Selection.NumberFormat = "000000000000000"
Range("F1").Select
ActiveCell.FormulaR1C1 = "0"
Range("F2").Select
ActiveCell.FormulaR1C1 = "0"
Range("F1:F2").Select
Selection.AutoFill Destination:=Range("F1:F72"), Type:=xlFillDefault
Range("F1:F72").Select
ActiveWindow.SmallScroll Down:=-54
Columns("D:D").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
Range("F1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("D69").Select
ActiveCell.SpecialCells(xlLastCell).Select
End Sub

ich habe die Spalte z.B. "A" makiert und dann hab ich auf zellen formatieren z.B. zwei Nullstellen gemacht und das macht er mir nur bis zur der Zelle wo ich geschrieben habe, aber wenn ich zwei oder mehrere daten hinzufüge werden sie nicht vom makro umgeweandelt spirch dieses beispiel umformatiert.

Hallo Thomas,

ersetze mal Dein Makro mit dem nachfolgenden. Teste das aber erst mal in einer Testdatei, da ich das Makro nicht getestet habe.

[b]Sub Kantinenschnittstelle()
Dim LastRowF As Long
Dim LastRowD As Long

LastRowF = Range("F65536").End(xlUp).Row
LastRowD = Range("D65536").End(xlUp).Row

ActiveWindow.SmallScroll Down:=-12
Columns("A:A").Select
Selection.NumberFormat = "00"
Columns("B:B").Select
Selection.NumberFormat = "000"
Columns("C:C").Select
Selection.NumberFormat = "000"
Columns("D:D").Select
Selection.Insert Shift:=xlToRight
ActiveCell.FormulaR1C1 = "#"
Range("D1").Select
Selection.AutoFill Destination:=Range("D1:D" & LastRowD), Type:=xlFillDefault
Range("D1:D" & LastRowD).Select
ActiveWindow.SmallScroll Down:=-60
Columns("E:E").Select
Selection.NumberFormat = "000000000.00"
Columns("F:G").Select
Selection.ClearContents
Columns("F:F").Select
Selection.NumberFormat = "000000000000000"
Range("F1").Select
ActiveCell.FormulaR1C1 = "0"
Range("F2").Select
ActiveCell.FormulaR1C1 = "0"
Range("F1:F2").Select
Selection.AutoFill Destination:=Range("F1:F" & LastRowF), Type:=xlFillDefault
Range("F1:F" & LastRowF).Select
ActiveWindow.SmallScroll Down:=-54
Columns("D:D").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
Range("F1").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range("D69").Select
ActiveCell.SpecialCells(xlLastCell).Select
End Sub[/b]

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}