Verkünpfungsprobleme. Brauche Hilfe...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
ein die Datei kann ich leider nicht hochladen, weil firmeninterne informationen enthalten sind...
beim start des documentes wird ein makro geöffnet.
aber dieses makro berührt alle zellen gleich... jedoch wenn ich das makro abstelle habe ich das problem net. aber in dem makro ist nichts besonderes..:


Private Sub Workbook_Open()
Sheets("Datenbank").Select
'-Variablendeklaration
Dim Zeile As Integer
Dim QuartalZaehler As Integer
Dim Jahrzaehler As Integer
'-Startwerte definieren
Zeile = 7
QuartalZaehler = 1
Jahrzaehler = 1999
'-Äußere Schleife. Aufruf der inneren Schleife. Anschließend wird der Zähler für die    '
'-Jahre (Jahrzaehler)um 1 erhöht. Dies wird so oft wiederholt, bis der bis der Zähler   '
'-für die Jahre das heutige Jahr + 1 erreicht hat. So ergibt sich eine Anzeige bis 1    '
'-Jahr im Vorraus.                                                                      '
Do
'-Wenn Quartal >4 setze Quartal auf zurück auf 1
If QuartalZaehler > 4 Then
QuartalZaehler = 1
End If
'-Innere Schleife. Füllt die "Quartal/Jahr" Spalte aus. Setzt Rahmen um die Zellen.     '
'-Anschließend wird die Zeile um 1 erhöht und die Schleife beginnt von vorne. Dies      '
'-wird so oft wiederholt, wie der Zähler für die Quartale (QuartalZaehler) <= 4 ist, da '
'-es nur 4 Quartale in einem Jahr gibt                                                  '
Do
'-Zelle ausfüllen z.B. 3/2005
Cells(Zeile, 1) = QuartalZaehler & "/" & Jahrzaehler
'-Rahmen setzen
Range("A" & Zeile & ":P" & Zeile).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
'-Spalte B und Spalte C färben
Range("B" & Zeile & ",C" & Zeile).Select
With Selection.Interior
.ColorIndex = 36
End With
'-Zähler hochzählen
QuartalZaehler = QuartalZaehler + 1
Zeile = Zeile + 1
'Abbruchbedingung innere Schleife
Loop While QuartalZaehler <= 4
'-Zähler hochzählen
Jahrzaehler = Jahrzaehler + 1
'-Abbruchbedingung äußere Schleife
Loop Until Jahrzaehler = (Year(Date) + 1)
End Sub

gruß

habs in der hilfe gefunden:
Aktivieren oder Deaktivieren erweiterter Formate und Formeln
Wenn Sie erweiterte Formate und Formeln aktivieren, formatiert Microsoft Excel neue Daten, die Sie am Ende der Liste eingeben, automatisch so, dass sie den vorangehenden Zeieln entsprechen, und kopiert außerdem automatisch Formeln, die sich in jeder Zeile wiederholen. Formate und Formeln müssen in mindestens drei der fünf Listenzeilen vor der neuen Zeile auftreten, damit sie erweitert werden.
Klicken Sie im Menü Extras auf Optionen, und klicken Sie dann auf die Registerkarte Bearbeiten.
Verwenden Sie eines der folgenden Verfahren:
Um neue Elemente, die Sie am Ende der Liste hinzufügen, automatisch entsprechend dem Rest der Liste zu formatieren, aktivieren Sie das Kontrollkästchen Listenformat und Formeln erweitern.
Um die automatische Formatierung zu verhindern, deaktivieren Sie das Kontrollkästchen.
gruss

Beliebteste Forumthreads (12 Monate)

Verkünpfungsprobleme. Brauche Hilfe...

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread