Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
24.04.2024 12:16:26
Name von aktuellem VBA-Modul ausgeben
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1024to1028
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
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Erste und letzte Zelle finden

Erste und letzte Zelle finden
18.11.2008 09:38:00
Frank
Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und G100 bis G1000 summieren. Das Summenergebniss möchte ich in H 1000 anzeigen.
In der Spalte A befindet sich immer eine Uhrzeit, in der Spalte G befindet sich immer eine Zahl.
Vielen dank für Hilfe.
Gruß
Frank

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit summenprodukt()
18.11.2008 09:53:00
heikoS
Hallo Frank,
das sollte z.B. so gehen:
Tabelle2

 ABCDEFGHI
105:00:00     1Start06:00:00
206:00:00     2Ende12:00:00
307:00:00     5Ergebnis22
408:00:00     4  
509:00:00     1  
610:00:00     2  
711:00:00     5  
812:00:00     3  
913:00:00     2  
1014:00:00     1  

Formeln der Tabelle
ZelleFormel
I3=SUMMENPRODUKT(--(A1:A10>=I1); --(A1:A10<=I2); G1:G10)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Klappt´s?
Gruß Heiko
Anzeige
AW: Erste und letzte Zelle finden
18.11.2008 10:22:00
Frank
Hallo Heiko,
leider klappt es so nicht.
Ich muß nach der Zelle suchen wo sich z.B. Startzeit befindet. Es ist nur durch Zufall A100.
Die Endzelle (14:00) kann sich auch in A3154 befinden.
Dazu benötige ich ein Makro was ich in meinem Makro einbinde.
Dank dir auch wen es so nicht funktioniert.
Gruß
Frank
AW: Erste und letzte Zelle finden
18.11.2008 10:35:00
Frank
Entschuldige Heiko,
aber da habe ich etwas übersehen.
Ich werde es mal in mein Makro eintragen.
Denke das es so funktioniert.
Melde mich noch einmal.
Gruß
Frank
AW: Erste und letzte Zelle finden
18.11.2008 10:43:57
Chris
Servus Frank,
als Makro:
Sub t() Dim i As Long, lngLetzte As Long, lngAnfang As Long, lngEnde As Long Dim dbSumme As Double lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lngLetzte If Cells(i, 1) = 6 / 24 Then lngAnfang = Cells(i, 1).Row If Cells(i, 1) = 14 / 24 Then lngEnde = Cells(i, 1).Row: Exit For Next i If lngAnfang 0 And lngEnde 0 Then dbSumme = Application.WorksheetFunction.Sum(Range("G" & lngAnfang & ":G" & lngEnde)) End If MsgBox dbSumme End Sub


Gruß
Chris

Anzeige
AW: Erste und letzte Zelle finden
18.11.2008 12:08:31
Frank
Hallo Chris,
Aus irgendeinem Grund funktioniert es nicht.
Angezeigt wird:
dbSumme = 0 (ist falsch)
lngLetzte = 2936 (ist richtig)
lngAnfang = 0 (ist falsch)
lngEnde = 0 (ist falsch)
06:00:12 befindet sich in A103.
Die Sekunden interessieren mich dabei nicht.
Dim i As Long, lngLetzte As Long, lngAnfang As Long, lngEnde As Long
Dim dbSumme As Double
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lngLetzte
If Cells(i, 1) = 6 / 24 Then lngAnfang = Cells(i, 1).Row
If Cells(i, 1) = 14 / 24 Then lngEnde = Cells(i, 1).Row: Exit For
Next i
If lngAnfang 0 And lngEnde 0 Then
dbSumme = Application.WorksheetFunction.Sum(Range("G" & lngAnfang & ":G" & lngEnde))
End If
Rem MsgBox dbSumme
Range("J4").Value = dbSumme
Range("J5").Value = lngLetzte
Range("J6").Value = lngAnfang
Range("J7").Value = lngEnde
Gruß
Frank
Anzeige
AW: versuch mal dies
18.11.2008 14:34:00
Chris
Servus,
dann so:

Sub t()
Dim i As Long, lngLetzte As Long, lngAnfang As Long, lngEnde As Long
Dim dbSumme As Double, merkAnfang As Long, merkEnde As Long
Dim rSuche As Range, rFinde As Range, strErste As String
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Set rFinde = Range("A1:A" & lngLetzte)
Set rSuche = rFinde.Find(what:="06:00:*", lookAt:=xlPart, LookIn:=xlValues)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
merkAnfang = rSuche.Row
Do
lngAnfang = rSuche.Row
If lngAnfang > merkAnfang Then
lngAnfang = merkAnfang
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
End If
Set rSuche = rFinde.Find(what:="14:00:*", lookAt:=xlPart, LookIn:=xlValues)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
merkEnde = rSuche.Row
MsgBox merkEnde
Do
lngEnde = rSuche.Row
If lngEnde > merkEnde Then
lngEnde = merkEnde
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
End If
If lngAnfang  0 And lngEnde  0 Then
dbSumme = Application.WorksheetFunction.Sum(Range("G" & lngAnfang & ":G" & lngEnde))
End If
MsgBox dbSumme
End Sub


