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
1396to1400
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste und Letzte Zeile mit bestimmtem Wert VBA

Erste und Letzte Zeile mit bestimmtem Wert VBA
09.12.2014 16:53:07
Stefan
Hallo Zusammen,
Wir würden gerne aus einer Spalte die erste und die letzte Zeile die einen bestimmten Wert haben auslesen.
Beispiel:
Spalte A
1 WERTA
2 WERTA
3 WERTB
4 WERTB
5 WERTC
Hierzu würden wir nun gerne wissen in welcher Zeile WERTB zum ersten Mal (A3) auftaucht und Welches die letzte Zeile mit WERT B (A4) ist. Von einer Sortierung kann man ausgehen.
ICh bin echt am verzweifeln - ich hoffe Ihr könnt mir helfen
Liebe Grüsse
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: Erste und Letzte Zeile mit bestimmtem Wert VBA
09.12.2014 17:04:58
Daniel
Hi
in VBA am einfachsten über die .FIND-Funktion:
über den Parameter SearchDirection steuerst du, ob die Suche von oben nach unten oder unten nach oben gehen soll.
Dim Zeile1 as long
dim Zeile2 as long
Zeile1 = Columns(1).Find(What:="WERTB", LookAt:=xlwhole, SearchDirection:=xlNext).Row
Zeile1 = Columns(1).Find(What:="WERTB", LookAt:=xlwhole, SearchDirection:=xlPrevious).Row

direkt in Excel über die unterschiedlichen VERGLEICH-Varianten:
erste Zeile: =Vergleich("WERTB";A:A;0)
letzte Zeile: =Vergleich("WERTB";A:A;1)
für die letzte Zeile muss aber die Datei nach Spalte A aufsteigend sortiert sein.
Gruß Daniel
Gruß Daniel

Anzeige
AW: Erste und Letzte Zeile mit bestimmtem Wert VBA
09.12.2014 17:18:15
Stefan
Hi Daniel,
Super Super Super, Vielen Dank ich habe die VBA Löscung genommen und es funktioniert.
Folgenden Code haben wir daraus gebaut. Suche nach allen Zeilen die MCD3 Haben (Wird noch variable) und Blende Sie aus wenn in einer Bestimmten Zelle nicht MCD3 Steht. Steht MCD3 in einer bestimmten Zelle werden Sie wieder eingeblendet.
Vielen Dank für deine Hilfe und einsn schönen Abend
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varAusblend As Range
Dim varSchalter As Range
Dim AnfMCD3 As Integer
Dim ENDMCD3 As Integer
AnfMCD3 = Columns(2).Find(What:="MCD3", LookAt:=xlWhole, SearchDirection:=xlNext).Row
ENDMCD3 = Columns(2).Find(What:="MCD3", LookAt:=xlWhole, SearchDirection:=xlPrevious).Row
MsgBox AnfMCD3
MsgBox ENDMCD3
Set varAusblend = ActiveSheet.Rows(AnfMCD3 & ":" & ENDMCD3)
Set varSchalter = ActiveSheet.Cells(12, 15)
If varSchalter.Value = "MCD3" And varAusblend.Hidden = True Then
varAusblend.Hidden = False
Else
If varSchalter.Value  "MCD3" And varAusblend.Hidden = False Then
varAusblend.Hidden = True
End If
End If
LotusScriptControlMode = Application.Run("RotzlerMacros.xls!fGetLotusScriptControlMode")
If LotusScriptControlMode = "1" Then
'### nothing ###
Else
' Application.Run "RotzlerMacros.xls!Rotzler_Worksheet_Change", Target
End If
End Sub

Anzeige

229 Forumthreads zu ähnlichen Themen

Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Letzte Zelle & Mittelwert
Frank

Hallo,
ich möchte den Mittelwert von z.B. A2 bis A(XYZ) ermitteln.
Die Letzte Zelle kann ich aus der Variable Letzte_Vlinie auslesen.
Wie muß die Befehlszeile in einem Makro aussehen damit xyz durch den Inhalt der Variable ersetzt wird.
Gruß und danke
Frank
05.11.2008 09:22:11
Thread-ID: 1021766
5 Beiträge
Letzten Zeilenwert
Andre´

Hallo alle zusammen,
wie kann ich den letzten Zeilenwert der 2.Zeile in einer MSGBox angeben also: 11.11.2008
(dazwischen sind leere Zellen)
Tabelle1

 ABCDEFG1wee  dfgh   2trtrt  recht  11.11.20083Uhuu  Prod &n...
18.11.2008 22:31:00
Thread-ID: 1025804
10 Beiträge
Anzeige
Formel für letzter Zeilenwert
Andre´

Hallo alle zusammen,
gibt es eine Formel, die mir den letzten Zeilenwert anzeigt.
Tabelle1

 BCDEFGHIJKLMN3 = letzter Zeilenwert() AnnePeter12.01.2008       Ändern4 = letzter Zeilenwert() FranzPetraLutz15.05.2008   ...
05.12.2008 07:44:00
Thread-ID: 1030336
8 Beiträge
Letzten Zeilen Wert mit Variabel Zeile
Andre´

Hallo alle zusammen,
mit nachfolgenden Makro wird der letzte Zeile Wert der 2.Zeile angezeigt:
Sub Let() Dim LoLetzte As Long LoLetzte = IIf(IsEmpty(Cells(2, Columns.Count)), Cells(2, Columns.Count).End(xlToLeft).Column, _ Columns.Count) MsgBox Cells(2, LoLetzte) End Sub
jetzt m...
07.12.2008 19:21:00
Thread-ID: 1030898
4 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Zeilen löschen mit Zellwert über...
Norbert

Hallo,
habe folgende Frage:
Wie schreibt man als Makro: lösche alle Zeilen deren Inhalt in Spalte K kleiner 180 ist.
Besten Dank für RüA!
27.01.2009 17:46:00
Thread-ID: 1044330
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
2
10
4
9
1
7
3
2
4
5
9
1
6
3
5
6
17
6
2
17
3
18
9
4
6