[GastForen Programme Office Microsoft Office Wenn 0 (Null), dann ganze Zeile löschen

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Office - Alles fürs Büro
Themen
Beiträge
Moderatoren
Letzter Beitrag

Wenn 0 (Null), dann ganze Zeile löschen

planobogen
Beiträge gesamt: 1043

24. Jan 2013, 21:08
Beitrag # 1 von 6
Bewertung:
(13619 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Gemeinde,

bei einer Tabelle stehen in der Spalte F und G verschiedene Zahlenwerte.
Wenn nun der Wert 0 (Null) in den besagten Spalten auftaucht, dann soll die ganze Zeile gelöscht werden.

Ich als totaler Makro-Dummy bekomme es zeitlich einfach nicht hin, mir ein Makro zu erstellen. Bitte um freundliche Hilfestellung.
Gruß planobogen
______________________________________________________________________________

„Freude an der Arbeit lässt das Werk trefflich geraten". Aristoteles und Ich
______________________________________________________________________________


X

Wenn 0 (Null), dann ganze Zeile löschen

planobogen
Beiträge gesamt: 1043

25. Jan 2013, 18:12
Beitrag # 2 von 6
Beitrag ID: #507377
Bewertung:
(13564 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Frage hat sich erledigt. Ein Freund (Excelvirtuose) hat sich meinem Problem angenommen und mir unter die Arme gegriffen.
Gruß planobogen
______________________________________________________________________________

„Freude an der Arbeit lässt das Werk trefflich geraten". Aristoteles und Ich
______________________________________________________________________________




als Antwort auf: [#507311]

Wenn 0 (Null), dann ganze Zeile löschen

Klaus79
Beiträge gesamt: 313

25. Jan 2013, 18:22
Beitrag # 3 von 6
Beitrag ID: #507379
Bewertung:
(13562 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo planobogen:

Sub ZeilenMitWertNull_Loeschen()
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

With ActiveSheet
'letzte Zeile bestimmen
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
'Von unten nach oben durchsuchen
For Lrow = Lastrow To 1 Step -1
If .Cells(Lrow, "F").Value = "0" Or .Cells(Lrow, "G").Value = "0" Then .Rows(Lrow).Delete
Next Lrow
End With

With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With

End Sub


Gruß
Klaus


als Antwort auf: [#507311]

Wenn 0 (Null), dann ganze Zeile löschen

Klaus79
Beiträge gesamt: 313

25. Jan 2013, 18:25
Beitrag # 4 von 6
Beitrag ID: #507380
Bewertung:
(13556 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Upps, da bin ich wohl 10 Minuten zu spät gekommen.
Dann ist es für's Archiv ...

Gruß
Klaus


als Antwort auf: [#507379]

Wenn 0 (Null), dann ganze Zeile löschen

planobogen
Beiträge gesamt: 1043

25. Jan 2013, 19:25
Beitrag # 5 von 6
Beitrag ID: #507381
Bewertung:
(13502 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Klaus, danke für das Makro,

aber wenn in der Spalte F Null steht und in der Spalte G Eins, dann löscht Dein Makro trotzdem die ganze Zeile raus, soll aber stehenbleiben.
Sorry, konntest Du ja nicht wissen, daß auch unterschiedliche Werte drin stehen können, da Du keine Excel-Tabelle zur Ansicht erhalten hast.

Trotzdem vielen Dank für Deine Hilfe.
Gruß planobogen
______________________________________________________________________________

„Freude an der Arbeit lässt das Werk trefflich geraten". Aristoteles und Ich
______________________________________________________________________________




als Antwort auf: [#507379]

Wenn 0 (Null), dann ganze Zeile löschen

Klaus79
Beiträge gesamt: 313

26. Jan 2013, 22:07
Beitrag # 6 von 6
Beitrag ID: #507401
Bewertung:
(13406 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,
nun, dann ändere einfach diese Zeile in

If .Cells(Lrow, "F").Value = "0" And .Cells(Lrow, "G").Value = "0" Then .Rows(Lrow).Delete

Gruß
Klaus


als Antwort auf: [#507381]
X

Aktuell

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
01.12.2020 - 03.12.2020

ortsunabhängig
Dienstag, 01. Dez. 2020, 10.00 Uhr - Donnerstag, 03. Dez. 2020, 11.30 Uhr

Online Workshop-Reihe

Sie wollen barrierefreie PDF-Dokumente mit möglichst wenig Aufwand erstellen? Mit ein wenig Grundlagenwissen können Sie dies aus InDesign mit axaio MadeToTag erreichen – ohne manuelle Nacharbeit im PDF! In diesem 3-teiligen, interaktiven Webinar, das wir vom 1. – 3. Dezember 2020 gemeinsam mit unserem Partner und InDesign-Experten Klaas Posselt von einmanncombo organisieren, lernen die Teilnehmenden, wie sie zielführend beim Erstellen von barrierefreien PDF-Dokumenten aus Adobe InDesign vorgehen. Dafür wird zu Beginn vermittelt, was ein barrierefreies PDF ist, und welche Anforderungen an solche Dokumente bestehen. Mit diesem Wissen werden, anhand von Best-Practice-Beispielen, Strategien zum effizienten Erstellen von PDF/UA-konformen Dokumenten und Formularen mit Adobe InDesign und axaio MadeToTag gezeigt. Außerdem werden Lösungen für klassische Probleme vermittelt. Die Teilnehmenden erhalten im Vorfeld eine Liste der notwendigen Software, wie auch vorbereitete Workshop-Daten, an denen alle im Webinar unter Anleitung arbeiten. Während des Webinars haben die Teilnehmenden die Möglichkeit, Fragen zu stellen. Inhalte der einzelnen Webinare: Die Webinar-Serie besteht aus vier Teilen (Inhalte folgend). Diese bauen aufeinander auf, können aber, mit den entsprechenden Vorkenntnissen, auch einzeln besucht werden. Webinar 1 – Grundlagen (1. Dezember 2020, 10.00 - 11.30 Uhr) Fundiertes Grundlagenwissen über barrierefreie PDF-Dokumente bildet die Basis einer erfolgreichen Umsetzung in InDesign, um die dafür notwenigen Werkzeuge richtig einsetzen zu können. â–ª Warum barrierefreies PDF? â–ª Gesetzliche Grundlagen und Richtlinien â–ª Anforderungen an barrierefreie PDF-Dokumente â–ª Basiswissen zur Umsetzung in InDesign â–ª Einordnung axaio MadeToTag Webinar 2 – Einstieg MadeToTag (2. Dezember 2020, 10.00 - 11.30 Uhr) Anhand eines InDesign-Beispieldokumentes wird eine Publikation Schritt für Schritt mit MadeToTag barrierefrei gemacht. â–ª Warum MadeToTag nutzen? â–ª Nützliche Funktionen/Mehrwert gegenüber InDesign â–ª Arbeitsschritte in der Übersicht â–ª Gemeinsam ein Dokument barrierefrei machen, Schritt für Schritt â–ª Ausgabe als barrierefreies PDF/UA Webinar 3 – Spezielle Aufgaben mit MadeToTag meistern (3. Dezember 2020, 10.00 - 11.30 Uhr) Bestimmte Inhalte, wie unpassend erstellte Inhalte (z.B. manuelle Trennungen), komplexe Tabellen oder Formulare, können in einer barrierefreien Umsetzung sehr störend oder gar kniffelig sein. MadeToTag kann hier Hilfestellung leisten. â–ª Probleme finden und beheben â–ª Komplexere und richtig komplexe Tabellen â–ª Formulare â–ª Schneller Arbeiten mit Shortcuts â–ª Vorlagen aufbauen Ziele der Webinar-Serie: â–ª Grundlagen barrierefreier Dokumente kennen â–ª Barrierefreie Dokumente in InDesign mit MadeToTag vorbereiten und ausgeben Teilnahmegebühr: Die Teilnahmegebühr für alle drei Webinare beträgt € 89,- (zzgl. MwSt.) Wir freuen uns auf Ihre Teilnahme! Das axaio-Team

Ja

Organisator: axaio software

Kontaktinformation: Karina Zander, E-Mailk.zander AT axaio DOT com

https://en.xing-events.com/OEBIDIR.html

Erstellung barrierfreier PDF-Dokumente mit InDesign & MadeToTag
Veranstaltungen
07.12.2020 - 08.12.2020

Digicomp Academy AG, Küchengasse 9, 4051 Basel
Montag, 07. Dez. 2020, 08.30 Uhr - Dienstag, 08. Dez. 2020, 17.00 Uhr

Kurs

Dieser Basic-Kurs ist der perfekte Einstieg in die Welt von InDesign, dem vielseitigen Layout-Programm. Sie lernen, wie InDesign aufgebaut ist, wie saubere Dokumente erstellt werden und wie man korrekt mit gelieferten InDesign-Projekten umgeht.

CHF 1'400.-
Dauer: 2 Tage

Nein

Organisator: Digicomp Academy AG

Kontaktinformation: Isil Günalp, E-Mailisil.guenalp AT digicomp DOT ch

https://www.digicomp.ch/weiterbildung/software-anwendungs-trainings/adobe-trainings/desktop-publishing/adobe-indesign-cc/kurs-indesign-cc-basic

Neuste Foreneinträge


Home-Office

Initial mit unterschiedlichem rechten Rand

PPT-Grafik nachbauen

Designer: Stile

Fehlende Bilddarstellung in Mail

Probleme mit dem Strukturbaum Acrobat Pro DC (barrierefrei)

Nach Installation des RAM bleibt das Display über mehrere Minuten dunkel. Was tun?

Indesign CC2021 verliert Speicherpfad von Dateien

Gibt es Audio-USB-Adapter mit STEREO-Mikrofoneingang?

Index-Probleme
medienjobs