Excel VBA -> Spalten- und Zeilenlängen und Schriftgröße bestimmen

Hallo,

kleine Frage: (wie) kann man im Code Spalten- und Zeilengröße und Schriftgröße bestimmen? Ich meine damit nicht per Hand oben im Menü selber ändern, sondern direkt im Code eine Zeile und Spalte ansprechen (z.B. Range("A1") = ...) und ihre Zeilen- und Spaltenlängen bestimmen. Das selbe auch für die Schriftgröße!

Kann mir da jemand helfen? Google konnte nichts Produktives liefern -
Code zum Farben einstellen dagegen habe ich erfolgreich gefunden

MfG

3 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

29.06.2014, 21:44

Range("A1").ColumnWidth = 50
Range("A1").RowHeight = 25
Range("A1").Font.Size = 24

Klappt es?

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

dirkkuyt

Beitragsersteller

29.06.2014, 21:51

Ja, super! Aber: Kann's sein, dass 50 bei der Breite ungleich 50 bei der Höhe ist? Sind's verschiedene Einheiten oder woran liegt's?

dirkkuyt

Beitragsersteller

29.06.2014, 21:53

@dirkkuyt

Kann man die Höhe und Breite auch in Pixel angeben?

Oubyi, UserMod Light

29.06.2014, 22:58

@dirkkuyt

Kann's sein, dass 50 bei der Breite ungleich 50 bei der Höhe ist

Das ist wohl so.
Abhilfe wüsste ich da auch nicht, außer Rumprobieren.
Stell am besten nochmal eine neue Frage deswegen.
Vieleicht kennt ein Anderer einen Trick.

Michael339

29.06.2014, 23:32

@dirkkuyt

Ja, schau einfach mal unter http://msdn.microsoft.com/de-de/library/office/ff837430(v=office.15).aspx (Ich dachte, du kommst von selbst auf die Idee, die entsprechenden Eigenschaften nachzuschauen, denn dort steht doch ausdrücklich: Eine Einheit der Spaltenbreite entspricht der Breite eines Zeichens im Format Normal.Bei proportionalen Schriftarten wird die Breite der 0 (null) verwendet.

Verwenden Sie die Width -Eigenschaft, um die Breite einer Spalte in Punkt zurückgeben. ) Verwende anstatt ColumnWidth die Width-Eigenschaft...

Iamiam

30.06.2014, 01:20

@Michael339

Du bekommst die Pixel angezeigt, wenn du auf die Trennlinien am Zeilenkopf bzw Spaltenkopf klixkst. 30 Height sind 40 Pixel, 5 Width ebenfalls. Kannst das nun auf andere Quadratische Zellen oder sonstige gewünschten Maße umrechnen.
Man muss eben ein bisschen rumspielen, wenn man solche Extra.Wünsche hat!
Wenn mans genauer will, dann eben mal eine Zelle etwas weiter aufziehen:
100 Pixel sind 75 Height und 13,57 width,
200 sind 150 height und 27,86 width,
#500 Pixel sind 375 height und 70,71 width.
Du kannst also den Faktor relativ genau bestimmen und im Makro entsprechend definieren: Rowheight x 4/3 und Columnwidth x 500/70,71 bzw rückwärts rechnen, mach ich jetzt nicht mehr

Oubyi, UserMod Light

01.07.2014, 00:36

@Oubyi, UserMod Light

Danke fürs ☆
☼

Michael339

29.06.2014, 21:44

Hallo,

schau einmal hier: http://msdn.microsoft.com/de-de/library/office/ff193926(v=office.15).aspx, ColumnWidth für die Spaltenbreite und Font für die Schriftart (einfach entsprechend durchklicken).

maximilianus7

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

30.06.2014, 11:46

Der wichtigste Trick wurde hier noch nicht verraten: Mit Extras/Makros/Aufzeichnen kann man sich ein Makro generieren lassen. Also: Aufzeichnung starten, eine Zelle wie gewünscht einstellen, stoppen. Im Makro-Editor ist dann ein Modul entstanden mit dem aufgezeichneten Makro, was dann als Beispiel dient.

Gruß, Max.

Ähnliche Beiträge

Excel, Spalte rechts nebenan kopieren?

Hallo, wie kann ich per Excel VBA eine Range (eine Spalte) mit einer Zelle vergleichen und nach einem Match die Zelle direkt rechts neben der Range (eine Spalte) selektieren?

...zum Beitrag

excel Range als Datum formatieren?

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

...zum Beitrag

ExCel VBA Werte in anderes Tabellenblatt?

Hallo, kurze Frage zu VBA, falls sich da jemand findet der das gut kann ^^

Wir müssen zur Hausübung folgendes Szenario "erschaffen":
Wir haben die Tabelle "Buchungsmaske", die in Spalte B freie Felder zur Eingabe von Werten hat (Beispiel: Datum - Konto-Nummer - Kontobezeichnung...). Diese sollen dann durch die Schaltfläche "speichern" in das bereits vorhandene Tabellenblatt "Buchungen" gespeichert werden, und zwar in die nächste freie ZEILE.

Ich habe schon danach gesucht aber finde kaum anwendbares für diesen Sachverhalt in Foren, bzw. suche ich möglicherweise auch falsch.

Mein Code derzeit:
Dim Copy As Range, Paste As Range

Dim aWerte()

Set Copy = Sheets("Buchungsmaske").Range("B4:B20")

Set Paste = Sheets("Buchungen").Range("A1:U20")

If Sheets("Buchungsmaske").CheckBox1.Value = True Then

aWerte() = Copy

Paste = aWerte()

End If

Laufzeitfehler der immer auftaucht ist "438"

Danke für die Hilfe im Vorraus!

...zum Beitrag

Excel in Zelleformel Tabellenblattindex benutzen statt Tabellenblattname?

Hallo,

ich habe eine Excelmappe mit mehreren Tabellenblättern.

Diese haben natürlich Name wie z.b. "Personal", "Umsatz", "Gewinn"

Wenn ich in eine Zelle eine Formel benutze und auf ein anderes Blatt zugreife dann benötige ich ja den Name z.b. ='Personal'!A1

Ich möchte aber nicht den Namen benutzen sondern den im Hintergrund Festgelegten Namen "Tabelle3" so wie in VBA Tabelle3.Range("A1") statt Worksheet("Personal").Range("A1")

Ist das in den Formeln auch möglich??? Oder gibt es dazu eine VBA-Funktion die das ermöglicht?

...zum Beitrag

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zum Beitrag

Excel VBA - Zellen nach Datum löschen?

Hallo Liebe Excel - Kenner,

gibt es die Möglichkeit oder einen Code, wo ich Zellen löschen die ich nach Datum und Uhrzeit bestimme?

Bsp: Zelle A1: K30 löschen am 25.03.2016 - 14:00 Uhr

Gruß Manuel

...zum Beitrag

Excel VBA jede n-te Zeile finden und bei der Ausgabe die Steps ignorieren?

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

Dim bereich1 As Range

Dim bereich2 As Range

Dim x As Integer

Dim y As Integer

Dim ZeilenNr As Integer

'Den Bereich auswählen

Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

Set bereich2 = Range("Tabelle1!B5:B30000")

'Zeilen zählen

ZeilenNr = bereich1.Rows.Count

ZeilenNr = bereich2.Rows.Count

'Jede zweite Zelle im Bereich durchlaufen

For x = 3 To ZeilenNr Step 21

'den Wert aus Spalte B in Spalte C eintragen

bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

End Sub

...zum Beitrag

Excel-Zeilen nach Inhalt über Button und VBA ausblenden?

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

...zum Beitrag

VBA nur die ersten Unterordner anzeigen lassen?

Hallo,

wie muss ich diesen Code hier umschreiben damit NICHT die Unterordner der Unterordner angezeigt werden, sondern nur die der 'ersten Stufe'.

Also angenommen auf dem Laufwerk C:\ sind die Ordner

A, B, C, D, E

und diese Unterordner von C:\ enthalten jeweils auch Unterordner Namens
aa, bb, cc, dd, ee,

Dann schreibt der bisherige Code

A - aa
bb
cc
dd
ee
B - aa
bb

und so weiter.
Ich brauche aber nur die Ordner A, B, C, D, E und nicht deren Unterordner.

Public Sub OrdnerListen_Start()

Dim fso As Object
Dim strPfad As String

strPfad = "C:\"

With ActiveSheet

.UsedRange.ClearContents

Set fso = CreateObject("Scripting.FileSystemObject")

Call OrdnerListen(fso, strPfad, .Range("A1")) ' Pfad anpassen!

Set fso = Nothing

End With

End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)

On Error Resume Next

Dim o, uo

Set o = fso.GetFolder(Ordnerangabe)

rng.Offset(Zeile, Spalte).Value = o.Name
Zeile = Zeile + 1

For Each o In o.SubFolders

Call OrdnerListen(fso, o.Path, rng, Zeile, Spalte)

Set o = Nothing
Set uo = Nothing

End Sub

...zum Beitrag

Mit Excel VBA bestimmte Zeilen in anderes Tabellenblatt kopieren?

Hallo zusammen!

Wie schaffe ich es in Excel mithilfe von VBA eine bestimmte Zeile, welche in der ersten Spalte mit einem Index (1.1, 1.2 ...) gekennzeichnet wurde, durch die Angabe des Indexes die genaue Zeile in mein anderes Tabellenblatt zu kopieren.

Ich gebe also zum Beispiel im Tabellenblatt 2 in die erste Spalte "1.2" ein und es kopiert automatisch die mit "1.2" gekennzeichnete Zeile aus dem Tabellenblatt 1 in das Tabellenblatt 2.

Vielen Dank schonmal

...zum Beitrag

VBA CODE Zellen nach bestimmten Textinhalt suchen und Zeile Färben?

Hallo, kann mir bitte jemanden mit dem Code behilflich sein?

Dieser Code sucht die Zellen in Spalte"A" nach bestimmten Textinhalt ab und bei Treffer löscht er die zughörige gesamte Zeile. Meine Frage: kann man diesen Code so ändern, dass anstatt die gefundene Zeile zu löschen nur mit einer Farbe z.B. Orange (44) färbt? Vielen Dank im Voraus.

Sub zeilenloeschen()
  Dim i As Long
  Dim letzteZeile As Long
  Dim suchBereich As Range
  Dim gefunden As Range
  Dim ersterTreffer As String
  Dim suchWert As String
  suchWert = "1" 'hier kommt dein Suchwert rein
  
  With ThisWorkbook.Sheets("Sheet4")
    letzteZeile = .Range("A" & Rows.Count).End(xlUp).Row
    Set suchBereich = .Range("A1:A" & letzteZeile)
    Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
    If Not gefunden Is Nothing Then
      ersterTreffer = gefunden.Address
      Do
        gefunden.Activate
        ActiveCell.EntireRow.Delete shift:=xlUp
        Set gefunden = suchBereich.Find(What:=suchWert, LookAt:=xlPart)
      Loop While Not gefunden Is Nothing
    End If
  End With
End Sub

...zum Beitrag

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zum Beitrag

Excel/VBA? Input Abfrage?

Guten Tag,

ich habe eine Frage und zwar geht es um VBA.

Ich möchte gerne über die MSG input?Funktion einen gewissen Wert abfragen. Die Werte befinden sich in Tabelle 2 Range (A1:A20).

Sollte sich der eingegebene Wert nicht in dieser Tabelle befinden, dann soll eine Fehlermeldung zurückgegeben werden.

Wird der gewünschte Wert gefunden bzw. existiert er in der Tabelle 2 Spalte A, soll in der dazugehörigen Zeile (Tabelle 2 Spalte B) das Wort "erledigt" stehen.

Danach soll der Prozess geschlossen werden. Das Wort "erledigt" soll natürlich bestehen bleiben.

Leider komme ich da nicht weiter.

Hat jemand eine Idee? Hoffe habe mich verständlich ausgedrückt. Leider habe ich auch nicht so Ahnung von VBA.

Vielen Dank schon mal.

Gruß.

...zum Beitrag

Excel/vba Range dynamischer bzgl. Zeile?

Guten Abend zusammen,

eine kleine Frage am Rande, kann man die Range in der u.g. Quelle auch dynamischer bzw. flexibler machen? Gemeint ist damit die Zeile 102.

If myInput <> "" Then
FindData = Application.Match(myInput, Worksheets(myTab).Range("A3:A102"), 0)
If IsError(FindData) Then

Kann man die Zeile ändern, quasi aus einer anderen Zelle/anderen Tabelle die Zeilenanzahl entnehmen? Sprich sollte in Tabelle 2 A1 die Zahl 200 stehen, sollte die Range von A3:A200 gehen.

Wenn ja, wie müsste der Quellcode dann aussehen? Ich meine, dass es mit "i" irgendwie geht, aber keine Ahnung wie.

Gruß

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen