Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ergebniss von find in einer Range-Anweisung bringe

Forumthread: Ergebniss von find in einer Range-Anweisung bringe

Ergebniss von find in einer Range-Anweisung bringe
08.03.2008 19:45:00
find
Hallo,
bei der folgenden Anweisung bekomme ich einen Laufzeitfehler bei With
hier bin ich mit meinem Latein am Ende - was läuft hier falsch ?
With Worksheets("Eintragung").Range("D1" & ":D" & iLeSpalte)
Set C = .Find(What:=CDate(iAktTg), LookIn:=xlValues)
With .Range("Cells(C.Row, C.Column)").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 4
End With
End With
Gruß Ralf

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ergebniss von find in einer Range-Anweisung bringe
08.03.2008 19:48:00
find
Hllo Ralf,
bist Du sicher das der Suchbegriff gefunden wird. Ich hätte
If c Is Nothing Then Exit Sub 'falls nicht gefunden wird Sub verlassen
gemacht

AW: Ergebniss von find in einer Range-Anweisung bringe
09.03.2008 06:46:00
find
Hallo Ralf,
so klappt es: 

With Worksheets("Eintragung").Range("D1" & ":D" & iLeSpalte)
Set c = .Find(What:=CDate(iAktTg), LookIn:=xlValues)
If Not c Is Nothing Then
With c.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = 4
End With
Else
MsgBox  CDate(iAktTg) & "  n i c h t  gefunden!", 48
End If
End With

Gruß von Luschi
aus klein-Paris

Anzeige
AW: Ergebniss von find in einer Range-Anweisung br
09.03.2008 14:04:00
find
Danke Luschi - funktioniert
Gruß Ralf
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
maximum finden in VBA
Lars

Hallo zusammen,
ich habe in Excel eine Tabelle, in der in der ersten Zeile Überschriften stehen (B1, B2, B3, ...). Darunter befinden sich die dazugehörigen Werte. Über eine Abfrage suche ich mir nun bestimmte Überschriften (z.B. B1,B3,B4,B7) heraus und lasse mir deren Spalte jeweils in eine...
13.11.2008 07:22:00
Thread-ID: 1024016
6 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 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 Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Finden in VBA
dierkrat

Guten Tag,
ich werde leider aus den vorhandenen Einträgen nicht schlau, so daß ich leider nachfragen muß. Ich habe in einer Zelle folgenden String 'abcdefg (huhu)'. Ich möchte hier jetzt nur 'huhu' ausschneiden und insofern nach dem Zeichen '(' suchen, um anschließen die Länge zu adjustiere...
29.09.2009 12:47:53
Thread-ID: 1106179
9 Beiträge
Range Bezüge in VBA von fix auf relativ umstellen
fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
Anzeige
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 Beiträge
Anzeige
Range.Find findet falschen Wert
Kerstin

Hallo,
ich suche in einer Spalte (W:W), ob eine Zeichenkette (Adresse) vorhanden ist oder nicht
Dim Adresse As String 'merken der Ursprungsadresse
Adresse = Range("F1") 'z.B. "57=2"
Set gZelleNeu = WSMonat.Range("W:W").Find(Adresse)
...
03.09.2010 12:16:57
Thread-ID: 1175609
3 Beiträge
VBA Button finden im Internetexplorer + sendkeys
chris

Hallo VBA Experten,
ich benötige wieder einmal eure Hilfe. Würde mich sehr freuen wenn es eine Lösung für mich gibt ?!
Ich will mal wieder Excel VBA Missbrauchen für eine andere Anwendung.
Den InternetExplorer oder OPERA.
Ich will mit VBA z.b alle 15 Minuten einen Button drücken...
09.09.2010 20:56:24
Thread-ID: 1176503
3 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