Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Werkzeuge (https://www.delphipraxis.net/63-sonstige-werkzeuge/)
-   -   Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer) (https://www.delphipraxis.net/212990-excel-bedingter-zelleninhalt-wenn-andere-zelle-nicht-leer.html)

ConnorMcLeod 4. Mai 2023 12:56

Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Hallo alle,
ich möchte aus einer teilweise augefüllten Spalte nur diejenigen Zellen in einer anderen Spalte zusammen sammeln, die Daten beinhalten. Mit welcher Vorgehensweise/Formel könnte das funktionieren?
Also aus dem hier
...
zwei
...
vier
fünf
...
sieben
...
neun
soll das werden:
zwei
vier
funf
sieben
neun

und zwar ohne Zwischenräume :-)

himitsu 4. Mai 2023 14:14

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Manuell: die spalte eventuell kopieren UND dann Sortieren ... danach sind alle Leerstellen zusammen und du kannst sie entfernen

https://exceljet.net/formulas/filter...e-blank-values
https://www.wps.com/academy/how-to-f...rials-1863312/

stahli 4. Mai 2023 14:27

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Falls Dir die händische Lösung nicht reicht, welche Excel-Version?

ConnorMcLeod 4. Mai 2023 20:34

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Hi, danke für die Antworten; es sollte automatisch funktionieren, deswegen die Frage nach der Formel. In diesem Fall ist es die Version 2007.

Andreas13 4. Mai 2023 20:51

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Hallo,
hier ist ein kleines Makro aus dem Buch von Bernd Held: Excel - VBA Kompendium - Mit über 1000 Makros für 2000 bis 2010. :angel:
Code:
Sub LeerZeilen_Loeschen()
'Bernd Held: Excel - VBA Kompendium - Mit über 1000 Makros für 2000 bis 2010
Dim Zeile As Long
Dim ZeileMax As Long

Sheets("Tabelle1").Activate
ZeileMax = ActiveSheet.UsedRange.Rows.Count
For Zeile = ZeileMax To 1 Step -1
   If Application.WorksheetFunction.CountA(Rows(Zeile)) = 0 Then
     Rows(Zeile).Delete
   End If
Next Zeile
End Sub
Man müßte es so anpassen, daß lediglich ein markierter Bereich bearbeitet wird und nicht die ganze Tabelle...
Vielleicht kann hier jemand dabei helfen? :-D

mmw 4. Mai 2023 21:50

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Hallo,
in diesen Fall wäre diese Formel guenstiger-

letzte_zeile:=excel_obj.Worksheets[sheet_name].Cells[excel_obj.Worksheets['Liste'].rows.count, 1].End[xlUp].Row;// als Beispiel

https://stackoverflow.com/questions/...-a-endxlup-row

dann die Cellen entsprechend abfragen

https://wellsr.com/vba/2016/excel/us...cell-is-blank/

https://www.techonthenet.com/excel/formulas/isempty.php


Gruß

Andreas13 4. Mai 2023 22:15

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Ich glaube, bald eine Lösung zu haben, aber es fehlt noch eine Kleinigkeit: Wie kann ich von einem markierten Bereich die "Koordinaten" (= Tabellen-Namen & Range) ermitteln?

stahli 5. Mai 2023 09:42

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
2007 ist natürlich schon sehr alt... :-/

Wenn die anderen Tipps nicht helfen, vielleicht gab es damals schon Pivottables?
PowerQuerys gab es sicherlich noch nicht. Die sind sonst oft ganz hilfreich.

ConnorMcLeod 5. Mai 2023 09:51

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Wau, da sind ja viele gute Ideen dabei, danke dafür!
Sollten wir in absehbarer Zeit keine Lösung finden, dann programmiere ich etwas in Delphi. Das wäre dann leider nicht sehr flexibel, weil die bewußten Inhalte auf beliebigen Arbeitsblättern vorkommen können.
Das müßte dann ein kleines GUI haben, wo man das Arbeitsblatt und den Bereich bestimmen kann.

stahli 5. Mai 2023 11:14

AW: Excel - bedingter Zelleninhalt (wenn andere Zelle nicht leer)
 
Je nachdem, wie oft so etwas (ähnliches) gebraucht wird, wäre evtl. auch eine aktuellere Excel-Lizenz sinnvoll.

<Schleichwerbung/>
PS: Bei der Gelegenheit will ich mal auf den "Synkronizer" hinweisen. Damit kann man unterschiedliche Excel-Datei-Versionen sehr komfortabel miteinander vergleichen.
(bin nicht verwandt oder verschwägert, nur begeistert! :-)
</Schleichwerbung>


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:12 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz