Kann mit jemand einen VBA-Code nennen, womit die automatische Zeilenhöhe auch bei verbundenen Zellen berechnet wird?

Hi,

ich möchte, dass bei verbundenen Zellen die Zeilenhöhe automatisch en den Text angepasst wird. Gleichzeitig soll aber die Zellenformatierung (Schriftwart- und Größe, etc) nicht verändert werden. Ich hoffe, hier kann jemand helfen, ich bin echt verzweifelt.

Danke.

1 Antwort

Ninombre

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

20.06.2016, 06:55

Rows(i).AutoFit Weil Du extra erwähnt hast, dass die Zeilenhöhe auch bei verbundenen Zellen berechnet wird: Ich hab da keinen Unterschied erkennen können oder geht es um untereinander stehende Zellen, die verbunden sind? Wäre Dein Ziel dann das die Zeilenhöhe quasi halbiert wird und die verbundene Zelle so hoch ist, dass der Text gerade psst?

fx8350

Beitragsersteller

20.06.2016, 20:17

Also ich habe inzwischen eine Formel. Das Problem bei verbundenen Zellen ist, dass sie auch standardmäßig Probleme mit Autofit haben. Deshalb gibt es in VBA diverse Lösungsansätze, die wiederrum auch fgut eingebaut werden müssen. Und ich habe nicht viel Ahnung ;-).

Ähnliche Beiträge

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zum Beitrag

Wenn "Ja" erfüllt ist, Datum automatisch einsetzen lassen und einfrieren?

Moin!

Meine Frage:

Wie lautet der VBA-Code, wenn ich in Spalte S (Besetzte Zellen: S9:S157) "Ja" schreibe, soll in Spalte U in der jeweiligen Zeile das aktuelle Datum automatisch eingesetzt werden und eingefriert werden ohne das es sich am nächsten Tag aktualisiert. Wenn ich eine Zelle in Spalte S die Zelle freilasse, soll in Spalte U automatisch "Nein" erscheinen.

Danke schonmal im Voraus!

Gruß

Luka

...zum Beitrag

wie kann in google Sheets die Zeilenhöhe automatisch angepasst werden?

Ich habe in einem Google Sheets viele Zellen mit längerem Text, die ich jetzt mit Zeilenumbruch formatiert habe (das ganze Blatt ist so formatiert). Allerdings folgt dann keine automatische Anpassung der Zeilenhöhe, dass man auch wirklich allen Text lesen kann, sondern die Zeilen behalten ihre ursprüngliche Höhe. Wie kann ich einstellen, dass sich die Zeilenhöhe automatisch anpasst, sodass der gesamte Text jeder Zeile angezeigt wird? In Excel geht das ja auch, aber wie geht es in google sheets?

...zum Beitrag

Vba Zellenwert von einer anderen Zelle abziehen?

Hallo zusammen,

Ich habe ein kleines Problem was ich leider nicht lösen kann. Im Bereich vba bin ich leider auch nicht so fitt & verstehe die meisten codes nicht & kann mir daraus leider auch keinen eigenen basteln.

Mein Problem:

Zelle A1 steht eine Meter Angabe von z.b 300

In Zelle B1 ist die Entnahme 30

Nun soll automatisch in Zelle A1 der Betrag 170 stehen.

Leider weiß ich nicht wie ich das hinbekomme.

Die Zelle A1 ist variable und soll jede Zeit manuell geändert werden. Deshalb sollte dies mittels vba geschehen.

Kann mir jemand helfen?

Vieeeelen Daaaank

...zum Beitrag

gesuchte zellen automatisch in excel markieren

eine frage an die excel experten hier:

ich habe eine Tabelle mit ca. 1000 Bestellnummern in der Spalte. Um diese abzugleichen, klicke ich auf Menü Bearbeiten -- Suchen -- gebe die entsprechende Nummer ein und er springt in die richtige Zelle. Dann markiere ich die Zelle mit Füllfarbe, damit ich weiss, dass die Zelle bereits gefunden worden ist. So weit so gut. Aber gibt es eine Möglichkeit, vielleicht ein VBA Script, mit dem die gesuchten Zellen automatisch farblich markiert werden? Das heisst: beispielsweise: Bestellnummer in A5 gefunbden grün markieren, dann 2. Bestellnummer in A10 gefunden und auch automatisch markieren. Die Zellen in diesem Fall a5 und a10 sollen auch nach der nächsten Suchanfrage markiert bleiben. Hat jemand dafür eine Lösung?

...zum Beitrag

Wie kann ich die Farbe einer Excel Zelle per Knopfdruck und VBA ändern?

Moin, ich hab mal wieder ne Frage zu Excel VBA. Wir haben heute die Aufgabe bekommen in Excel VBA mithilfe einer Sub- Prozedur Farben von Zellen zu ändern.
Es gibt ein Feld "Farb- Nr.", in dem eine Zahl steht, die dann im Sub genutzt wird um eine Farbe zu machen. (s. Screenshot). Bei Druck des Buttons sollen sich die 3 Farbstreifen ändern. Ich habe den Sub bereits dem Button zugewiesen, jedoch kommt beim klicken die Fehlermeldung "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht". Ich wäre demjenigen, der mir helfen kann sehr verbunden. Falls noch etwas unklar sein sollte, fragt bitte einfach nach.

PS: Das ist mein bisheriger VBA Code:

Und so sieht das ganze Tabellenblatt aus:

...zum Beitrag

Excel Tabelle?

Hallo:)

ich lerne grade Tabellen zu erstellen bei Excel. Wir haben von der Lehrerin einen Zettel bekommen mit paar Übungsaufgaben.
Ist die Tabelle in Ordnung? Kann man da was verbessern? Bin noch grade am lernen:)

Übertrage die Tabelle in das Programm und übernehme die Formatierungen.
Verbinde, wo es nötig ist, die Zellen und rahme sie entsprechend der Vorlage ein.
Füge in den Zellen B2 bis D2 Zeilenumbrüche ein.
Ändere die Zeilenhöhe der Zeilen 1 und 15 auf 20 pt.
Formatiere die Ausrichtung sowohl horizontal als auch vertikal auf zentriert
Formatiere die Spaltenüberschriften als fett gedruckt.
Führe die Berechnungen mit kopierfähigen Formeln durch. Nimm die Rangzuordnung manuell vor.
Formatiere die Einkaufswerte (D3:D12) automatisch so ein, dass die Zellen mit den höchsten 15 % Werten mit grüner Füllung und die Zellen mit den niedrigsten 10 % Werten mit hellroter Füllung versehen werden.

...zum Beitrag

VBA vergangene Tage seit bestimmtem Datum berechnen?

Hallo,

Ich habe in Excel in der Spalte E immer ein Datum im Format "tt.mm.jjjj". Anzahl der Zeilen ist variabel. Ich möchte ein Makro programmieren, welches mir die vergangenen Tage vom Datum bis heute ausrechnet und das Datum in der jeweiligen Zelle mit den berechneten Tagen überschreibt. Wenn größer 10, soll zudem rot markiert werden.

Kann mir jemand helfen? Hab das mit DateDiff probiert. Hat aber nicht hingehauen.

Danke !

...zum Beitrag

Zellen mit gleichem Inhalt pro Spalte automatisch verbinden ?

Hallo Community, möchte gerne alle Zellen gleichen Inhalts pro Spalte automatisch verbinden lassen (Inhalte müssen, wie bei Excel üblich nur einmal erhalten bleiben). Später soll also der Konfernzname, das Datum und der Ort nur noch einmal pro Konferenz auftauchen. Die Teilnehmer und ihre Beiträge könnte man dann zwar auch noch verbinden, aber hier müssten natürlich die ganzen Zellinhalte erhalten bleiben (was Excel üblicherweise nicht macht). Ist wahrscheinlich nur mit VBA möglich oder? Danke im Vorraus

Bild siehe Anhang

...zum Beitrag

Fahrzeit von Google Maps in Excel einbinden?

Hallo,

ich möchte für einen Verein ein Spielplan erstellen. Dazu brauche ich die Fahrzeiten von uns zum entsprechenden Gegner, damit ich daraus Abfahrtszeit etc. berechnen kann.

Ich habe dazu schon zu jeder Begegnung automatisch eine URL erstellen lassen, die direkt Google Maps mit der entsprechenden Route öffnet.

Jetzt wäre es allerdings enorm hilfreich, wenn ich irgendwie direkt die von Google Maps berechnete Fahrzeit in die entsprechende Zelle bekommen könnte.

Geht das? Wenn ja, wie? Kann mir jemand vielleicht einen Ansatz nennen? Bin da mit Google leider gar nicht weiter gekommen...

(Mit VBA kenne ich mich leider noch kaum aus)

Danke und Grüße!

...zum Beitrag

VBA Datum (dd.mm.yy) aus Zelle umdrehen (yymmdd) und als Name speichern?

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

...zum Beitrag

Excel Rahmenlinien automatisch fortsetzen?

Hallo,

ich habe ein VBA-Script, in welchem die nächste freie Zeile gesucht wird.

In dieser Zeile sollen automatisch "alle Rahmenlinien" festgelegt werden.

Muss nicht unbedingt per VBA gelöst werden, darf auch gerne eine Regel sein.

Die Zellen vorzuformatieren möchte ich nicht.

...zum Beitrag

Excel - Zellen einfügen + Automatisch Verbinden?

Hey zusammen,

ist es möglich, dass Zellen die ich mittels "Zellen einfügen" einfüge automatisch verbunden werden.

Beispiel:

Ich füge zwischen den Zeilen 100 und 101 eine neue Zeile ein. Die Zellen A101 und B101 sollen beim Einfügen der neuen Zeile schon verbunden sein.

Es ist nämlich relativ unschön, jedes mal, wenn ich eine Zeile einfüge, 8x pro neu eingefügter Zeile die Zellen zu verbinden ...

Lg Tobi

...zum Beitrag

VBA Zahl wird einmal mit und einmal ohne Anführungszeichen zurückgegeben

Hallo,

schon wieder eine VBA frage :)

Hab ein Problem mit dem Zahlenformat. Bei einer Variablen wird die Zahl in Anführungszeichen zurückgegeben, bei der anderen ohne Anführungszeichen.

Sub Testsub1()

Test1 = Tabelle1.Cells(1326, 1)
'Hier kommt "101" zurück
Test2 = Tabelle2.Cells(34, 3)
'Hier kommt 101 zurück

End Sub

Beide Zellen ("A1326" und "C34") sind als Text formatiert.

Bei "A1326" ist dieses kleine grüne Dreieck in der linken oberen Ecke. Da kann ich den Text in eine Zahl umwandeln und dann komm auch bei beiden Zellen 101 ohne Anführungszeichen zurück. Das ist für mich aber keine Option, da das ein Export aus einem anderen Programm ist und deshalb jedes mal wieder neu Eingefügt wird.

Folglich muss die Zelle "C34" irgendiwe verändert werden, dass "101" mit Anführungszeichen zurück kommt. Oder kann ich das auch im Code hinbekommen?

Vielen Dank im Voraus für eure Hilfe!

Gruß

dandi46

...zum Beitrag

Was möchtest Du wissen?

Deinen Beitrag erstellen