Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1288to1292
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
Inhaltsverzeichnis

Zellinhalt per VBA auslesen und weiterverwenden

Zellinhalt per VBA auslesen und weiterverwenden
13.12.2012 10:12:35
Tobias
Hallo,
ich bin verzweifelt auf der Suche nach einer Möglichkeit den Zellinhalt auszulesen um damit in VBA weiter zu benutzen.
Leider konnte niemand auf meinen gestrigen Beitrag https://www.herber.de/forum/archiv/1288to1292/t1290421.htm helfen. Hat jemand einen VBA Code um den Wert einer Zelle zwischenzuspeichern, und diesen einer weiteren VBA Anweisung zu übergeben?
Vielen Dank
Tobias

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Auslesen statt zwischenspeichern
13.12.2012 10:30:28
Marc
Hallo!
Bau mal dies ein:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 4, 7, 10: Call DoFilter(CStr(Cells(1, Target.Column)), Cells(Target.Row, 1))
Case 5, 8, 11: Call DoFilter(CStr(Cells(1, Target.Column - 1)), Cells(Target.Row, 2))
'Case 7: Call DoFilter("Bereich 2", Cells(Target.Row, 1))
'Case 8: Call DoFilter("Bereich 2", Cells(Target.Row, 2))
'Case 10: Call DoFilter("Bereich 3", Cells(Target.Row, 1))
'Case 11: Call DoFilter("Bereich 3", Cells(Target.Row, 2))
End Select
End Sub

Private Sub DoFilter(strBereich As String, datDatum As String)
Worksheets("Werbeartikel").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=strBereich
Selection.AutoFilter Field:=3, Criteria1:=datDatum
End Sub

Anzeige
AW: Zellinhalt per VBA auslesen und weiterverwenden
13.12.2012 10:43:05
Rudi
Hallo,
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 4: Call DoFilter(Cells(1, 4), Cells(Target.Row, 1))
Case 5: Call DoFilter(Cells(1, 4), Cells(Target.Row, 2))
Case 7: Call DoFilter(Cells(1, 7), Cells(Target.Row, 1))
Case 8: Call DoFilter(Cells(1, 7), Cells(Target.Row, 2))
Case 10: Call DoFilter(Cells(1, 10), Cells(Target.Row, 1))
Case 11: Call DoFilter(Cells(1, 10), Cells(Target.Row, 2))
End Select
End Sub

Private Sub DoFilter(strBereich As String, datDatum As Date)
Worksheets("Werbeartikel").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=strBereich
Selection.AutoFilter Field:=3, Criteria1:=datDatum
End Sub

Gruß
Rudi

Anzeige
AW: Zellinhalt per VBA auslesen und weiterverwenden
13.12.2012 10:49:23
Mäxl
Hi
oder
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 4, 5, 7, 8, 10, 11:
Call DoFilter(Cells(1, Target.Column - ((Target.Column - 1) Mod 3)).Value, Cells(Target.Row, _
Target.Column Mod 3))
End Select
End Sub

AW: Zellinhalt per VBA auslesen und weiterverwenden
13.12.2012 10:50:05
Henrik
Hallo Tobias,
probier mal.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Column
Case 4, 5: Call DoFilter("Bereich 1", Cells(Target.Row, 1))
Case 7, 8: Call DoFilter("Bereich 2", Cells(Target.Row, 1))
Case 10, 11: Call DoFilter("Bereich 3", Cells(Target.Row, 1))
End Select
End Sub
Private Sub DoFilter(strBereich As String, datDatum As Date)
Worksheets("Werbeartikel").Activate
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=strBereich
Selection.AutoFilter Field:=3, Criteria1:=datDatum
End Sub

Gruß Henrik

Anzeige
ÜbergabeSpalte nicht beachtet -> Rudilösung owT
13.12.2012 10:55:33
Henrik

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige