Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 16:19:42
SummeWenn / SummeWenns mit Bedingung wenn kleiner als dann
24.04.2024 14:48:50
"Eingabefeld" zwischen zwei Zeilen geht nicht weg.
24.04.2024 14:40:10
Zeilenumbrüche in Textbox zählen
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1268to1272
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Wenn Zelle Leer dann

VBA Wenn Zelle Leer dann
Philipp
Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A und in der Reihe 1 Werte stehen. Wenn das der Fall ist soll es diese als Liste darstellen.
Das ganze soll dann so aussehen:
BLA XYZ 23%
BLUB XYZ 2%
BLUB ABC 7%
usw.
Wie programmiere ich das Makro so,das es die Felder auf Inhalt prüft und sie für den Fall das sie NICHT LEER sind verkettet?
Hoffe das ist jetzt nicht zu kompliziert erklärt ;)
DANKE

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Wenn Zelle Leer dann
12.07.2012 16:29:13
Franc
bissi ungenau beschrieben ...
Laut deinem Beispiel soll er
- die erste Spalte bei der Liste ignorieren
- wenn nur in Spalte B und C was steht dann soll er B und C nehmen
- wenn in Spalte B, C und D was steht soll er B und D nehmen?
Wo soll die Liste erstellt werden?
AW: Kreuztabelle auflösen
13.07.2012 15:19:10
fcs
Hallo Philipp,
	XYZ	ABC		GHI
Bla	23%		7%	3%
Blub	2%	7%		20%

wird zu 
Wert 1	Wert 2	Prozent
Bla	XYZ	23%
Bla	GHI	3%
Blub	XYZ	2%
Blub	ABC	7%
Blub	GHI	20%

Gruß
Franz 
Sub Kreuztabelle_auf_loesen()
Dim wb As Workbook
Dim wks_Q As Worksheet
Dim wks_Z As Worksheet
Dim Zeile_Z As Long, Zeile_Q As Long, Spalte_Q As Long
Set wb = ActiveWorkbook
Set wks_Q = ActiveSheet
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Neues Blatt für umgruppierte Daten
wb.Worksheets.Add
Set wks_Z = ActiveSheet
With wks_Z
'Spaltentitel in Zieltabelle
Zeile_Z = 1
.Cells(Zeile_Z, 1) = "Wert 1"
.Cells(Zeile_Z, 2) = "Wert 2"
.Cells(Zeile_Z, 3) = "Prozent"
.Columns(3).NumberFormat = "0%"
End With
With wks_Q
For Zeile_Q = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
For Spalte_Q = 2 To .Cells(1, .Columns.Count).End(xlToLeft).Column
If .Cells(Zeile_Q, Spalte_Q)  "" And .Cells(1, Spalte_Q)  "" Then
Zeile_Z = Zeile_Z + 1
wks_Z.Cells(Zeile_Z, 1) = .Cells(Zeile_Q, 1)
wks_Z.Cells(Zeile_Z, 2) = .Cells(1, Spalte_Q)
wks_Z.Cells(Zeile_Z, 3) = .Cells(Zeile_Q, Spalte_Q)
End If
Next Spalte_Q
Next Zeile_Q
End With
With wks_Z
.Columns.AutoFit
Range("A2").Select
'Fenter fixieren
ActiveWindow.FreezePanes = True
End With
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Sub

Anzeige

413 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Wenn Zelle enthält, dann
Rudolph

Hallo,
ich möchte mit .xls meine Kontodaten auswerten. Die Kontoauszugsdaten stehen in Spalte "D" auf dem Sheet "Kontodaten" Im selben Sheet Spalte "E" steht der Betrag. Das Sheet "Bezüge" enthält Namensfelder (z.B. "Auto" mit einer Auflistung der Tankstellen, KFZ-Versicherung o.ä.; "Lebens...
23.05.2009 14:30:40
Thread-ID: 1076853
5 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge

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
3
15
5
2
2
7
2
3
4
4
2
9
2
6
9
8
5
2
10
2
3
5
2
3
3