Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1288to1292
1288to1292
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalt per VBA auslesen und weiterverwenden

Forumthread: 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

Anzeige

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

Anzeige
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

Forumthreads zu verwandten Themen

VBA Kennwortschutz aufheben & setzen Problem
Andreas

Hallo Herber Fans,
ich habe hier schon im Forum gesucht und auch einen Code gefunden. Es geht um das temporäre Aufheben des VBA Kennwortes im VBA Editor. Das Kennwort in der Beispieldatei ist „test“.
Die Datei wird geöffnet, ein Button wird kreiert. Wenn ich auf diesen Button klicke, er...
03.07.2009 21:26:13
Thread-ID: 1086309
7 Beiträge
Autofilter mit Passwortschutz beim öffnen entferne
Stephan

Guten Tag zusammen,
Ich habe eine Passwortgeschützte Tabelle bei der der Autofilter aktiv ist.
Beim öffnen der Tabelle soll jedoch jeweils der Autofilter entfernt werden und die Tabelle jedoch wieder mit Passwortschutz versehen werden. Dabei soll der Filter bedient werden können. Auch s...
21.10.2014 12:07:45
Thread-ID: 1387734
3 Beiträge
VBA Passwort vergessen
Michel

Hallo zusammen
Ich Dummkopf habe in meiner Excel das VBA Passwort vergessen und komme nun nicht mehr zu dem Code.
Kann mir hier jemand helfen?
Hier wäre noch meine File:
https://www.herber.de/bbs/user/95639.xlsm
Danke vorbau für eure Hilfe
Gruss
Michel
09.02.2015 14:53:16
Thread-ID: 1408201
5 Beiträge
Anzeige
VBAProjekt Passwort vergessen
Chris

Hallo Leute,habe mal vor langer Zeit ein kleines VBAProjekt mit Passwort geschützt.
Jetzt müsste ich das Projekt erweitern und mir fällt das Passwort nicht mehr ein.
Kan mir da jemand Helfen?
Gruß
Chris
20.08.2002 10:52:46
Thread-ID: 150507
3 Beiträge
Kennwort zum Öffnen + Makros aktivieren
Kisska

Hallo allerseits,
wieso werden Makros deaktiviert, wenn man eine Datei mit dem Kennwort zum Öffnen verseht? Kann man dies irgendwie umgehen?
Viele Grüße
Kisska
28.05.2017 17:29:12
Thread-ID: 1560766
6 Beiträge
VBA-Passwort vergessen!
Nadine

Hallo zusammen!

Ich habe vor einiger Zeit ein VBA-Projekt (Add-In) per Passwort geschützt, und habe dieses nun vergessen!

Gibt es irgendeine Möglichkeit, es wiederzufinden? Das Paswort bestand aus einem Wort und Ziffern.
Ich weiß noch...
...das Wort (aber nicht, ob Groß- o...
30.06.2003 13:58:40
Thread-ID: 275418
6 Beiträge
VBA Passwort vergessen
Carsten Kramer
Hallo,
Habe meine Makros und Autotexte in Word geschützt und kann mich nicht mehr an mein Passwort erinnern. Kann mir jemadn helfen wie ich mein Passwort rauskriege? ich habe es bereits mit AVPRo probiert aber es erschein nur " Password unavailable"
Danke.
Carsten
16.11.2003 00:00:32
Thread-ID: 338770
4 Beiträge
Leerzeilen entfernen geht nicht!?
Logan

Hallo nochmal,
Ich hab jetzt noch ein Problem:
Sub LeereZeilenlöschen() Dim Bereich1 As Range Dim Bereich2 As Range Dim Bereich3 As Range Sheets("Tabelle1").Activate Set Bereich1 = Range(Cells(1, 1), _ Cells(ActiveSheet.UsedRange.Rows.Count, 1)) Set Bereich1 = Bereich1.SpecialCells(xlB...
01.01.1970 00:00:00
Thread-ID: 414467
8 Beiträge
VBA_Exceldatei (Passwort vergessen)
René

Hallo
Ich habe ein grosses Problem. Unter der Version MS Office 97 habe ich eine XLA mit Code erstellt. Das ist natürlich schon lange her und jetzt müsste ich den Code neu anpassen unter der Version von Excel 2000.
Jetzt kommt das Porblem. Ich habe eine Einstellung gemacht und ein Pass...
23.12.2004 08:41:02
Thread-ID: 537248
11 Beiträge
VBA Passwort vergessen Hilfe
Mario

Hallo Leute,
ich habe vor ca. 2 Jahren ein wenig in VBA rumprogrammiert. Nun wollte ich die Datei endlich mal überarbeiten, und einige Sachen verbessern. Leider fällt mir das VBA Passwort nicht mehr ein. Kann mir irgendjemand helfen. Ich würde die Datei auch zum entschlüsseln verschicken.
02.02.2005 20:32:38
Thread-ID: 560071
9 Beiträge
Anzeige
VBA Passwort vergessen
Jemp

Hallo alle zusammen
Ich habe mein VBA-Passwort vergessen und gelange nun nicht mehr in meine Macrocodes.
Habe schon gegoogelt und auch hier im Forum gesucht aber leider nichts passendes gefungen.
Kann mir einer helfen
Danke
Jemp
19.01.2006 11:47:22
Thread-ID: 721294
5 Beiträge
Anzeige
VBA Passwort wird beim Öffnen abgefragt
Christian

Hallo Community,
ich verwende eine Exceldatei mit einem passwortgeschützten VBA-Code. Nachdem ich ein paar Kleinigkeiten in der Datei verändert habe, erscheint bei einem Kollegen beim Öffnen der Datei eine Dialogbox, in der er aufgefordert wird, das VBA-Passwort einzugeben. In der Arbeitsma...
20.01.2021 10:37:07
Thread-ID: 1806955
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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