Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ergebnis auslesen und in andere Spalte übertragen

Ergebnis auslesen und in andere Spalte übertragen
17.03.2009 08:16:28
Alex
Hallo,
Kann mir jemand bei folgendem Problem helfen:
Ich habe drei Spalten A, B, C.
In Spalte A steht in wenigen Zellen etwas drin und sehr viele Zellen sind leer. In Spalte B wird die Anzahl leerer Zellen der Spalte A gezählt und jedes Mal wenn in A etwas drin steht, beginnt er mit dem zählen der Leerzellen von vorn. Nun möchte ich, dass in Spalte C immer genau da wo in Spalte A etwas steht, die ANzahl der Leerzellen ausgegeben wird die er mir jeweils unter B ermittelt hat.
A B C
XXX 3
1
2
3
XXY 2
1
2
usw. so sollte es dann aussehen. Meine Tabelle ist sehr groß (10000 Zeilen), händisch zulesen also unmöglich. Bin sehr dankbar für jede Hilfestellung.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenzahl pro Gruppe
17.03.2009 09:27:19
Erich
Hi Alex,
vermutlich soll Tabelle2 die Basis sein, oder?
Probier mal
 ABCD
1XXX    33
2 1  
3 2  
4 3  
5xyz 22
6 1  
7 2  
8ENDE 0-9

Formeln der Tabelle
ZelleFormel
C1{=WENN(B1="";MIN(WENN(B2:B999="";ZEILE(2:999)))-ZEILE()-1;"")}
D1{=WENN(A1=0;"";MIN(WENN(A2:A1001<>"";ZEILE(2:1001)))-ZEILE()-1)}
B2=WENN(A2=0;N(B1)+1;"")
C2{=WENN(B2="";MIN(WENN(B3:B1000="";ZEILE(3:1000)))-ZEILE()-1;"")}
D2{=WENN(A2=0;"";MIN(WENN(A3:A1002<>"";ZEILE(3:1002)))-ZEILE()-1)}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen

In Spalte D ist eine Alternative zu Spalte C. Sie kommt ohne Spalte B aus, braucht dafür aber ein Ende in Spalte A.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Zeilenzahl pro Gruppe
17.03.2009 09:48:56
dirk
Hallo Alex,
das liesse sich auch mit folgenden Formeln und Macro bewerkstelligen (Zeilenzahl ist dann egal)
In Zelle B1 folgende Formel: =IF(A1="",1,"")
In Zelle B2 bis B folgende Formel: =IF(A2="",IF(B1"",B1+1,1),"")
Fuer die Eintraege in Spalte C folgendes Macro fuer das Tabellenblatt einfuegen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile
If Cells(i, 1).Value  "" Then
For j = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile
If Cells(i + j, 2).Value  "" Then
'dummy
Else
cnt = j - 1
j = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 3).Value = cnt
End If
Next
End If
Next
End Sub


Gruesse
Dirk

Anzeige
AW: Ergebnis auslesen und in andere Spalte übertragen
18.03.2009 08:57:18
dirk
Hallo nochmal,
habe das macro noch etwas angepasst, damit auch die tabelle bereinigt wird, fall ein eintrag in spalte A entfernt wird.
Gruss
Dirk aus Dubai

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
lastrow = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For i = 1 To lastrow
If Cells(i, 1).Value  "" Then
For j = 1 To lastrow
If Cells(i + j, 2).Value  "" Then
Cells(i + j, 3).Value = ""
Else
cnt = j - 1
j = lastrow
Cells(i, 3).Value = cnt
End If
Next
End If
Next
End Sub


304 Forumthreads zu ähnlichen Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Anzeige
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Spalte A und E aus allen Blätern zusammenkopieren
Mindjogger

Servus,
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils die Spalte A und E in eine neue Excel Datei auf ein Sheet kopieren.
Oder noch genauer:
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils ein Schlüsselwort (unique) als...
26.03.2009 17:01:20
Thread-ID: 1064329
4 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 Beiträge
Spalte nach Wert >10 durchsuchen und Wert ausgeben
Ron

Hallo Leute,
ich benötige wieder mal Hilfe bei der Umsetzung einer Idee. Ich habe in einem Tabellenblatt in einer Spalte (A) 20 absteigende Werte in Prozent. In Spalte B habe ich in ganzen Zahlen die Treffer aus meiner Datenbank zugeordnet. Jetzt möchte ich Spalte B von oben nach dem ersten...
05.05.2009 14:44:46
Thread-ID: 1073093
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
5
5
4
12
4
3
2
5
8
1
2
1
4
1
5
3
2
6
5
7
3
4
20
5