Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für variable Ziel- u. Ausgangswerte

Makro für variable Ziel- u. Ausgangswerte
24.06.2005 23:17:38
maik
Hallo liebe Excel-Gemeinde,
ich habe hier schon viele hilfreiche Hinweise erhalten. Daher zuvor vielen Dank an alle Helfer!
Und nun zu meinem Problem:
ich möchte das folgende Makro so umgestalten, das es variable Zeilen als Quelle annimmt. Leider funktioniert der Versuch aber nicht.
Ziel ist es eine Tabelle (Spalte "I" bis "L") zeilenweise zu durchsuchen. Wenn in einer Zeile der Spalte "I" der Begriff "lecker" steht, soll der Zahlenwert aus Spalte "L" der gewählten Zeile in einer benachbarte Tabelle addiert werden. Zeile (bzw. Spalte) in der benachbarten Tabelle ergeben Sich variabel aus den Einträgen in Spalte "K" (bzw. "J").
Da dies etwas verwirrend klingen mag, habe ich eine Beispieldatei beigefügt.
https://www.herber.de/bbs/user/24174.xls
und hier der Makroversuch, sollte es anderweitig besser gehen dann ignoriert ihn einfach:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Const ZE_find = "Cells(i, 11)"      <--- geht nicht :(
Const SP_find = "Cells(i, 10)"      <--- geht nicht :(
Const Set_Eintrag = "Cells(i, 12)"  <--- geht nicht :(
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Range(ZE_find).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Range(SP_find).Value)
spalte = sp.Column
Cells(zeile, spalte).Value = Range(Set_Eintrag)
Cells(zeile, spalte).Value = Range(Set_Eintrag)
End If
Next i
End Sub

Danke für eure Vorschläge

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 00:33:49
Beni
Hallo Maik,
Gruss Beni

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Cells(zeile, spalte).Value = Cells(i, 12)
Cells(zeile, spalte).Value = Cells(i, 12)
End If
Next i
End Sub

Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 09:31:01
maik
Hallo Benni,
Super, das funktioniert sehr gut! Allerdings wäre es klasse wenn noch irgendwie eingebaut werden könnte, dass Werte in der gleichen Zelle auch addiert werden.
Beispiel: Zeile 8 und 9 zielen beide auf das Feld "D4". (in der Beispieldatei) Daher sollte in "D4" die Summe aus "L8" und "L9" stehen.
Kann man das irgendwie machen?
Danke Maik
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:32:48
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:32:59
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:33:16
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:33:48
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:33:50
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:33:54
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:33:59
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:39:12
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
Anzeige
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:39:36
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:39:38
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:39:38
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:39:39
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:39:40
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:39:40
maik
Ok ich habs selber gelöst, falls es jemanden interessiert hier das Makro:

Sub versuch()
Dim i As Integer
Const TabKopf_Zeile = 2
Const Tabkopf_Spalte = 1
Dim sp As Range, ze As Range
Dim zeile As Long, spalte As Integer
Dim Summe As Integer
For i = 1 To ActiveSheet.UsedRange.Columns(22).Cells.Count
If Cells(i, 9) = "lecker" Then
Set ze = Range(Cells(1, Tabkopf_Spalte), Cells(Rows.Count, Tabkopf_Spalte)).Find(What:=Cells(i, 11).Value)
zeile = ze.Row
Set sp = Range(Cells(TabKopf_Zeile, 1), Cells(TabKopf_Zeile, Columns.Count)).Find(What:=Cells(i, 10).Value)
spalte = sp.Column
Summe = Cells(zeile, spalte) + Cells(i, 12)
Cells(zeile, spalte).Value = Summe
End If
Next i
End Sub

grüsse maik
AW: Makro für variable Ziel- u. Ausgangswerte
25.06.2005 14:41:52
Hajo_Zi
Hallo maik,
gehe doch mal langsam von der aktualisieren Taste runter, der Beitrag ist schon 15x im Forum.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige