Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1452to1456
1452to1456
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ausgefüllter Bereich ausgeben

Forumthread: Ausgefüllter Bereich ausgeben

Ausgefüllter Bereich ausgeben
21.10.2015 13:11:20
Mister-B
Hallo,
ich habe mal wieder ein kniffliges Problem. In einer Tabelle stehen in Zeile 1 die Tage des Jahres (bis Spalte 365 bzw. 366).
Die Zellen darunter (Zeile 2) beinhalten hin und wieder mal eine 1, die markieren sollen, dass am entsprechenden Tag was ist. Wie kann ich z.B. in einer Listbox (UF) auflisten welche Zeiträume mit einer 1 markiert sind z.B.
01.01.2016 - 15.01.2016
24.02.2016 - 07.03.2016
Ich hofffe ich habe mich verständlich gemacht. Vielen Dank für die Hilfe.
Gruß
Martin

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgefüllter Bereich ausgeben
22.10.2015 09:13:28
Beverly
Hi Martin,
meinst du so etwas:
Private Sub UserForm_Activate()
Dim intSpalte As Integer
Dim arrDaten()
Dim intZaehler As Integer
Dim blnStart As Boolean
For intSpalte = 1 To 366
If Cells(2, intSpalte) = 1 Then
If blnStart = False Then
ReDim Preserve arrDaten(0 To intZaehler)
arrDaten(intZaehler) = Cells(1, intSpalte) & "-"
intZaehler = intZaehler + 1
blnStart = True
End If
Else
If blnStart Then
If Cells(1, intSpalte - 1) = DateValue(Application.Substitute(arrDaten( _
intZaehler - 1), "-", "")) Then
arrDaten(intZaehler - 1) = Application.Substitute(arrDaten(intZaehler - 1),  _
"-", "")
Else
arrDaten(intZaehler - 1) = arrDaten(intZaehler - 1) & Cells(1, intSpalte -  _
1)
End If
blnStart = False
End If
End If
Next intSpalte
ListBox1.List = arrDaten()
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Kontrolle ob Zelle ausgefüllt
Badi

