Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Forum-Regeln :: FAQ :: Forum-Suche :: Mitgliederliste :: Benutzergruppen :: Favoriten ::  Registrieren :: Profil :: Briefkasten :: Login
Werte aus vorherigem Tabellenblatt
Office Forum -> Excel Forum -> Excel VBA (Makros)
zurück: Klassen weiter: Macro funktioniert nach Neuinstallation von Excel nicht mehr Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
MatsM
Gast


Verfasst am:
20. Jul 2008, 13:19
Rufname:

Werte aus vorherigem Tabellenblatt - Werte aus vorherigem Tabellenblatt

 Nach oben
       Version: Office 2007
Hallo,

ich bin noch nicht sonderlich bewandert in VBA, möchte mir aber trotzdem ein Makro erstellen.

Ich plane vollgendes:

Beim Ausführen meines Makros soll ein Neues Tabellenblatt erstellt werden, dass als Namen das Datum trägt. Soweit gibt es auch noch kein Problem.

Den Namen, also das Datum würde ich gern duch eine Inputbox eingeben. Das hab ich auch noch hinbekommen.

Jedoch habe ich nun Probleme, Werte aus vorherigen Tabellen, in meine aktuellen (von diesem Tag) hineinzukopieren, da ich weiß wie ich das letzte Tabellenblatt ansprechen soll.

Es gibt keine Regelmäßigkeit bei Tagen oder Datum. Ich brüchte also immer die Werte vom Tabellenblatt, dass als letztes vor dem aktuellen entstanden ist.

Danke
Mats
Nepumuk
VB / VBA Programmierer


Verfasst am:
20. Jul 2008, 15:11
Rufname: Max
Wohnort: Dusseldoof

AW: Werte aus vorherigem Tabellenblatt - AW: Werte aus vorherigem Tabellenblatt

 Nach oben
       Version: Office 2007
Hallo Mats,

haben alle Tabellen in der Mappe ein Datum als Name? Welches Format hat das Datum?
_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
MatsM
Gast


Verfasst am:
20. Jul 2008, 15:17
Rufname:

AW: Werte aus vorherigem Tabellenblatt - AW: Werte aus vorherigem Tabellenblatt

 Nach oben
       Version: Office 2007
Ja, alle Tabellen haben als Namen ein Datum. Format weiß ich nicht.
Nepumuk
VB / VBA Programmierer


Verfasst am:
20. Jul 2008, 15:19
Rufname: Max
Wohnort: Dusseldoof

AW: Werte aus vorherigem Tabellenblatt - AW: Werte aus vorherigem Tabellenblatt

 Nach oben
       Version: Office 2007
Hallo Mats,

na z.B. TT.MM.JJJJ also für heute 20.07.2008 oder so in der Art.
_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
Gast



Verfasst am:
20. Jul 2008, 16:19
Rufname:

AW: Werte aus vorherigem Tabellenblatt - AW: Werte aus vorherigem Tabellenblatt

 Nach oben
       Version: Office 2007
ja, ist TT.MM.JJJJ
Nepumuk
VB / VBA Programmierer


Verfasst am:
20. Jul 2008, 17:07
Rufname: Max
Wohnort: Dusseldoof

AW: Werte aus vorherigem Tabellenblatt - AW: Werte aus vorherigem Tabellenblatt

 Nach oben
       Version: Office 2007
Hallo Mats,

ein Beispioelcode:

Code:
Option Explicit

Public Sub Vorletztes_Blatt_kopieren()
    Dim dtmSheetArray() As Date
    Dim objSheet As Worksheet
    Dim intSheetCount As Integer
    For Each objSheet In ThisWorkbook.Worksheets
        If IsDate(objSheet.Name) Then
            intSheetCount = intSheetCount + 1
            ReDim Preserve dtmSheetArray(1 To intSheetCount)
            dtmSheetArray(intSheetCount) = CDate(objSheet.Name)
        End If
    Next
    Call prcSort(LBound(dtmSheetArray), UBound(dtmSheetArray), dtmSheetArray)
    With Worksheets(CStr(dtmSheetArray(UBound(dtmSheetArray) - 1)))
   
        MsgBox .Name 'nur für Demozwecke
       
        'hier kommt dein Kopiercode rein
       
    End With
