Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 17:49:39
Bedingte Formatierung
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1188to1192
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
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mehrspaltiges Suchen, VBA

Mehrspaltiges Suchen, VBA
Alex
Hallo zusammen,
ich habe folgendes Problem:
in meinem Kalender (jahresübergreifend; 13 Monate) steht ab:
A4:A34 die Tagesdaten eines Monats
B4:B34 ist Raum für Einträge für den ersten Monat
dann der nächste Monat:
C4:C34
D4:D34 raum für Eintragungen
usw...
bis Y4:Y34 (TagesDaten) und Z4:Z34 (Eintragungen) Ende mit Kalender.
In H1 steht ein Datum, nach dem die Datumspalten (A4:A34, C4:C34,...) durchsucht werden sollen.
Bei Übereinstimmung: Zelle rechts davon auswählen und "SOM" reinschreiben.
In J1 steht ein anderes Datum, das gleiche Procedere wie oben, nur "EOM" schreiben.
kann mir jemand helfen?
Danke
alex

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

Betreff
Benutzer
Anzeige
AW: Mehrspaltiges Suchen, VBA
30.11.2010 19:41:13
Christian
Hallo Alex,
zB. so: 
Option Explicit
Sub TestIt()
Dim i As Long, j As Long
With ThisWorkbook.Sheets("Tabelle1")
For i = 4 To 34
For j = 1 To 23 Step 2
If .Cells(i, j).Value = .Cells(1, 8).Value Then
.Cells(i, j + 1) = "SOM"
ElseIf .Cells(i, j).Value = .Cells(1, 10).Value Then
.Cells(i, j + 1) = "EOM"
End If
Next
Next
End With
End Sub

Gruß
Christian
fast...! Christian...
30.11.2010 20:00:44
Alex
Hi Christian,
ich kenne mich mit VBA noch nich so dolle aus, aber
wenn ich das richtig gelesen habe sagst du mit dem Code, dass "SOM" eingetragen werden soll (das klappt auch),
aber aus dem "ElseIf" müssten wir glaub ich noch ein "Und" machen - das "EOM soll nämlich auch neben dem dazugehörigen Datum eingefügt werden.
Bisher fügt der Code "EOM" nur neben Zellen ohne Datum ( und das mehrfach) ein.
Und: (korrigiere mich) da ich bis Spalte y Datum durchsuche müsste anstatt "For j = 1 To 23 Step 2" "For j = 1 To 25 Step 2" stehen?
Danke für deine Hilfe.
Grüße
alex
Anzeige
Danke Christian!!! läuft...
30.11.2010 20:11:40
Alex
Hi Christian,
der Code is super,
war nur n paar Grunddaten falsch:
Sub TestIt()
Dim i As Long, j As Long
With ThisWorkbook.Sheets("Kalender")
For i = 4 To 34
For j = 1 To 25 Step 2
If .Cells(i, j).Value = .Cells(1, 8).Value Then
.Cells(i, j + 1) = "SOM"
ElseIf .Cells(i, j).Value = .Cells(1, 9).Value Then
.Cells(i, j + 1) = "EOM"
End If
Next
Next
End With
End Sub
statt: Cells(1, 10) - Cells(1, 9)
statt: 1 To 23 Step 2 - 1 To 25 Step 2
Danke Herzlichst...
alex
Danke für die Rückmeldung (o.T)
30.11.2010 20:46:51
Christian

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige