Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ganze Zeile Makieren wenn ich eine Zelle habe...

Ganze Zeile Makieren wenn ich eine Zelle habe...
12.10.2004 20:04:06
Michael
Hallo und sorry für den schlechten Betreff, ist aber auch schwer in ein paar Wörtern zusammenzufassen. ;)
Also ich habe folgendes Problem.
Mit For each zelle like XY... kann man ja nach etwas suchen, also z.B. XY.
Soweit ist ja alles ok, aber mein Problem ist nun herauszufinden wenn er eine Zelle findet welche das ist, also ob das C22, C90, C1000 oder C1 ist und dann die Zahl davon "abzuschneiden" und in eine Variable schreiben sodass ich die Zeile z.B. 1000 Makieren (und dann löschen) kann wenn XY in C1000 gefunden wurde.
Finde einfach keine Lösung für das Problem, wäre super wenn mir jemand helfen kann.
PS: Hoffe ich überschätze mich nicht mit meiner "Level"-Angabe. Aber VBA nur mit Makrorekorder wäre ein wenig untertrieben. ;)
Danke

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

Betreff
Datum
Anwender
Anzeige
AW: Ganze Zeile Makieren wenn ich eine Zelle habe...
nighty
hi micha :)
ein kleines beispiel :))
die aktive zelle wird zum suchbegriff des angegebenen bereiches und bei fund die zeile geloescht,somit spielraum fuer experimente besteht,bzw. die find methode noch zu erwaehnen waere :))
gruss nighty

Sub DateiÖffnen()
Dim rgBereich As Range
Dim SucheNach
Dim zeichen1 As Range
SucheNach = ActiveCell.Value
Set rgBereich = Worksheets("Tabelle1").Range("E1:E3")
For Each zeichen1 In rgBereich
If zeichen1.Value = SucheNach Then
Rows(zeichen1.Row & ":" & zeichen1.Row).Delete Shift:=xlUp
Exit For
End If
Next zeichen1
End Sub

Anzeige
AW: Ganze Zeile Makieren wenn ich eine Zelle habe...
nighty
hi micha :)
hier noch ein beispiel mit der findmethode und auf zwei suchbegriffe in spalte a wie spalte b bezogen,bei fund erfolgt die zeilenloeschung
gruss nighty

Sub suchen()
Dim zaehler1 As Long
Dim suche1 As Range
Dim suche2 As Range
Dim wert As String
Dim wert1 As String
With Worksheets(1)
rem hier die beiden suchbegriffe(string)
wert = "01"
wert1 = "01"
For zaehler1 = 1 To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row - 1
Set suche1 = Worksheets(1).Range("A" & zaehler1 & ":A" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert)
Set suche2 = Worksheets(1).Range("B" & zaehler1 & ":B" & Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row).Find(wert1)
If Not suche1 Is Nothing And Not suche2 Is Nothing Then
If suche1.Row = suche2.Row Then
zaehler1 = suche1.Row
Rows(suche1.Row & ":" & suche1.Row).Delete Shift:=xlUp
End If
Else
Exit For
End If
Next zaehler1
End With
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

Bedingte Formatierung ich kriegs nicht hin.
Tom

Hi,
ich versuch hier eine bedingte Formatierung hinzubekommen aber es will nicht, ich steh voll auf dem Schlauch.
Wenn T5 = S5 dann Gruen ; S5 Darf aber nicht 0 sein
Wenn T5 S5 dan Rot ich hab bei gruen das so:
=S5=WENN(T50;T5;-1)
Bei rot so:
=UND(S5T5;T5=0)
m...
08.08.2008 15:58:37
Thread-ID: 1000337
4 Beiträge
Anzeige
Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Wenn kein Optionsfeld ausgewählt dann MsgBox
Bernhard

Hallo liebe Excel Freunde!
Wer kann mir bitte helfen? Ich habe eine UF mit 2 Optionsfeldern. Ich möchte einen Hinweis mit einer MsgBox bekommen, wenn keines der beiden Optionsfelder ausgewählt wurde.
Wie mache ich das in VBA?
Danke für Eure Hilfe
Gruss
Bernhard
09.09.2008 11:32:23
Thread-ID: 1008391
5 Beiträge
Anzeige
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
wenn Spalte F nicht leer, ganze Zeile markieren
maxx_1985

Hallo mit'mander
Ich hab ein kleines VBA Probelem. Naemlich das fogende:
Wenn Zelle in Spalte F NICHT leer, dann die ganze Zeile markieren (einfach markieren, keine Farbe und nichts).
Bin gerade dabei mit dem Recorder was zu basteln (da ich noch kein vba kann) und bin an ganau diese...
19.11.2008 18:37:00
Thread-ID: 1026165
11 Beiträge
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 istleer
Reuter

Hallo
habe ein kleines problem. Ich muss die "Wenn Istleer" Formel anwenden, aber nur dann wenn 2 bestimmte Zellen leer sind. Bsp:
Wenn(istleer A1 und B2) dann mache gar nichts ansonsten einen Sverweis.
Mfg
Ich hoffe auf baldige Antwort
02.04.2009 10:33:43
Thread-ID: 1066230
4 Beiträge
Wert aus Matrix wenn Zelle nicht leer
petra

Hallo Zusammen,
brauche dringend Hilfe. Hoffe ihr wisst eine Lösung, also folgendes Problem:
Ich möchte aus einer zweidimensionalen Matrix einen Wert anhand von 2 Suchkriterien herausfiltern.
....A B C D E
1. a b c d e
2..x ö.1....5
3..y ä....4
4..z ü.3
Wenn...
15.04.2009 13:39:28
Thread-ID: 1068877
2 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
3
5
4
2
2
10
7
3
1
2
10
1
23
3
6
4
15
3
2
2
3
1
9
2