Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Abfrage vor Sortierung
zurück: Excel Such Makro weiter: Spalten mit Referenz-Tabellen abgleichen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
timbo6100
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Nov 2012, 17:57
Rufname:

Abfrage vor Sortierung - Abfrage vor Sortierung

Nach oben
       Version: Office 2003

Nabend,

krieg die Motten, habe folgenden Code der aber nur zur Hälfte klappt.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
       Dim Zielbereich As Range, Zielbereich2 As Range, Zielbereich3 As Range
  'Überprüfen, ob die richtige Zelle für Datum geändert wird
On Error GoTo 0
  Set Zielbereich = Application.Intersect(Range("G14:I33,K14:M33,O14:Q33,S14:U33,W14:Y33"), Target)
  Set Zielbereich2 = Application.Intersect(Range("G14:G33,K14:K33,O14:O33,S14:S33,W14:W33"), Target)
  Set Zielbereich3 = Application.Intersect(Range("I14:I33,M14:M33,Q14:Q33,U14:U33,Y14:Y33"), Target)


  If Not (Zielbereich Is Nothing) Then
  Call Blattschutz_aufheben

  Call AusZahlDatum(Zielbereich, Val(Range("P1").Value))
  Call Blattschutz_aktivieren

  End If
   
'Sortierung
On Error GoTo ende1
If IsDate(Zielbereich2) And IsDate(Zielbereich2.Offset(0, 2)) Then
Call horizontalSort
Call Blattschutz_aktivieren
End If
Exit Sub

ende1:
On Error GoTo ende2
If IsDate(Zielbereich3) And IsDate(Zielbereich3.Offset(0, -2)) Then
Call horizontalSort
Call Blattschutz_aktivieren
End If
Exit Sub

ende2:
On Error GoTo ende3
If Zielbereich2.ClearContents And IsEmpty(Zielbereich2.Offset(0, 2)) Then
Call horizontalSort
Call Blattschutz_aktivieren
End If
Exit Sub

ende3:
On Error GoTo ende
If Zielbereich3.ClearContents And IsEmpty(Zielbereich3.Offset(0, -2)) Then
Call horizontalSort
Call Blattschutz_aktivieren
End If
Exit Sub

ende:
  Call Blattschutz_aktivieren
 
  End Sub


Gebe in eine Liste Urlaubstermine ein (Start- und Enddatum). Sobald nun Start- und Enddatum eingetragen sind startet die Sortierung.
Die Sortierung startet nur sobald beide Daten eingegeben sind. Jetzt versuche ich, dass die Sortierung auch startet, sobald Start- und Enddatum gelöscht werden. Der Code läuft ohne Probleme, nur bei der Löschung wird die Sortierung nicht gestartet. Hat jemand eine Idee??

Gruß Timbo.
Kuwe
Excel-Anwender mit VBA


Verfasst am:
29. Nov 2012, 11:00
Rufname: Uwe

AW: Abfrage vor Sortierung - AW: Abfrage vor Sortierung

Nach oben
       Version: Office 2003

Hallo Timbo,

teste mal damit:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Zielbereich As Range, Zielbereich2 As Range, Zielbereich3 As Range
 
  'Überprüfen, ob die richtige Zelle für Datum geändert wird
  Set Zielbereich = Application.Intersect(Range("G14:I33,K14:M33,O14:Q33,S14:U33,W14:Y33"), Target)
  Set Zielbereich2 = Application.Intersect(Range("G14:G33,K14:K33,O14:O33,S14:S33,W14:W33"), Target)
  Set Zielbereich3 = Application.Intersect(Range("I14:I33,M14:M33,Q14:Q33,U14:U33,Y14:Y33"), Target)

  If Not (Zielbereich Is Nothing) Then
    Call Blattschutz_aufheben
    Call AusZahlDatum(Zielbereich, Val(Range("P1").Value))
   
    'Sortierung
    If Not (Zielbereich2 Is Nothing) Then
      If IsDate(Zielbereich2) And IsDate(Zielbereich2.Offset(0, 2)) Or _
         IsEmpty(Zielbereich2) And IsEmpty(Zielbereich2.Offset(0, 2)) Then _
        Call horizontalSort
      End If
    End If
    If Not (Zielbereich3 Is Nothing) Then
      If IsDate(Zielbereich3) And IsDate(Zielbereich3.Offset(0, -2)) Or _
         IsEmpty(Zielbereich3) And IsEmpty(Zielbereich3.Offset(0, -2)) Then _
        Call horizontalSort
      End If
    End If
    Call Blattschutz_aktivieren
  End If
End Sub

_________________
Gruß Uwe
timbo6100
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Nov 2012, 12:00
Rufname:


AW: Abfrage vor Sortierung - AW: Abfrage vor Sortierung

Nach oben
       Version: Office 2003

Moin,

endlich es klappt, danke danke!!


Gruß Timbo.
Neues Thema eröffnen   Neue Antwort erstellen 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: Formel für "Sortierung/Aussortierung" 12 _Hans_ 709 28. Dez 2006, 16:24
Kaischi Formel für "Sortierung/Aussortierung"
Keine neuen Beiträge Excel Formeln: Formel für eine Abfrage aus einer internetseite 1 sigi.hs 784 20. Dez 2006, 19:18
sigi.hs Formel für eine Abfrage aus einer internetseite
Keine neuen Beiträge Excel Formeln: Abfrage und Ausgabe aus verschiedenen Tabellenblättern 6 SPe 964 15. Okt 2006, 14:39
SPe Abfrage und Ausgabe aus verschiedenen Tabellenblättern
Keine neuen Beiträge Excel Formeln: Verzwickte Abfrage - Hilfe benötigt 2 Gast 598 10. Okt 2006, 14:25
Gast Verzwickte Abfrage - Hilfe benötigt
Keine neuen Beiträge Excel Formeln: Abfrage in 2 Zellen, Ausgabe in der 3. 29 Reve 1815 28. Aug 2006, 00:07
First Revenant Abfrage in 2 Zellen, Ausgabe in der 3.
Keine neuen Beiträge Excel Formeln: Abfrage zwischen Datumszeitraum 1 MrRipley 771 31. Jul 2006, 15:13
fl618 Abfrage zwischen Datumszeitraum
Keine neuen Beiträge Excel Formeln: Wenn Abfrage nach einem Teil einer Zelle 4 Biky 1311 18. Jun 2006, 18:16
Gast Wenn Abfrage nach einem Teil einer Zelle
Keine neuen Beiträge Excel Formeln: Abfrage, Übertrag 12 T1000 975 19. Apr 2006, 13:58
AndyRhandy Abfrage, Übertrag
Keine neuen Beiträge Excel Formeln: Fünffache Verknüpfung einer Abfrage 4 tasknet 1780 26. Feb 2006, 19:01
tasknet Fünffache Verknüpfung einer Abfrage
Keine neuen Beiträge Excel Formeln: doppelte wenn abfrage 5 unbelievable 7484 12. Feb 2006, 18:06
unbelievable doppelte wenn abfrage
Keine neuen Beiträge Excel Formeln: MIN und MAX Abfrage 7 SimonC 969 03. Feb 2006, 13:30
c0bRa MIN und MAX Abfrage
Keine neuen Beiträge Excel Formeln: "Verweis" ohne Sortierung? 3 ukm 1908 11. Nov 2005, 16:32
ukm "Verweis" ohne Sortierung?
 

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