Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

VBA Ausgabe in neue Datei

Betrifft: VBA Ausgabe in neue Datei von: MarkusL
Geschrieben am: 08.08.2008 17:42:31

Hallo,

ich habe folgendes Problem:

In einer Datei befinden sich nachfolgende Datensätze

Jahr Monat Feld_1 Feld_2 Feld_3 Feld_4 Feld_5 usw.

es sollen nun per VBA nach Abfrage von Jahr und Monat ein neuer Datensatz in einer neuen Datei erzeugt werden, der allerdings nur noch die Felder 1,2 und 5 enthält.

Kann mir jemand bei diesem Problem helfen?

Danke schon einmal im voraus

Markus

  

Betrifft: AW: VBA Ausgabe in neue Datei von: Uduuh
Geschrieben am: 08.08.2008 18:15:59

Hallo,
ungetestet und ohne Fehlerbehandlung:

Sub tt()
Dim iMonat As Integer, iJahr As Integer
Dim i As Long, vntTmp(), iRows As Long, n As Long
iMonat = Application.InputBox("Monat?", , , , , , , 1)
iMonat = Application.InputBox("Monat?", , , , , , , 1)
iRows = Cells(Rows.Count, 1).End(xlUp).Row
ReDim vntTmp(1 To 3, 1 To iRows)
  For i = 1 To iRows
    If Cells(iRows, 1) = iJahr And Cells(i, 2) = iMonat Then
      n = n + 1
      vntTmp(1, n) = Cells(i, 3)
      vntTmp(2, n) = Cells(i, 4)
      vntTmp(3, n) = Cells(n, 7)
    End If
  Next
  ReDim Preserve vntTmp(1 To 3, 1 To n)
  Workbooks.Add (1)
  Cells(1, 1).Resize(n, 3) = WorksheetFunction.Transpose(vntTmp)
End Sub


Gruß aus’m Pott
Udo



  

Betrifft: AW: VBA Ausgabe in neue Datei von: MarkusL
Geschrieben am: 08.08.2008 18:39:10

Hallo Udo,

vielen Dank für das Script, ich habe das erste iMonat in iJahr geändert und alles funtz super.

Gruß in den Pott
Markus


 

Beiträge aus den Excel-Beispielen zum Thema "VBA Ausgabe in neue Datei"