Bei der Schleife wurde genau 06:00:00 und 14:00:00 gesucht, wenn die nicht da sind, dann macht er auch keine Summe.
Gruß
Chris

Anzeige
AW: Nachtrag
18.11.2008 14:49:00
Chris
servus,
und falls dich die Minuten auch nicht kratzen, dann so:

Sub t()
Dim i As Long, lngLetzte As Long, lngAnfang As Long, lngEnde As Long
Dim dbSumme As Double, merkAnfang As Long, merkEnde As Long
Dim rSuche As Range, rFinde As Range, strErste As String
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Set rFinde = Range("A1:A" & lngLetzte)
Set rSuche = rFinde.Find(what:="06:*", lookAt:=xlPart, LookIn:=xlValues)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
merkAnfang = rSuche.Row
Do
lngAnfang = rSuche.Row
If lngAnfang > merkAnfang Then
lngAnfang = merkAnfang
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
MsgBox "Es gibt keine Uhrzeit beginnend mit ""06:..."" !", vbExclamation, "Abbruch"
Exit Sub
End If
Set rSuche = rFinde.Find(what:="14:*", lookAt:=xlPart, LookIn:=xlValues)
If Not rSuche Is Nothing Then
strErste = rSuche.Address
merkEnde = rSuche.Row
Do
lngEnde = rSuche.Row
If lngEnde > merkEnde Then
lngEnde = merkEnde
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
MsgBox "Es gibt keine Uhrzeit beginnend mit ""14:..."" !", vbExclamation, "Abbruch"
Exit Sub
End If
If lngAnfang  0 And lngEnde  0 Then
dbSumme = Application.WorksheetFunction.Sum(Range("G" & lngAnfang & ":G" & lngEnde))
End If
MsgBox dbSumme
End Sub


außerdem ist eine Fehlerbehandlung dabei, wenn die Uhrzeit garnicht auftritt.
Gruß
Chris

Anzeige
AW: versuch mal dies
18.11.2008 15:13:44
Frank
Hallo Hary,
das funktioniert leider nicht. Wie ich gerade gerlernt habe, wird nur die glatte Stundenzeit verglichen.
Wenn die Zeit jedoch z.B. 06:12:30 ist, dann wird der Vergleich nie mit wahr bewertet.
Gruß
Frank

323 Forumthreads zu ähnlichen Themen

VBA- Autofilter - leere Zeilen löschen
Asits

Hallo,
ich habe in der Spalte "A" Kundennummern stehen.
Ich will per Makro / Autofilter die kompletten Zeilen
derjehnigen Kunden löschen, die noch keine Kundennummer haben.
wie mache ich das ?
Vielen Dank vorab!
17.09.2008 08:48:00
Thread-ID: 1010225
5 Beiträge
Anzeige
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
Leere Zelle finden und darüber Kopieren
SebastianSchelb

Hallo, ich habe noch ein Problem.
Tabelle:
Tür(A1)
Fenster(A2)
Haus(A3)
Buch(A5)
Zelt(A6)
Zelle A4 ist leer. Ich will jetzt das er die leere zelle automatisch findet und dann alle darunterbefindlichen Wörter um diese leere zelle nach oben Kopiert. Sollte dann so auss...
07.10.2008 11:28:54
Thread-ID: 1014663
3 Beiträge
Anzeige
erste numerische Zelle finden
marcl

Moin zusammen,
ich möchte im gesamten Blatt die erste numerische Zelle finden.
Ich dachte dabei an Find+IsNumeric, komme damit aber nicht weiter. Kann mir jemand helfen?
Danke
Gruß
marcl
05.11.2008 10:37:00
Thread-ID: 1021787
16 Beiträge
Die erste belgte Zelle in Spalte F finden
Kurt

Guten Abend,
ich möchte die 1. belegt Zelle in der Spalte F finden angefangen ab Zeile 3.
Dann möchte ich den Bereich von Spalte A bis Spalte H ab Zeile6 bis zu der 1.
belegten Zelle selectieren unm dann zu kopieren,
gruß mfg Kurt
20.11.2008 20:24:39
Thread-ID: 1026539
8 Beiträge
VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
VBA: Bestimmte Zeichenfolge in Zelle finden
gega

Hallo ich bins nochmals,
ich finde einfach keine Möglichkeit zwei Teile aus dem String herauszulösen, da nur "Käufer: " und "[ Kontakt mit Käufer aufnehmen ]" fest am Anfang und Ende des Strings sind und der Käufername hier "leu_bw_cen" unterschiedlich lang ist und auch die EMail-Adr. zw. d...
23.01.2009 11:52:00
Thread-ID: 1042917
3 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 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
4
4
2
2
2
15
7
4
2
7
3
3
1
7
3
2
8
3
19
2
7
5
3
1
3