Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gefuellte Zellen einer Spalte auf Wert untersuchen

Gefuellte Zellen einer Spalte auf Wert untersuchen
09.08.2006 05:16:01
Tobias
Hallo Forum,
ich stecke gerade in dem Problem, dass ich den Autofilter per VBA auf mehrere Spalten nacheinander anwenden will. Hierfuer muss ich die jeweils verbleibenden Moeglichkeiten abfragen. Dies mache ich mit Application.Match(gesucht,Bereich,0)
Dieses Kommando klappt aber nicht immer, und ich habe auch keine Beschreibung dafuer gefunden (link?). Gibt es noch einen anderen Befehl, der mir einen festgelegten Wert in allen sichtbaren, mit werten gefuellten Zellen einer bestimmten Spalte sucht? (Rueckgabe ja/nein ausreichend)
Ich glaube, ich stehe hier gewaltig auf dem Schlauch, aber auch die verflixte VBA-Hilfe kann ihrer Bestimmung dabei nicht wirklich gerecht werden.
Danke schonmal!
tobias

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

Betreff
Datum
Anwender
Anzeige
AW: Gefuellte Zellen einer Spalte auf Wert untersu
09.08.2006 07:58:04
Ramses
Hallo
Application.Match kann nicht funktionieren, weil es das nicht gibt.
Aus der Hilfe
Verwenden Sie eine Arbeitsblattfunktion, die einen Bereichsbezug als Argument fordert, so müssen Sie ein Range-Objekt festlegen. Sie können z.B. die Arbeitsblattfunktion VERGLEICH (Match in VBA) verwenden, um einen Zellbereich zu durchsuchen. In eine Zelle eines Arbeitsblattes würden Sie dazu eine Formel wie =VERGLEICH(9,A1:A10,0) eingeben. In einer Prozedur in Visual Basic jedoch legen Sie ein Range-Objekt fest, um das gleiche Ergebnis zu erhalten.

Sub FindFirst()
myVar = Application.Worksheet


Function _
.Match(9, Worksheets(1).Range("A1:A10"), 0)
MsgBox myVar
End Sub



Ansonsten verhält sich die Funktion gleich wie Tabellenfunktion "Vergleich", kannst also diese Hilfe verwenden.

Rückgabe "JA/NEIN" kann nicht funktionieren, weil die Funktion die relative Position des Suchbegriffes in deinem Suchbereich zurückgibt.

Um auf das Beispiel von oben zurückzukommen, musst du also abfragen ob das Suchergebnis einen Wert grösser 0 hat. Wird der Begriff nicht gefunden, erhältst du einen Fehler, den du aber vorgänig mit

On Error Resume Next

abfangen kannst, und nach der Funktion die Fehlerbehandlung wieder einschaltest.

Gruss Rainer
Anzeige
AW: Gefuellte Zellen einer Spalte auf Wert untersu
09.08.2006 08:59:43
Tobias
Hallo und vielen Dank.
ich stehe jedoch immernoch auf dem Schlauch. Mittlerweile nur ein bisschen weiter hinten.
Beim folgenden Code ist handle die variablenstruktur, combination das arbeitblatt und k eine konstante.
Dim tmp1 As Variant
tmp1 = Range(handle.combination.Cells(1, k), handle.combination. _
Cells(20, k)).SpecialCells(xlCellTypeVisible)
Ich habe auf die Spalte k-1 bereits einen Autofilter angewandt. Im Debugmodus stehen in tmp1 jedoch nur die Werte bis zur ersten ausgeblendeten Zeile. alles was danach kommt, wird in tmp1 nicht aufgenommen. wieso? (zeile 1 und 20 sind immer sichtbar)
Danke,
tobias
Anzeige
AW: Gefuellte Zellen einer Spalte auf Wert untersu
09.08.2006 20:48:44
Ramses
Hallo
Excel kann damit nichts anfangen.
Was eine Variablenstruktur ist, weiss ich nicht.
Aber es muss heissen
tmp1 = Range(Worksheets(combination).Cells(1, k), Worksheets(Combination).Cells(20, k)).SpecialCells(xlCellTypeVisible)
Was das Handle soll, versteh ich nicht
Gruss Rainer
Geloest: Gefuellte Zellen einer ...
10.08.2006 04:13:50
Tobias
Hallo Rainer,
vielen Dank fuer Die hilfe. Ich habe das Problem soeben geloest.
ich habe CurrentWorkbook.Worksheets("combination").xxx in meiner Variablenstruktur abgelegt(c: struct, excel:type), was aber fuer die Loesung des Problems unerheblich ist.
Die zurueckgegebene Range enthaelt jedenfalls nur die ersten zusammenhaengenden Zellen, mehr nicht, keine Ahnung wieso!
Ich habe mir jetzt mit einer Schleife geholfen:
dim tmp1() as Variant
For j = 3 To maxrow
If Not IsEmpty(.Cells(j, k - 2)) And Not Rows(.Cells(j, k - 2).Row).Hidden Then
ReDim Preserve tmp1(1 To j - 2)
tmp1(j - 2) = .Cells(j, k - 2)
End If
Next j
Das geht.
Ciao,
tobias
Anzeige

309 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 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
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4