Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellengröße an Bildgröße anpassen + Zeilenhöhe

Forumthread: Zellengröße an Bildgröße anpassen + Zeilenhöhe

Zellengröße an Bildgröße anpassen + Zeilenhöhe
Alexander
Hallo!
Ich habe folgendes Problem:
Ich habe in jeder Zeile ein Bild, und in den Spalten rechts davon stehen Informationen zu den Bildern.
Nun hätte ich gerne folgendes:
Wenn der Text in den Zellen länger ist, als die Zelle hoch (Zeilenumbruch ist aktiviert, der Text verschwindet dann halt nach unten hin, sobald Zellenhöhe erreicht ist.), soll die Zeilenhöhe automatisch angepasst, sprich vergrößert werden.
Ebenso soll die Zeilenhöhe auch automatisch verringert werden, aber eben nicht kleiner werden, als das Bild in der jeweiligen Zeile (Oder gibt es gar eine Möglichkeit, eine Mindesthöhe einzustellen?). Meine bisher gefundenen VB Skripte beachten leider keine Bilder, die werden bisher einfach weggeschnibbelt. Und die Bilder selber sollen in ihrer Größe auch nicht verändert werden.
Anzeige
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
th.heinrich
hallo Alexander,
nimm die RECHERCHE in anspruch (linker frame)und gebe bei SUCHE IN DEN THEMENLISTEN z.b. zeilenhoehe ein.
eine weitere SUCHMÖGLICHKEIT ist ueber GOOGEL auf der site www.herber.de
gruss thomas
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
Alexander
Danke, war wohl etwas vorschnell im posten ;)
Hab was gefunden, danke.
Aber gibt es denn auch die Möglichkeit, so ein VBA Skript nur für bestimmte Zeilen zu aktivieren? Oder gelten die generell für die ganze Tabelle?
Manche Zeilen würde ich von dieser Mindestgröße nun ausnehmen ;)
Anzeige
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
th.heinrich
hi Alexander,
das ist sicher moeglich, allerdings ohne ansatz schwer machbar.
bin leider eine VBA niete, aber poste den gefundenen CODE in einem neuen beitrag. wenn die pro's darauf einsteigen hast Du eine schnelle loesung.
gruss thomas

AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
Alexander
Ok, das hier verwende ich momentan:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Target.Rows.AutoFit
If Target.RowHeight "kleiner" 162 Then
Target.RowHeight = 162
End If
Application.ScreenUpdating = True
End Sub

Die Mindest-Zellenhöhe passt mit 162 Pixeln einheitlich gut.
Mit ActiveCell.Row kann ich ja nun anscheinend die Zeilennummer auslesen.
Mein kläglicher Versuch war folgender:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Target.Rows.AutoFit
If Target.RowHeight "kleiner" 162 & ActiveCell.Row "kleiner" 182 Then
Target.RowHeight = 162
End If
Application.ScreenUpdating = True
End Sub

Um wenigstens die Zeilen mit einer Zeilennummer "kleiner" 182 auszusparen.
Aber das klappt leider nicht.
Wenn ich doch nur VBA Profi wär :D
Das Kleinersymbol frisst das Forum anscheinend nicht, oder ich weiß nur nicht wie ich das darstellen kann, ohne das das Forum was von zu vielen offenen Tags jammert ;)
Oder soll ich die Endtags ans Ende hier knallen :D?
Anzeige
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
PeterW
Hallo Alexander,
vielleicht ist das ein Ansatz:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
If Target.Row &lt 182 Then Exit Sub
Application.ScreenUpdating = False
Target.Rows.AutoFit
If Target.RowHeight &lt 162 Then
Target.RowHeight = 162
End If
Application.ScreenUpdating = True
End Sub

Gruß
Peter
Anzeige
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
Alexander
Ja, danke :)
Jetzt bräuchte ich nur noch eine Möglichkeit, geziehlt bestimmte Spalten nicht davon betroffen zu machen.
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
PeterW
Hallo Alexander,
wenn es um einzelne Zeilen geht wäre vielleicht Select Case ein Weg. Mal als Beispiel:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Row
Case 1, 4, 7, 10
MsgBox "bleibt so"
Exit Sub
Case 11 To 20
MsgBox "bleibt auch so"
Exit Sub
Case Else
MsgBox "hier wird geändert"
End Select
End Sub

Gruß
Peter
Anzeige
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
Alexander
Hey, danke :) :) :)
Das ist schon super!
Aber gibt es bei VBA eigentlich auch eine Möglichkeit, Zellen relativ zu adressieren?
Also wenn ich noch eine Zelle einfüge, dass sich dann z.B. automatisch der VBA-Bezug von 4 auf 5 ändert.
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
PeterW
Hallo Alexander,
wenn du das so meinst wie die automatische Anpassung von Formeladressen in Tabellen dann geht das m.W. nicht.
Gruß
Peter
Anzeige
AW: Zellengröße an Bildgröße anpassen + Zeilenhöhe
Alexander
Ja, das meinte ich.
Schade ;)
;

Forumthreads zu verwandten Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
VBA: Bild an Zelle anhängen
Franz

Hallo Fachleute,
kann man ein Bild per VBA an eine bestimmte Zelle anhängen?
So kann ich ein Bild verschieben:
ActiveSheet.Shapes("Picture 3").IncrementLeft 50
ActiveSheet.Shapes("Picture 3").IncrementTop 50
Es soll aber bei Auftreten eines bestimmten Change-Ereignisses an d...
28.10.2008 11:53:00
Thread-ID: 1019873
3 Beiträge
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Anzeige
Zellengröße automatisch anpassen
DockM@ster

Hallo,
über ein Tabellenblatt hole ich mir mit der Funktion "sverweis" die Daten. Dabei gibt es auch ein Feld "Langtext". Hier möchte ich, dass sich die Zelle automatisch an den Text anpasst. Mit den normalen Formatierungsfunktionen geht es nicht. Hat dazu jemand eine Lösung (VBA)?
Dock...
06.11.2008 19:55:00
Thread-ID: 1022412
8 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
wirkllich AUTOMATISCHE Zeilenhöhe bei langem Texti
Christian

Hallo Forum,
habe im Archiv gesucht, aber keine schlüssige Antwort gefunden... daher meine Frage:
in einem Arbeitsblatt mit nicht verbundenen Zelle steht in einigen Zellen Text der deutlich länger ist als die Zeilenbreite. Daher habe ich den Zeilenumbruch (für die gesamte Spalte in der...
07.01.2009 15:43:00
Thread-ID: 1037580
8 Beiträge
Fotogrösse an Zellen anpassen per Makro
Florian

Hi,
habe eine Makro die .bmp-Dateien in ein Worksheet importiert. Leider ist die Grösse jrdesmal unterschiedlich. Kann ich die Bildgrösse eindeutig an den Zellrändern ausrichten (also z.B. Bild immer von Range "B2 - C5" (Äquivalent dem Benutzen der Alt-taste manuell)?
Danke,
Gruss F...
25.02.2009 15:16:42
Thread-ID: 1053991
4 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Summenbildung abhängig vom Zelleninhalt
Janesch

Hallo Excel - Forum...
brauche mal wieder eure Hilfe...
https://www.herber.de/bbs/user/62898.xls
in der angehängten Datei werden in Spalte B die Abteilungs -Nr. und Spalte C die Abteilungs-Name eingegeben. Die Abteilung selber wird dann noch mal in X-mögliche Unterabteilungen aufge...
03.07.2009 10:32:39
Thread-ID: 1086151
3 Beiträge
Anzeige
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 Beiträge
userform an Bildschirm 10" anpassen, wie ?
walli

Guten Abend,
ich habe eine UF erstellt, nun wollte ich diese auf einen kleinen 10" Bildschirmlaptop
ausführen.
Leider kann ich nicht die Commandbutton die die UF schließen mehr sehen.
Wie kann man das ganze an die Bildschirmgröße meine kleinen Laaptop
anpassen ?
mfg wall...
06.09.2009 17:50:47
Thread-ID: 1100902
10 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zellengröße und Zeilenhöhe an Bildgröße anpassen in Excel

Schritt-für-Schritt-Anleitung

  1. Einfügen des Bildes in die Zelle:

    • Klicke auf die Zelle, in die du das Bild einfügen möchtest.
    • Gehe zu Einfügen > Bilder und wähle das gewünschte Bild aus.

  2. Anpassen der Zellengröße an das Bild:

    • Klicke mit der rechten Maustaste auf die Zelle mit dem Bild und wähle Zellen formatieren.
    • Unter dem Tab Ausrichtung aktiviere die Option Bild an zelle anpassen.

  3. Zeilenhöhe automatisch anpassen:

    • Aktiviere den Zeilenumbruch in der Zelle, um sicherzustellen, dass der Text nicht außerhalb der Zelle angezeigt wird.
    • Um die Zeilenhöhe automatisch anzupassen, gehe zu Start > Format > Zeilenhöhe automatisch anpassen.

  4. Mindestzeilenhöhe einstellen:

    • Öffne das VBA-Editor-Fenster (Alt + F11).
    • Füge den folgenden Code ein, um eine Mindesthöhe für die Zeilen festzulegen:
    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
   Application.ScreenUpdating = False
   Target.Rows.AutoFit
   If Target.RowHeight < 162 Then
       Target.RowHeight = 162
   End If
   Application.ScreenUpdating = True
End Sub

  5. Spezifische Zeilen ausschließen:

    • Verwende den Select Case-Befehl im VBA-Code, um bestimmte Zeilen auszuschließen:
    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Select Case Target.Row
       Case 1, 4, 7, 10
           Exit Sub
       Case Else
           Target.Rows.AutoFit
           If Target.RowHeight < 162 Then
               Target.RowHeight = 162
           End If
   End Select
End Sub

Häufige Fehler und Lösungen

  • Bild wird nicht korrekt in die Zelle eingefügt:

    • Stelle sicher, dass du die Option Bild an zelle anpassen aktiviert hast.

  • Zeilenhöhe wird nicht automatisch angepasst:

    • Überprüfe, ob der Zeilenumbruch aktiviert ist und ob das VBA-Skript korrekt implementiert wurde.

  • Mindesthöhe wird ignoriert:

    • Stelle sicher, dass die Bedingung im VBA-Code korrekt formuliert ist.

Alternative Methoden

  • Shortcut zum Anpassen der Zellengröße:

    • Du kannst die Tastenkombination Alt + H, dann O und anschließend I verwenden, um die Zellengröße automatisch anzupassen.

  • Manuelles Anpassen:

    • Ziehe die Zeilen- oder Spaltenkanten manuell, um die Größe anzupassen.

Praktische Beispiele

  • Bild in Zelle anpassen:

    • Wenn du ein Bild in die Zelle A1 einfügst, kannst du die Zelle so formatieren, dass sie genau die Größe des Bildes hat.

  • Text mit Zeilenumbruch:

    • Wenn du in Zelle B1 einen langen Text eingibst, wird die Zeilenhöhe automatisch an den Text angepasst, solange der Zeilenumbruch aktiviert ist.

Tipps für Profis

  • Nutze das VBA-Skript, um die Automatisierung weiter anzupassen und spezifische Anforderungen zu erfüllen.
  • Experimentiere mit verschiedenen Mindesthöhen, um die beste Darstellung für deine Daten zu finden.
  • Halte deine Excel-Version auf dem neuesten Stand, um die besten Funktionen und Sicherheitsupdates zu erhalten.

FAQ: Häufige Fragen

1. Wie kann ich die Höhe einer Zeile automatisch anpassen, wenn der Text umgebrochen wird?
Aktiviere den Zeilenumbruch in der Zelle und verwende die Funktion Zeilenhöhe automatisch anpassen.

2. Kann ich die Größe der Zellen für bestimmte Zeilen manuell anpassen?
Ja, du kannst spezifische Zeilen im VBA-Code ausschließen, damit sie nicht automatisch angepasst werden.

3. Welche Excel-Version wird für diese Funktionen benötigt?
Die beschriebenen Funktionen sind in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2016 und neuer.

Beliebteste Forumthreads (12 Monate)

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