Hi Anna,
Der Datenschutz lässt es nicht zu mehr Infos preiszugeben.
Aber klar läßt er das zu. Was ich brauche ist eine KLEINE Beispieldatei mit identischem Aufbau, der Dateiinhalt ist egal.
Ich brauche nicht:
Name Vorname Gehalt Telefon
Mülller Heinz 123.567 0611-4566345
mir reicht:
Name Vorname Gehalt Telefon
abcdefgt hujetr 1234567 123-2345
oder, wenn das auch noch zu intim ist:
Bez1 Bez2 Nr1 Nr2
abcdefgt hujetr 1234567 123-2345
Sobald ich den Button fürs abspeichern drücke und dann die
Abfrage unter was ich sie speichern will kommt und sie dann
speichere,erscheint gleich darauf die zweite abfrage zum
Speichern.
Dem Button ist folgendes makro unterlegt:
Sub Alle_Zusammen()
Call EigenerName
Call EigenerName
End Sub
Sub EignerName ist das Speichermakro, und wenn es zweimal aufgerufen wird…
Ich habe nicht die Möglichkeit etwas in die Zellen
zu tippen.Langsam bin ich am verzweifeln.
Habe ich korrigiert, kannst wieder eintippen, Verzweiflung ist im Kaufpreis von Officepaketen gratis und mit Sicherheit immer dabei 
)
Hochgeladen habe ich sie hier:
http://www.hostarea.de/server-09/September-7d4640992…
Auf Tab1 gibt es jetzt 3 Buttons aus der Symbolleiste „Formular“, „Färben AUS“[Farbmodus], „Speichern“[Speichern] und „Farben zurücksetzen“[FarbeNormal].
(In den []-Klammern stehen die zugehörigen Makros. Die Aufschrift „Färben AUS“ togglet zwischen diesem Text und „Färben EIN“, also wechselt bei/durch jeden Aufruf.)
Prozeduren in DieseArbeitsmappe :
Option Explicit
Private Sub Workbook\_Open()
Dim Blatt As Object, Zeile As Long, Zähler As Integer
Range("B8:smiley:12").ClearContents
Zeile = 8
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name "Zusammenfassung" Then
Zähler = Zähler + 1
If Zähler Mod 2 = 1 Then Sheets("Zusammenfassung").Cells(Zeile, 2).Value = Blatt.Name
If Zähler Mod 2 = 0 Then Sheets("Zusammenfassung").Cells(Zeile, 4).Value = Blatt.Name
If Zähler Mod 2 = 0 Then Zeile = Zeile + 1
End If
Next Blatt
Merker = "11111111111111111111"
Farbe = True
Call FarbeSetzen(Farbe)
Range("A1").Select
Set LetzteZelle = Range("A1")
End Sub
Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
If Target.Cells.Count 1 Or Farbe = False Then Exit Sub
If Len(Target) > Len(Merker) Then
Target.Characters(Start:=Len(Merker) + 1, Length:=Len(Target.Value) - Len(Merker)).Font.ColorIndex = 5
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range)
Merker = Target.Value
Set LetzteZelle = Target
End Sub
Prozeduren in Modul1 :
Option Explicit
Public Merker, Farbe As Boolean, LetzteZelle As Range
Sub FarbeNormal()
ActiveSheet.UsedRange.Cells.Font.ColorIndex = 0 '=automatisch
End Sub
Sub Speichern()
Dim DATCl As Variant
DATCl = Application.GetSaveAsFilename _
(„JJJJ_MM_TT_QB-P_Reporting.XlS“, „Excel-Dateien (*.xls),*.xls“)
'der oben genannte Text gibt an, welcher Name beim speichern genannt wird
If DATCl False Then ActiveWorkbook.SaveAs DATCl
End Sub
Sub Farbmodus()
Farbe = Not Farbe
Call FarbeSetzen(Farbe)
LetzteZelle.Select
End Sub
Sub FarbeSetzen(F As Boolean)
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Select 'mir unklar, warum ich da den Umweg über Select gehen muss
If Left(Selection.Characters.Text, 6) = "Färben" Then
If Farbe Then
Selection.Characters.Text = "Färben AUS"
Else
Selection.Characters.Text = "Färben EIN"
End If
Exit For
End If
Next sh
End Sub
Gruß
Reinhard
