Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
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
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Code: Spaltenbreite je nach Überschrift vorgeben

Code: Spaltenbreite je nach Überschrift vorgeben
WalterK
Hallo,
wer kann mir bitte weiterhelfen:
In einer Tabelle sind in Zeile 2 Überschriften. Jetzt benötige ich ein Makro, dass je nach Überschrift die Spaltenbreite einstellt.
Das sollte in etwa so gehen:
Wenn in Zeile 2 die Überschrift "NAME" vorkommt, dann soll diese Spalte die Breite 15 haben,
wenn in Zeile 2 die Überschrift "Benutzer" vorkommt, soll die Spalte die Breite 20 haben usw.
Über den Makrorekorder bekomme ich das nicht hin.
Besten Dank und Servus, Walter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Hier ein Bsp.
30.07.2010 11:46:51
CitizenX
Hallo Walter ,
Code kommt ins Modul des Blattes
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Row = 2 Then
    Select Case Target
        Case Is = "Name"
        Target.ColumnWidth = 15
        Case Is = "Benutzer"
        Target.ColumnWidth = 20
        ' 
        ' 
        'deine weiteren Abfragen 
        ' 
        ' 
    End Select
End If

End Sub

viele Grüße
Steffen
Anzeige
Oder so
30.07.2010 11:54:25
Backowe
Hi Walter,
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 2 Then Target.Columns.AutoFit
End Sub
Gruß Jürgen
AW: Code: Spaltenbreite je nach Überschrift vorgeben
30.07.2010 12:23:03
ing.grohn
Hallo Walter,
probier mal 
Sub Spalten()
Dim I As Long
Anzahl = Sheets("Tabelle1").UsedRange.Columns.Count
For I = 1 To Sheets("Tabelle1").UsedRange.Columns.Count
If Cells(2, I).Value = "Name" Then
Cells(2, I).ColumnWidth = 30
ElseIf Cells(2, I).Value = "Benutzer" Then
Cells(2, I).ColumnWidth = 50
End If
Next
End Sub
Mit freundlichen Grüßen
Albrecht
Danke an alle Helfer! Servus, Walter
30.07.2010 12:35:05
WalterK

299 Forumthreads zu ähnlichen Themen

Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Anzeige
Bereich auswählen auf Basis der Spaltennummern
Eberhard

Hallo zusammen :-)
Vielleicht kann mir jemand helfen.
Ein Anwender soll in einer Tabelle einen Eintrag auswählen, in dem er in irgendeiner Zeile der Tabelle eine Zelle auswählt.
Das Makro soll dann spaltenorientiert Zellen aus dieser Zeile markieren, aber zum Beispiel nur die Spalte...
10.09.2008 18:06:00
Thread-ID: 1008890
6 Beiträge
spaltennummer ausgeben von gesuchtem begriff
gesuchtem

moin excelianer,
ich möchte gerne die spaltennummer dieser spalte ausgeben, in welchem ein begriff steht...
A1: t1
A2: t2
A3: t3
suchbegriff: t2
ausgabe: 2 (spaltennummer von A2)
bin ich auf dem richtigen weg mit:
=spalte(vergleich(suchbegriff;matrix;WAS-KOMMT-HI...
11.09.2008 17:03:10
Thread-ID: 1009184
3 Beiträge
Anzeige
Spalten lassen sich nicht auf Breite 0 schieben
Gordon

Moin,
ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
17.09.2008 14:10:57
Thread-ID: 1010385
4 Beiträge
Durschnittsberechnung mit variablen Spalten
lagler

Hallo!
Ich möchte gerne den Durchschnitt der letzten Monatsergebnisse berechnen. Als Basis soll die Anzahl der Monate, die für die Berechnung verwendet werden, variabel eingestellt werden können (siehe Beispieldatei)
https://www.herber.de/bbs/user/55466.xls
hoffe es kann mir jemand...
17.09.2008 14:16:45
Thread-ID: 1010389
3 Beiträge
Spaltenbuchstabe als Variable ansprechen
Hartmut_M

Hallo, stehe im Moment auf dem Schlauch. Habe in einer String-Variablen "spalteziel" den Spaltenbuchstaben "D" gespeichert. Habe dann folgenden Befehl:
For Each zelle In [spalteziel & 3:spalteziel & 1375]
Da kommt immer "Typen unverträglich"
Wo liegt mein Fehler?
Gruß Ha...
29.10.2008 18:10:00
Thread-ID: 1020380
4 Beiträge
Spalten abgleichen
Sabrina

Hallo.
Ich habe in Spalte C meine Basisdaten (Aufträge) und in Spalte A werden mir die aktuellen eingelesen. Nun möchte ich einen Ablgeich der Spalten und in Spalte A sollen mir alle markiert werden, die in Spalte C noch nicht vorhanden sind. Zelle Farblich markieren. Wie mache ich das am b...
01.12.2008 14:43:00
Thread-ID: 1029266
3 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
Anzeige

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
8
4
5
2
16
3
2
3
2
3
2
2
7
4
5
2
3
7
3
4
4
3
13
7
14