Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Mehre Arbeitsblätter ansprechen
zurück: Combo-Box in UserForm weiter: Zeilenwerte zu Spaltenwerte-Transponieren mit Code Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Sued_Faust
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Nov 2004, 14:46
Rufname:

Mehre Arbeitsblätter ansprechen - Mehre Arbeitsblätter ansprechen

Nach oben
       

HI

Hier mein Code

Code:

Private Sub CommandButton1_Click()
Dim sp As Integer
Dim s As Integer
Dim tabe(20) As String
Dim byteNein As Byte
Dim byteNein2 As Byte
Dim byteNein3 As Byte
Dim byteNein4 As Byte
Dim a
Dim b
Dim c
Dim d




' Namen der Tabellenblätter an Variable tabe übergeben
Dim Blatt As Object
For Each Blatt In ActiveWorkbook.Sheets(Array("Variante1", "Variante2"))
    z = z + 1
    tabe(z) = Blatt.Name
Next Blatt
' Ab hier wird der Quelltext auf alle in der Arbeitsmappe
' vorhandenen Tabellenblätter angewendet
For s = 2 To z
    With ActiveWorkbook.Worksheets(tabe(s))
        .Range(.Cells(5, 6), .Cells(5, 256)).ClearContents
        For sp = 0 To DateDiff("m", CDate(Me.TextBox1.Value), CDate(Me.TextBox2.Value))
            .Cells(5, sp + 6).Value = sp + 1
        Next sp
    End With
Next s


Worksheets("Variante1").Range("F5:IV4").ClearFormats


Worksheets("Variante1").Range("F4:IV3").ClearContents

a = DateDiff("m", CDate(Me.TextBox1.Value), Cells(14, 3))
b = DateDiff("m", CDate(Me.TextBox1.Value), Cells(14, 5))
c = DateDiff("m", CDate(Me.TextBox1.Value), Cells(14, 7))
d = DateDiff("m", CDate(Me.TextBox1.Value), Cells(14, 9))
 
a = a + 1
b = b + 1
c = c + 1
d = d + 1

Set rngPruefbereich = Worksheets("Variante1").Range("F5:IV4")

For Each rngZelle In rngPruefbereich.Cells
 
 
  If rngZelle = a Then
    rngZelle.Interior.ColorIndex = 3
    Worksheets("Variante1").Cells(4, a + 5) = "P-Freigabe"
    byteNein = 1
   End If
   
    If rngZelle = b Then
    rngZelle.Interior.ColorIndex = 4
    Worksheets("Variante1").Cells(4, b + 5) = "B-Freigabe"
    byteNein2 = 2
  End If
 
    If rngZelle = c Then
    rngZelle.Interior.ColorIndex = 5
    Worksheets("Variante1").Cells(4, c + 5) = "PVS"
    byteNein3 = 3
  End If
 
    If rngZelle = d Then
    rngZelle.Interior.ColorIndex = 7
    Worksheets("Variante1").Cells(4, d + 5) = "O-Serie"
    byteNein4 = 4
  End If
   
Next rngZelle

If byteNein = 1 Then MsgBox "Der rot markierte Bereich ist die P-Freigabe"

If byteNein2 = 2 Then MsgBox "Der grün markierte Bereich ist die B-Freigabe"

If byteNein3 = 3 Then MsgBox "Der blau markierte Bereich ist PVS"

If byteNein4 = 4 Then MsgBox "Der rosa markierte Bereich ist die O-Serie"

End Sub
[size=9][/size]


Also ich weis erlich nicht wie ich bei den Rotmarkierten Arbeitsblätter mehrere ansprechen kann sie sollen mindestens 8 stk ansprechen also von Variante1 bis Variante8 und genau die nicht noch andere oben ging es ja da konnte ich wenigstens zwei ansprechen. aber bei den anderen habe ich keine anung wie ich das umsetze.

mfg

Farbliche Markierungen gelöscht! fridgenep
Nepumuk
VB / VBA Programmierer


Verfasst am:
06. Nov 2004, 19:54
Rufname: Max
Wohnort: Dusseldoof


AW: Mehre Arbeitsblätter ansprechen - AW: Mehre Arbeitsblätter ansprechen

Nach oben
       

Hi,

aus deinem Makro und der dazugehörigen Frage, werde ich beim besten willen nicht schlau. Kannst du versuchen das mal anders zu formulieren, eventuell so, wie du's einem Dreijährigen erklären würdest. Und wenn es sich einrichten lässt, den Code noch mal ohne den Versuch darin etwas farblich hervorzuheben.

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
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: Zelle anders ansprechen 2 Excel-Dummy 186 09. März 2011, 10:36
Excel-Dummy Zelle anders ansprechen
Keine neuen Beiträge Excel Formeln: Funktion ZählenWenn über mehrere Arbeitsblätter 4 winzi62 1337 06. Jan 2011, 15:16
winzi62 Funktion ZählenWenn über mehrere Arbeitsblätter
Keine neuen Beiträge Excel Formeln: SummeWenn (mehrere Arbeitsblätter) 0 Alustriele 297 06. Dez 2010, 15:48
Alustriele SummeWenn (mehrere Arbeitsblätter)
Keine neuen Beiträge Excel Formeln: Bereichsname dynamisch ansprechen? 10 Jeannette 2456 21. Apr 2010, 08:55
Jeannette Bereichsname dynamisch ansprechen?
Keine neuen Beiträge Excel Formeln: Dublettensuche über Arbeitsblätter hinweg 8 Gast 1237 07. Apr 2010, 15:45
Gast Dublettensuche über Arbeitsblätter hinweg
Keine neuen Beiträge Excel Formeln: Summe über mehrere Arbeitsblätter 6 palme80 918 05. März 2010, 15:07
palme80 Summe über mehrere Arbeitsblätter
Keine neuen Beiträge Excel Formeln: Registerkarte dynamisch ansprechen 5 Gast 862 17. Aug 2009, 18:29
Gast Registerkarte dynamisch ansprechen
Keine neuen Beiträge Excel Formeln: 2 Arbeitsblätter synchron laufen lassen 2 lukiredbull 490 14. Aug 2009, 13:09
lukiredbull 2 Arbeitsblätter synchron  laufen lassen
Keine neuen Beiträge Excel Formeln: Summe wenn über mehrere Arbeitsblätter Oder???? 4 saskiaengel 1404 20. Jul 2009, 00:16
shift-del Summe wenn über mehrere Arbeitsblätter Oder????
Keine neuen Beiträge Excel Formeln: mehre Spalten und Zeilen vergleichen (variabel) 9 rani73 2086 05. Mai 2009, 14:31
Kimba mehre Spalten und Zeilen vergleichen (variabel)
Keine neuen Beiträge Excel Formeln: Arbeitsblätter in Worksheet vergleichen und sep. ausgeben 1 Honnes 1399 20. März 2009, 11:34
faßnacht(IT); Arbeitsblätter in Worksheet vergleichen und sep. ausgeben
Keine neuen Beiträge Excel Formeln: Zähler für Arbeitsblätter ? 2 Simon-ch 295 28. Nov 2008, 16:20
Gast Zähler für Arbeitsblätter ?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Word Serienbriefe