End Sub

Private Sub prcSort(intLBorder As Integer, intUBorder As Integer, dtmSheetArray() As Date)
    Dim intIndex1 As Integer, intIndex2 As Integer
    Dim dtmBuffer As Date, dtmTemp As Date
    intIndex1 = intLBorder
    intIndex2 = intUBorder
    dtmTemp = dtmSheetArray(intLBorder + intUBorder \ 2)
    Do
        Do While dtmSheetArray(intIndex1) < dtmTemp
            intIndex1 = intIndex1 + 1
        Loop
        Do While dtmTemp < dtmSheetArray(intIndex2)
            intIndex2 = intIndex2 - 1
        Loop
        If intIndex1 <= intIndex2 Then
            dtmBuffer = dtmSheetArray(intIndex1)
            dtmSheetArray(intIndex1) = dtmSheetArray(intIndex2)
            dtmSheetArray(intIndex2) = dtmBuffer
            intIndex1 = intIndex1 + 1
            intIndex2 = intIndex2 - 1
        End If
    Loop Until intIndex1 > intIndex2
    If intLBorder < intIndex2 Then Call prcSort(intLBorder, intIndex2, dtmSheetArray())
    If intIndex1 < intUBorder Then Call prcSort(intIndex1, intUBorder, dtmSheetArray())
End Sub

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
Neues Thema eröffnen   Neue Antwort erstellen     Nach oben Alle Zeiten sind
GMT + 1 Stunde
Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Werte aus Liste raussuchen 8 KARL 1217 30. Apr 2014, 18:10
Holger1968 Werte aus Liste raussuchen
Keine neuen Beiträge Excel Formeln: Ausgewählte Werte aus Auswahlliste aktualisieren 10 Dave 2531 20. Dez 2013, 22:58
Daniel Albert Ausgewählte Werte aus Auswahlliste aktualisieren
Keine neuen Beiträge Excel Formeln: Mehrere Werte aus einer Zelle einzeln darstellen 2 Gast 1113 24. Mai 2005, 11:25
Gast Mehrere Werte aus einer Zelle einzeln darstellen
Keine neuen Beiträge Excel Formeln: vertikale ausgabe einer anzahl werte 7 grim reaper 688 21. Apr 2005, 19:14
Detlef 42 vertikale ausgabe einer anzahl werte
Keine neuen Beiträge Excel Formeln: Alle Werte einer Spalte zusammenzählen 4 Gaaast 1109 13. Apr 2005, 22:14
Scelina Alle Werte einer Spalte zusammenzählen
Keine neuen Beiträge Excel Formeln: Zählen wenn nicht leer über ganzes Tabellenblatt 5 musli99 1309 05. Apr 2005, 11:30
Thomas Ramel Zählen wenn nicht leer über ganzes Tabellenblatt
Keine neuen Beiträge Excel Formeln: Werte auslesen und anzeigen 5 El-Gringo 2733 29. März 2005, 18:05
El-Gringo Werte auslesen und anzeigen
Keine neuen Beiträge Excel Formeln: Änderung auf anderes Tabellenblatt übernehmen????SVERWEIS??? 4 Julie 1238 18. März 2005, 15:01
Julie Änderung auf anderes Tabellenblatt übernehmen????SVERWEIS???
Keine neuen Beiträge Excel Formeln: Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage 6 original-m 1708 25. Feb 2005, 11:25
Sigrid Werte aus 2. Datei/Tabellenblatt übertragen //Zusatzfrage
Keine neuen Beiträge Excel Formeln: mehrere Werte einzelner zellen einer zelle zu weisen 1 cygnus0815 1326 24. Feb 2005, 14:09
Gästchen mehrere Werte einzelner zellen einer zelle zu weisen
Keine neuen Beiträge Excel Formeln: Will Werte addieren in Bezug zu einer anderen Spalte 8 MrMr 2236 08. Jan 2005, 14:50
xyzdef Will Werte addieren in Bezug zu einer anderen Spalte
Keine neuen Beiträge Excel Formeln: Anzahl identischer Werte 2 Toledo 2627 04. Dez 2004, 01:19
Toledo Anzahl identischer Werte
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme