MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 10.02.2018, 08:14   #1
03seli
MOF User
MOF User
Standard Excel2007 - Zellenhöhe (ganze Zeile) verändern

Hallo,

Ich möchte die folgende Ausführung auf die Zeilen von ("A22:A155") beschränken.

Zudem sollen nur Zeilen berücksichtigt werden in denen "leer" drin steht

Code:

Sub Zeilehoehe_Leerzeilen()
Dim c As Range
For Each c In Selection.Rows
  If Application.CountA(Rows(c.Row)) = 0 Then
    c.RowHeight = 5
  End If
Next
End Sub
Bitte Code wenn Lust ergänzen. Vielen Dank.

Grüsse Seli

__________________

Wer nicht fragt. bleibt dumm
03seli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 08:19   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

der Code macht das was er soll.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 08:24   #3
03seli
Threadstarter Threadstarter
MOF User
MOF User
Standard

Lieber Hajo_Zi,

Nicht ganz. Da sind noch 2 Bedingung einzubauen.

Grüsse Seli

__________________

Wer nicht fragt. bleibt dumm
03seli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 08:25   #4
EarlFred
MOF Guru
MOF Guru
Standard

Was ist mit deiner anderen Frage zur Änderung der Zeilenhöhe?
Warum verwendest du meinen Code, wenn er angeblich nicht funktioniert?

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 5 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,037% per 04.04.2018) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 08:33   #5
Hajo_Zi
MOF Guru
MOF Guru
Standard

es soll also in 16384 Zellen das Wort "Leer" stehen?

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 08:40   #6
03seli
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo,

Es sollen in Zeilen ("A22:A155") kontrolliert werden ob da irgendwo "leer" steht und diese Zeilen sollen in der Höhe nachgestellt werden.
Es Betrifft also nur die Spalte A (22-155).

Schöne Grüsse
Seli

__________________

Wer nicht fragt. bleibt dumm
03seli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 08:43   #7
Hajo_Zi
MOF Guru
MOF Guru
Standard

If Application.CountA(Rows(c.Row)) = 1 And Cells(c.Row, 1) = "Leer" Then

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:14   #8
03seli
Threadstarter Threadstarter
MOF User
MOF User
Standard

Vielen Dank. Wieder ein Problem weniger.
Das Wochenende kann nun kommen. Erst mal etwas hinlegen.

Schöne Grüsse und geiles WE Euch allen.
Seli

__________________

Wer nicht fragt. bleibt dumm
03seli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:29   #9
03seli
Threadstarter Threadstarter
MOF User
MOF User
Standard

Zu Früh gefreut...

Habe ein Beispiel angehängt. Es macht nicht das, was sie soll... Warum?

Gruss Seli
Angehängte Dateien
Dateityp: xlsm Schlanke Zeilen.xlsm (16,7 KB, 3x aufgerufen)

__________________

Wer nicht fragt. bleibt dumm
03seli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:33   #10
Hajo_Zi
MOF Guru
MOF Guru
Standard

Du solltest das in die Zelle schreiben was Du prüfst "Leer" ansonsten Ucase.
Leere Zeilen sollen nicht mehr die Zeilenhöhe bekommen?

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:36   #11
hary
MOF Guru
MOF Guru
Standard

Moin
geht schon, nur mueesen die Eintraege auch passen.
Im Code steht Leer in der tabelle leer
sollte schon gleichgeschrieben sein.;-))
oder du nutzt Lcase()
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:37   #12
03seli
Threadstarter Threadstarter
MOF User
MOF User
Standard

Das habe ich schon gesehen wegen Schreibweise und behoben. Doch bei mir wir nur die letzte Zeile mit "leer" der Abmagerungskur unterzogen. Die oberen bleiben unverändert.

Gruss Seli

__________________

Wer nicht fragt. bleibt dumm
03seli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:41   #13
Hajo_Zi
MOF Guru
MOF Guru
Standard

bei mir sind alle Zeilen mit Leer klein im geänderte Code.

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster, Test, Mappe, Beispiel, Fehler, Kalender usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:54   #14
03seli
Threadstarter Threadstarter
MOF User
MOF User
Standard

Das mit der Originaldatei ist so eine Sache....

Aber ich hab im Musterdatei was gesehen.
Sofern ich die betreffenden Zeilen sprich: A22 bis A37 vorher markiere, werden alle Zeilen mit "leer" wie gewünscht auf die grösse 5 gestellt.

Sind die Zellen nicht markiert, bewegt sich nichts. Sollte aber. (Nachtrag: Ist zwar mein Fehler... Hab ich nicht erwähnt, Entschuldige).

Gruss Seli

__________________

Wer nicht fragt. bleibt dumm
03seli ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 10.02.2018, 09:57   #15
Hajo_Zi
MOF Guru
MOF Guru
Standard

aber nicht mit Deinem Code.
selection.rows

Gruß Hajo

__________________

Signatur in jedem Beitrag
m Forum kann der Beitrag als erledigt markiert werden. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:04 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.