Hallo zusammen
dank euch konnte ich mir folgendes Script basteln:
Sub Verschieben2010() Dim wks2 As Worksheet Dim lgLetzte As Long Dim intFrage As Integer Set wks2 = Sheets("Erledigte Aufträge 2010") intFrage = MsgBox("Ausgewählte Zeile wirklich in erledigte Aufträge 2010 verschieben?...
10.12.2009 13:43:29
Thread-ID: 1122910
4 Beiträge
Probs mit letzter ausgefüllter Zelle
Gegga

Hallo zusammen
hier mal mein Code
Private Sub KONTOAUSZUG_Click() 'Filtern nach übermittelten, entschiedenen und zurückgesendeten Teilen If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData Selection.AutoFilter Field:=13, Criteria1:=(">" & Trim(CDbl(Range("M3").Value))) Selecti...
05.02.2010 11:26:40
Thread-ID: 1136063
3 Beiträge
Nicht ausgefüllte Zellen zählen
Martin

Hallo zusammen,
ich möchte in einer Tablle die nicht ausgefüllten Zellen einer Spalte zählen. Normalerweise benutzt man ja einfach dazu die "ANZAHLLEEREZELLEN"-Funktion. Diese zählt leider auch zusammengeführte Zellen als leer.
Wie kann man verhindern, dass die zusammengeführten Zellen...
17.05.2010 17:43:34
Thread-ID: 1157487
8 Beiträge
UF Suchmakro ohne Ausgefüllte Felder
Heinz

Hallo Leute
Ich habe in einer UF ein Makro zum suchen.Das funktioniert auch ganz toll.
Nur muss in den Suchfeldern auch ein Wert stehen,sonst funktioniert es nicht.
Könnte man, dieses Makro so umschreiben,das nicht zwingend ist,das dort ein Wert steht?
Habe eine Beispielmappe ho...
18.02.2011 21:38:18
Thread-ID: 1201773
6 Beiträge
Kontrollkästchen, ganz ausgefüllt
Janine

Hallo,
ich habe in einem Formular Kontrollkästchen eingefügt, die beim Draufklicken ja mit einem Haken gefüllt werden. Da diese Markierung bei Faxversand (Ausdruck wird per Fax verschickt) oft nicht richtig lesbar ist, meine Frage: Gibt es so eine Art Kontrollkästchen, das man komplett mit...
28.04.2011 10:09:24
Thread-ID: 1212118
4 Beiträge
letzte ausgefüllte Spalte
Joachim

Hallo,
bin da auf was ganz komisches gestossen. Mit dem Code
last_spalte = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
ermittlere ich die letzte gefüllte Spalte. Das klappt, NUR wenn alle 256 Spalten von Excel 2003 gefüllt sind, ist der Wert von last_spalte nicht 256 so...
10.05.2011 15:02:32
Thread-ID: 1213845
4 Beiträge
Autoform nur ausführen wenn ausgefüllt
Thorsten

Hallo zusammen,
Mal wieder eine Frage:
Ich habe eine Autoform mit 3 Textfeldern. Diese werden ausgefüllt und über einen CommandButton in eine Liste eingepflegt.
Zur Zeit ist es möglich nur ein Textfeld zu beschriften und trotzdem die Daten einzupflegen.
Also suche ich ein Makro,...
28.07.2011 09:22:14
Thread-ID: 1223867
8 Beiträge
Anzeige
Ausgefüllte Zellen aus Matrix auswählen
Nils

Hallo zusammen,
ich wäre sehr erfreut über eure Hilfe.
Ich habe eine Matrix mit 32 Zellen in denen aber nur 10 Felder einen Text enthalten. Diese Felder sind immer wieder unterschiedlich. Ich möchte diese zehn Zellen nun nebeneinander in einer Zeile haben und diese sollten alphabetisch...
03.01.2012 12:25:23
Thread-ID: 1244374
4 Beiträge
Anzeige
Makro wird unvollständig ausgefüllt
Günter

Mitdenker und Mitdenkerinnen, ich habe ein Makro aufgezeichnet, dass eine Liste, die ich jede Woche ziehen muß, in ein lesefreundliches Formular verwandeln soll. Zusätzlich sind in der Datei 00.00.0000 Datumsfelder vorhanden, die ich eliminieren will. So sieht das Makro aus:
Sub Mahnlisten(...
22.08.2012 13:28:50
Thread-ID: 1275972
3 Beiträge
Anzeige
suche n. letz. ausgefüllte Zeile; autom. Speichern
Sandra

Hallo zusammen,
ich habe schon oft Hilfe von Euch bekommen und ich glaube ganz fest daran, dass mein heutiges Problem für Euch ein Klacks ist.
Unten angefügt findet Ihr den Code. Diesen habe ich soweit schon für meine neuen Bedürfnisse ganz gut anpassen können. Nun aber meine Änderungsw...
24.09.2013 17:19:39
Thread-ID: 1332095
9 Beiträge
Nur ausgefüllte Serienbriefe zu PDF zusammenfügen
Isa

Hallo,
ich sitze mittlerweile den ganzen Tag am PC und habe mir vorgenommen auch nicht aufzustehen, bis ich für folgendes Problem eine Lösung habe:
Mit einem Makro in einem Excel-Dokument möchte ich in einem Word-Dokument einen Serienbrief erstellen, der direkt in eine PDF umgewandelt w...
01.04.2014 18:44:34
Thread-ID: 1355738
2 Beiträge
teilausgefüllte Zeilen eín- und ausblenden
Holm

Hallo liebes Forum,
ich hab wieder einmal eine besondere Aufgabe:
Ausgangslage:
Spalte A Artikelnummer
Spalte B Bezeichnung
Spalte C und D Mengen
Spalte E Palettennummer (1-150)
Spalte F Bemerkung
Das Ziel:
In der "Originalzeile" der Palette 1 würde ich...
23.10.2014 18:46:46
Thread-ID: 1388308
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige