Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 12:57:21
Makro für aktuell geöffn. Datei mit gleichen Namen speichern
23.04.2024 12:37:19
gew. Mittelwert Spalten mit Text ignorieren
23.04.2024 12:29:20
VBA nur Zeilen mit bestimmten Eintrag selektieren
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Zelle = X dann Ausrichtung Spalte...

Wenn Zelle = X dann Ausrichtung Spalte...
12.12.2012 15:35:10
Tim
Hallo an alle,
ich möchte gerne folgendes für ein Blatt (Blatt7) einer Tabelle umsetzen:
Wenn V1 = X dann Ausrichtung Bereich F9:F1007 = linksbündig mit Schriftgröße 11, ansonsten Ausrichtung = zentriert mit Schriftgröße 12.
Ich habe bislang folgenden Codeteil im Change-Ereignis, das klappt allerdings nur, wenn ich anschließend manuell in eine Zelle klicke.
Kann mir jemand sagen, was ich hier anders / besser machen kann ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Worksheets(7).Unprotect "XXX"
If Worksheets(7).Range("V1") = "X" Then
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlLeft
Worksheets(7).Range("F9:F1007").Font.Size = 11
Else
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlCenter
Worksheets(7).Range("F9:F1007").Font.Size = 12
End If
Worksheets(7).Protect UserInterfaceOnly:=True, Password:="XXX"
End Sub
VG und vielen Dank im Voraus für jeden Tipp,
Tim

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zelle = X dann Ausrichtung Spalte...
12.12.2012 15:38:55
Rudi
Hallo,
Ich habe bislang folgenden Codeteil im Change-Ereignis
das ist aber das SelectionChange-Ereignis.
Wie kommt X in V1 denn zustande?
Gruß
Rudi

AW: Wenn Zelle = X dann Ausrichtung Spalte...
12.12.2012 17:21:29
Tim
Danke, Rudi.
Auf Blatt1 der Tabelle befindet sich eine Liste mit Usernamen und daneben eine Spalte mit den jeweiligen Abteilungen.
Beim Öffnen der Tabelle wird dann der User mittels Environ mit dieser Liste abgeglichen und nur bei einer bestimmten Abteilung das X in V1 gesetzt, da hier andere Inhalte angezeigt werden.
Das X ist für den User nicht zu sehen und kann auch während der Nutzung der Tabelle nicht geändert werden.
Ich hatte den Codeteil zuerst nach Workbook_Open gesetzt aber auch da hat es nicht funktioniert.
VG,
Tim

Anzeige
AW: Liegt vermutl am Username
12.12.2012 17:27:38
Sheldon
Hallo Tim,
vergleiche mal den Username, den Environ ermittelt bei dem User, bei dem es nicht funktioniert, ob die Schreibweise exakt mit der in der Tabelle überein stimmt! Ich vermute da liegt der Hase im Pfeffer und nicht, wo der Code hinkommt. Denn logisch ist doch, das X kann während der Bearbeitung nicht verändert werden, also gehört der Code natürlich in das Workbook-Open-Event.
Gruß
Sheldon

AW: Liegt vermutl am Username
12.12.2012 20:26:02
Tim
Hallo Sheldon,
vielen Dank !
Ich habe den Code nochmal neu in Workbook_Open eingegeben und jetzt funktioniert es sowohl mit der Ausrichtung, als auch mit der Schriftgröße - da habe ich wohl vorher einen Tippfehler übersehen, sorry !
VG und trotzdem danke,
Tim

Anzeige
AW: Liegt vermutl am Username
12.12.2012 21:19:20
Tim
Hallo Sheldon,
jetzt habe ich heraus gefunden, was den Fehler verursacht, leider aber noch nicht die Lösung dafür.
Alles funktioniert einwandfrei, wenn beim Öffnen der Tabelle alle Zeilen eingeblendet sind (was nicht immer der Fall ist), wurden zuvor jedoch einige Zeilen ausgeblendet, dann greift mein Code nur auf die eingeblendeten Zellen.
Mein Code in Workbook_Open sieht wie folgt aus: 
Private Sub Workbook_Open()
Worksheets(7).Unprotect "XXX"
If Worksheets(1).Range("H1") = "X" Then
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlLeft
Worksheets(7).Range("F9:F1007").Font.Size = 11
Else
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlCenter
Worksheets(7).Range("F9:F1007").Font.Size = 12
End If
Worksheets(7).Protect UserInterfaceOnly:=True, Password:="XXX"
End Sub
Gibt es hier auch einen Weg, dass dieser Code für alle (nicht leeren) Zeilen der entsprechenden Tabelle greift ?
VG und vielen Dank nochmal für Eure Hilfe,
Tim

Anzeige
AW: Wenn Zelle = X dann Ausrichtung Spalte...
12.12.2012 21:20:07
Tim
Hallo Rudi,
jetzt habe ich heraus gefunden, was den Fehler verursacht, leider aber noch nicht die Lösung dafür.
Alles funktioniert einwandfrei, wenn beim Öffnen der Tabelle alle Zeilen eingeblendet sind (was nicht immer der Fall ist), wurden zuvor jedoch einige Zeilen ausgeblendet, dann greift mein Code nur auf die eingeblendeten Zellen.
Mein Code in Workbook_Open sieht wie folgt aus: 
Private Sub Workbook_Open()
Worksheets(7).Unprotect "XXX"
If Worksheets(1).Range("H1") = "X" Then
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlLeft
Worksheets(7).Range("F9:F1007").Font.Size = 11
Else
Worksheets(7).Range("F9:F1007").HorizontalAlignment = xlCenter
Worksheets(7).Range("F9:F1007").Font.Size = 12
End If
Worksheets(7).Protect UserInterfaceOnly:=True, Password:="XXX"
End Sub
Gibt es hier auch einen Weg, dass dieser Code für alle (nicht leeren) Zeilen der entsprechenden Tabelle greift ?
VG und vielen Dank nochmal für Eure Hilfe,
Tim

Anzeige
AW: dann blende die Zeilen halt vorher ein!
15.12.2012 19:24:52
Sheldon
Hi Tim,
das kannst Du z. B. mit diesem Befehl:
Range(Cells(9, 1), Cells(1007, 1)).EntireRow.Hidden = False
Gruß
Sheldon

367 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
15
5
2
2
7
2
3
4
4
2
9
2
6
9
8
5
2
10
2
3
5
2
3
3