2 Fragen eines Gelegenheitsnutzers

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: 2 Fragen eines Gelegenheitsnutzers
von: Max
Geschrieben am: 01.07.2002 - 16:42:54

Hallo, folgende Probleme kann ich leider nicht allein lösen:
1.) Wie zentriere ich Text über Spalten mit einem Makro, ohne dass die Zellen verbunden werden (das von Excel voreingestellte Makro verbindet leider die Zellen),

2.) Ich habe eine Tabelle mit der Schriftart StoneSans erhalten, die aber in meiner Version nicht installiert ist. Sobald ich die Schriftart auf dem Arbeitsblatt auf z.B. Arial ändere, ist die Seitenansicht nur noch sehr langsam möglich und Excel beendet nach einigen Versuchen selbständig mit Fehlermeldung.

Vielen Dank vorab.
Gruß

nach oben   nach unten

Zu Frage 1:Zentrieren über Spalten ohne verbinden
von: Martin Beck
Geschrieben am: 01.07.2002 - 17:01:48

Hallo Max,

besser für 2 Fragen 2 Threads eröffenen, erleichtert die Beantwortung.

Zu Frage 1:


Sub Zentrieren_ueber_Spalten()
    With Selection
        .HorizontalAlignment = xlCenterAcrossSelection
        .MergeCells = False
    End With
End Sub

Sub Verbinden_weg()
z = Range("A65536").End(xlUp).Row
sp = 1
Zeile = InputBox("Ab welcher Zeile?")
For i = Zeile To z
If Cells(i, 1).MergeCells = True Then

Do Until Cells(i, sp).MergeCells = False
sp = sp + 1
Loop

Range(Cells(i, 1), Cells(i, sp - 1)).MergeCells = False
Range(Cells(i, 1), Cells(i, sp - 1)).HorizontalAlignment = xlCenterAcrossSelection

End If
sp = 1
Next i
End Sub


Das zweite Makro ist eine "Zugabe", es hebt vorhanden Verbindungen wieder auf.

Zu Frage 2 muß ich passen.

Gruß
Martin Beck

nach oben   nach unten

Re: 2 Fragen eines Gelegenheitsnutzers
von: Silvio
Geschrieben am: 01.07.2002 - 18:10:20

Warum machste nicht einfach die fehlende Schriftart auf deinen Rechner:

http://www.fontexplorer.com/FontStore/445831633/UserTemplate/49

könnte weiterhelfen... Ich glaube der richtige Suchbegriff wäre

ITC Stone Sans

Hoffe hat geholfen
Bye Silvio

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "2 Fragen eines Gelegenheitsnutzers"