Mehrere kleine Fragen

jargo_1ff638 · 7. September 2006 um 16:11

Hi miteinander!
Ich habe mehrere kleine Fragen:

Ich habe eine Zelle in Tabelle 1, die den Inhalt aus einer Zelle in Tabelle 2 übernimmt. Ist es möglich, dass die Zelle sich automatisch an die Länge des Textes anpasst?
Ist es möglich ein Diagramm an eine bestimmte Bedingung zu knüpfen? Also anzeigen wenn das und das gegeben ist, sonst nich?!

3)Ist es möglich ein „Abrutschen“ im Tabellenblatt zu verhindern??Dass man also z.B. nur bis zu einer bestimmten Stelle runterscrollen kann?

So das wars erstma!

MfG, Jan!

Reinhard_fb8cb7 · 7. September 2006 um 18:42

zu 3

3)Ist es möglich ein „Abrutschen“ im Tabellenblatt zu
verhindern??Dass man also z.B. nur bis zu einer bestimmten
Stelle runterscrollen kann?

Hi Jan,
Ansicht–Symbolleisten—SteuerelementToolbox
Dort rechts oben auf Eigenschaften
ScrollArea: A1:X25 o.ä. eingeben
Gruß
Reinhard

ypsilon_6280af · 8. September 2006 um 08:01

hi Reinhard,
das hat nur den Nachteil, dass es flüchtig ist
also ab damit in das Klassenmodul der Arbeitsmappe

Private Sub Workbook_Open()
Worksheets(1).ScrollArea = „a1:x25“
End Sub

cu Micha

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

MunichFreak · 8. September 2006 um 09:05

Ich habe eine Zelle in Tabelle 1, die den Inhalt aus einer
Zelle in Tabelle 2 übernimmt. Ist es möglich, dass die Zelle
sich automatisch an die Länge des Textes anpasst?

ja…
aber nur mit Makro
einfach aufzeichnen dass Du die Spalte „sehr breit machst“ und dann doppelklick auf die Begrenzung zur nächsten Spalte…
Dieses „auto-adjust“ eben.
Und das dann mit einem event verknüpfen. am besten wohl Worksheet_Activate()

Ist es möglich ein Diagramm an eine bestimmte Bedingung zu
knüpfen? Also anzeigen wenn das und das gegeben ist, sonst
nich?!

jein…
Du kannst es ja einfach ausblenden indem Du die Zeilen oder Spalten ausblendest, in denen es sich befindet.
Wenn Du dagegen die Quellwerte ausblendest, dann wird dieser Abschnitt im Diagramm nicht gezeigt.
Sprich: Wenn Du den kompletten Datenbereich ausblendest ist das Diagramm „leer“
Macht aber bei Kuchendiagrammen weniger Sinn als bei Balken

3)Ist es möglich ein „Abrutschen“ im Tabellenblatt zu
verhindern??Dass man also z.B. nur bis zu einer bestimmten
Stelle runterscrollen kann?

Einfach den rest ausblenden?

Reinhard_fb8cb7 · 8. September 2006 um 11:33

Hi Jan,

Ich habe eine Zelle in Tabelle 1, die den Inhalt aus einer
Zelle in Tabelle 2 übernimmt. Ist es möglich, dass die Zelle
sich automatisch an die Länge des Textes anpasst?

Variante1: Dieses Makro manuell starten.

Sub Breite()
UsedRange.Columns.AutoFit
End Sub

Variante2: Spaltenbreite wird automatisch ohne Zutun angepasst, aufwendiger.
Beispiel: In Tabelle1!A1 steht die Formel „=Tabelle2!B3+Tabelle2!D5“

dann Rechtsklick unten auf das Register von Tabellenblatt 2, Linksklick auf „CodeAnzeigen“, Code einfügen, Editor schliessen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) „B3“ And Target.Address(0, 0) „D5“ Then Exit Sub
Range(„A1“).Calculate
End Sub

Ist es möglich ein Diagramm an eine bestimmte Bedingung zu
knüpfen? Also anzeigen wenn das und das gegeben ist, sonst
nich?!

Ja, mittels vba, welche Bedingungen) sind das?

3)Ist es möglich ein „Abrutschen“ im Tabellenblatt zu
verhindern??Dass man also z.B. nur bis zu einer bestimmten
Stelle runterscrollen kann?

zu 3) hast du ja schon die Lösung von Micha.

Gruß
Reinhard

jargo_1ff638 · 8. September 2006 um 12:13

Besten Dank euch allen!

Könntest du mich aufklären wie ich das mache mit dem klassenmodul!? Hab noch nie VBA benutzt…

MFG!

ypsilon_6280af · 8. September 2006 um 12:25

hi,
mal in Kurzform:
rechte Maustaste auf den Tabellenreiter > „Code anzeigen“ auswählen
doppelklick auf „DieseArbeitsmappe“
code reinkopieren
Mappe speichern und schliessen
fertig !
beim nächsten Aufruf der Mappe ist der scrollbereich eingeschränkt
cu Micha

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

jargo_1ff638 · 12. September 2006 um 10:17

Hi! Erst mal besten Dank!
zu 1) Hier passt sich jetz leider nur die Zelle in Tabellenblatt 2 an die Länge des Textes an. Muss man bei Range(„A1“) nich irgendwie deutlich machen, dass Tabellenblatt 1 gemeint ist??

zu 2) Also hier hab ich in tabellenblatt 2 eine Frage gestellt auf die man mit JA oder NEIN antworten soll/kann. Wenn man mit JA antwortet soll die Grafik in Tabelle 1 nicht angezeigt werden.

MfG, Jan!

jargo_1ff638 · 12. September 2006 um 10:23

Schönen Dank!

Funktioniert alles super! Nur wenn in der Arbeitsmappe zwei Tabellenblätter sind, funktioniert bei mir der eingeschränkte Scrollbereich nur in Tabelle1…Is das normal oder was ich da falsch?

MfG, Jan!

Reinhard_fb8cb7 · 12. September 2006 um 12:10

zu 1) Hier passt sich jetz leider nur die Zelle in
Tabellenblatt 2 an die Länge des Textes an. Muss man bei
Range(„A1“) nich irgendwie deutlich machen, dass Tabellenblatt
1 gemeint ist??

zu 2) Also hier hab ich in tabellenblatt 2 eine Frage gestellt
auf die man mit JA oder NEIN antworten soll/kann. Wenn man mit
JA antwortet soll die Grafik in Tabelle 1 nicht angezeigt
werden.

Hi Jan,
ja, hast echt, mein Fehler. In Tabelle1!A1 steht: =Tabelle2!B3
Bei Eingabe von Werten in B3 von Blatt2 wird A1 in Blatt1 angepasst in der Spaltenbreite.
Bei allem ausser „Ja“ in D5 von Tabelle2 wird das Diagramm „Diagramm 2“ in Blatt 1 asugeblendet. In das Codmodul von Tabelle2:

Private Sub Worksheet\_Change(ByVal Target As Range)
If Target.Address(0, 0) = "D5" Then
 Worksheets("Tabelle1").ChartObjects("Diagramm 2").Visible = Target.Value = "Ja"
End If
If Target.Address(0, 0) = "B3" Then
 Worksheets("Tabelle1").Columns(Range("A1").Column).AutoFit
End If
End Sub

Gruß
Reinhard

Reinhard_fb8cb7 · 12. September 2006 um 12:10

Funktioniert alles super! Nur wenn in der Arbeitsmappe zwei
Tabellenblätter sind, funktioniert bei mir der eingeschränkte
Scrollbereich nur in Tabelle1…Is das normal oder was ich da
falsch?

Hi Jan,
Private Sub Workbook_Open()
Worksheets(1).ScrollArea = „a1:x25“
Worksheets(2).ScrollArea = „a1:x25“
End Sub

oder

Private Sub Workbook_Open()
Worksheets(„Tabelle1“).ScrollArea = „a1:x25“
Worksheets(„Privat“).ScrollArea = „a1:x25“
End Sub

Gruß
Reinhard

jargo_1ff638 · 12. September 2006 um 12:53

JAU das mit der Grafik klappt ja prima…Besten Dank…Auf das mit den verschiedenen Worksheets (weiter unten)hätt ich wohl auch selber kommen können.
Nur noch ein Problem: Hab mich missverständlich ausgedrückt: Der übernommene Text soll sich in der Zeilenbreite anpassen und nicht in der Spaltenbreite. Mit der Spaltenbreite hab ich einfach mit Zellen verbinden und Zeilenumbruch gelöst…Beide Zellen sind gleich breit!

MfG, Jan!

Reinhard_fb8cb7 · 12. September 2006 um 12:58

Nur noch ein Problem: Hab mich missverständlich ausgedrückt:
Der übernommene Text soll sich in der Zeilenbreite anpassen
und nicht in der Spaltenbreite. Mit der Spaltenbreite hab ich
einfach mit Zellen verbinden und Zeilenumbruch gelöst…Beide
Zellen sind gleich breit!

Hi Jan,
Excel kennt zeilenhöhe, keine Zeilenbreite, was meinst du damit?
Beispiel?
Gruß
Reinhard

jargo_1ff638 · 12. September 2006 um 13:16

Ups… Zeilenhöhe natürlich…

Reinhard_fb8cb7 · 12. September 2006 um 13:21

Ups… Zeilenhöhe natürlich…

Hi Jan,
dann so:
Worksheets(„Tabelle1“).rows(Range(„A1“).row).AutoFit
Gruß
Reinhard

jargo_1ff638 · 13. September 2006 um 08:30

HMM…Das mit dem automatischem Anpassen funktioniert leider nicht…
Habs jetz so da stehen:

If Target.Address(0, 0) = „A26“ Then
Worksheets(„Tabelle1“).Rows(Range(„A4“).Row).AutoFit
End If
End Sub

MfG, Jan!

Reinhard_fb8cb7 · 13. September 2006 um 12:46

HMM…Das mit dem automatischem Anpassen funktioniert leider
nicht…
Habs jetz so da stehen:
If Target.Address(0, 0) = „A26“ Then
Worksheets(„Tabelle1“).Rows(Range(„A4“).Row).AutoFit
End If
End Sub

Hi Jan,
dann bastle bitte eine kleine Beispieltabelle nur mit BeispielDaten in den Zellen die relevant sind und lade sie hoch bei
http://www.rapidshare.de
Gruß
Reinhard

jargo_1ff638 · 13. September 2006 um 13:14

Noch mal vielen Dank dass du dir die Zeit für mich nimmst.

Also ich hab das Problem noch mal in einer neuen Datei hochgeladen…

http://rapidshare.de/files/32958899/TEST1.xls.html

Funktioniert da leider auch nich…

MfG, Jan!

Reinhard_fb8cb7 · 13. September 2006 um 15:11

Also ich hab das Problem noch mal in einer neuen Datei
hochgeladen…
http://rapidshare.de/files/32958899/TEST1.xls.html
Funktioniert da leider auch nich…

Hi Jan,
verbundene Zellen wie hier A4:E4 machen immer Ärger.

Wenn in Tabelle2!A5 folgendes steht, wie soll denn dann A4:E4 in Tabelle1 aussehen? Hier sind mal 3 Varianten:

Tabele2!A5:
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890

Tabelle1!A4:E4
 A B C D E
12345678901234567890123456789012345678901234567890
12345678901234567890123456789012345678901234567890
1234567890123456789012345678901234567890

 A B C D E 
12345678901234567890123456789012345
67890123456789012345678901234567890
12345678901234567890123456789012345
67890123456789012345678901234567890

 A B C D E
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890
1234567890

Gruß
Reinhard

jargo_1ff638 · 13. September 2006 um 15:27

AHA…Habs mir ja schon gedacht, dass es daran liegt! Da es auch ohne verbundene Zellen geht passts jetz!!

NOCHMAL: DAAAAANKE!!

Jan!