Anzeige
Archiv - Navigation
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formeln statt Werte in VBA

Formeln statt Werte in VBA
Gonzer
Hallo zusammen,
das unten aufgeführte VBA funktioniert perfekt - nur möchte ich im neuen Arbeitsblatt gerne die Formeln übernehmen und nicht nur die Werte aus der Ursprungsdatei:
Sub export()
s = GetDirectory("Bitte wählen Sie einen Ordner")
If s = "" Then
MsgBox "abgebrochen!"
Exit Sub
Else
Dim rng As Range
Dim col As New Collection
Dim iRow As Integer
Dim sFile As String
Application.ScreenUpdating = False
ActiveSheet.Columns("A:A").Hidden = False
iRow = 2
sFile = s
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 2))
col.Add Cells(iRow, 2).Value, Cells(iRow, 2).Value
iRow = iRow + 1
Loop
On Error GoTo 0
Application.DisplayAlerts = False
For iRow = 1 To col.Count
Range("A1").CurrentRegion.AutoFilter field:=2, Criteria1:=col(iRow)
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Workbooks.Add
rng.Copy Range("A1")
ActiveWorkbook.SaveAs sFile & "\" & col(iRow) & ".xlsx"
ActiveSheet.Columns("A:A").Hidden = True
ActiveWorkbook.Close savechanges:=True
Next iRow
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ActiveSheet.AutoFilterMode = False
MsgBox "fertig!"
End If
End Sub

Danke!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
Recht merkwürdiges "VBA", was sich...
02.03.2011 16:03:23
Luc:-?
…möglicherweise aus der Anwendungsdatei erklärt, Gonzer…
Wenn du sicher bist, dass das Makro (VBA heißt die Sprache, in der es geschrieben ist! ) optimal ist und die Formeln auch im neuen Blatt richtig rechnen würden (ich kann das nicht sein!), kannst du es ja mal mit .Formula statt .Value bei col.Add versuchen…
Gruß Luc :-?
Anzeige

327 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige