Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.06.2025 11:18:30
Excel Forum
18.06.2025 09:11:04
Datei beim beenden unter 2 Formaten automatisch speichern
17.06.2025 22:07:43
Gesamtliste mit mehreren Blättern und ...
17.06.2025 21:20:55
Hyperlink in Spillfunktion
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Set r1 mit 2 Argumenten

Forumthread: Set r1 mit 2 Argumenten

Set r1 mit 2 Argumenten
24.02.2009 08:51:21
Karsten
Hallo
damit der Run-Befehl ("zu_Termine") auszuführt wird, werden 2 Argumente benötigt. Allerdings weiß ich nicht wie ich die 2 Argumente schreiben muss.
Set r1 = ActiveCell.Find("") und Cells(1,100).Find("Lehrbericht")
If Not r1 Is Nothing Then
Application.Run "zu_Termine"
Application.EnableEvents = False
End
End If
Kann mir da jemand weiterhelfen?
Danke.
Gruß
Karsten
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Allgemein
Tags
#argumente #vba #vergleich
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Set r1 mit 2 Argumenten
24.02.2009 09:02:31
D.Saster
Hallo,
nimm doch 2 Variablen.
wie sieht zu_Termine aus?
Gruß
Dierk
AW: Set r1 mit 2 Argumenten
24.02.2009 09:12:15
Karsten
Hallo Dierk
Wie muß das mit den 2 Variablen befehlstechnisch aussehen?
zu_Termine sieht so aus. Der Befehl soll aber nur ausgefürt werden, wenn beide Variablen übereinstimmen.

Sub zu_Termine()
Sheets("Lehrbericht").Select
ActiveWindow.SplitRow = 1
ActiveWindow.SplitColumn = 1
Cells.Find(What:="Termine", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Dim varResult As Variant
varResult = Application.Match(CDbl(Date), Range("A:A"), 0)
If IsNumeric(varResult) Then Application.GoTo Cells(varResult, ActiveCell.Column)
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Application.CommandBars("Stundenplan").Visible = True
End Sub


Gruß
Karsten

Anzeige
mach es mit zwei, R1 und R2
24.02.2009 09:07:00
Tino
Hallo,
verwende zwei Rangeobjekte.
Ich weis jetzt aber nicht was die Find- Funktion damit zu tun hat.

Dim R1 As Range, R2 As Range
Set R1 = ActiveCell.Find("")
Set R2 = Cells(1, 100).Find("Lehrbericht")
If Not R1 Is Nothing Then
Application.Run "zu_Termine"
Application.EnableEvents = False
End
End If


Gruß Tino

Anzeige
AW: mach es mit zwei, R1 und R2
24.02.2009 09:15:01
Tino
Hallo,
die If Zeile muss natürlich so aussehen.

If Not R1 Is Nothing and Not R2 Is Nothing Then
Gruß Tino
AW: mach es mit zwei, R1 und R2
24.02.2009 09:47:37
Karsten
Hallo Tino
mir ist gerade noch was eingefallen. Wie muss man schreiben wenn:
Set R1 = ActiveCell.Find("ein Inhalt hat, egal welcher") hat.
Danke Karsten
Anzeige
AW: mach es mit zwei, R1 und R2
24.02.2009 09:52:09
Tino
Hallo,
vielleicht reicht es einfach so 

If ActiveCell  "" And Cells(1, 100) = "Lehrbericht" Then
Application.Run "zu_Termine"
Application.EnableEvents = False
End 'wird EnableEvents wieder auf True gesetzt?
End If


Gruß Tino

AW: mach es mit zwei, R1 und R2
24.02.2009 09:54:23
Ramses
Hallo Tino
Das macht jetzt aber keinen Sinn.
Wenn schon, müsste ":..False" vor dem Aufruf des externen Makros kommen
Gruss Rainer
Anzeige
AW: mach es mit zwei, R1 und R2
24.02.2009 10:19:16
Karsten
Hallo Tino,
danke, aber es funktioniert nue mit = statt .
Gruß
Karsten
mache es demnach mit "=" oT.
24.02.2009 10:49:45
Tino
AW: mach es mit zwei, R1 und R2
24.02.2009 10:47:25
Tino
Hallo Rainer,
ich weis nicht was da passiert, diese Vorgabe war von Karsten
Gruß Tino
Anzeige
Sorry,..
24.02.2009 10:50:47
Ramses
Hallo
... dachte das wäre ein "collateral damage" der närrischen Tage .-)
Gruss Rainer
kann schnell gehen, in diesen Tagen. ;-) oT.
24.02.2009 13:50:07
Tino
AW: mach es mit zwei, R1 und R2
24.02.2009 09:25:04
Karsten
Hallo Tino
danke es geht.
Gruß
Karsten
Anzeige

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
Untergenze in VBA
Axel

Hallo alle miteinander,
ich nicht weiß einfach nicht wie ich die Untergrenze Funktion in mein UserForm einbinden kann.
Kurze Erklärung:
Ich habe ein UserForm mit einem Drehfeld zum durchblättern der Zeilen, in Spalte 27 ist ein Zahlenwert mit zwei Kommastellen eingetragen, das nach...
11.08.2008 10:10:47
Thread-ID: 1000733
7 Beiträge
3 Zellen zu 1ner 3-Zeiligen (wieAlt+Enter) machen
Horst_H

Hallo!
Meine Frage: In Spalte C steht eine Straßenbezeichnung, in Spalte H ein Kommentar und in Spalte I ein zweiter Kommentar. Nun möchte ich per VBA (weil ich viele Mappen unterschiedl. Länge und unterschiedlicher Stadtteile habe) erreichen, dass zusätzlich in die jeweilige Zelle in Spal...
11.08.2008 16:07:27
Thread-ID: 1000899
10 Beiträge
Nie zweimal gleiche Werte hintereinander (Teil 2)
Kay

Hallo,
Ich hoffe, es kann mir nochmal jemand weiterhelfen.
Am 05.08. um 16.30 Uhr habe ich bereits schon mal einen Thread zu diesem Thema eröffnet, jedoch noch keine abschließende Lösung gefunden.
Mit Hilfe von "Hary" habe ich folgendes Sheet gebaut, welches auch soweit funktioniert...
11.08.2008 16:12:24
Thread-ID: 1000900
8 Beiträge
Anzeige
Excel - Interpolierung / Intervall / trend
schulze

Halli Hallo,
ich habe folgendes kleine Problem:
Es geht darum, dass ich Jahresbentuzungsstunden ausreche. Diese können jede x-beliege Ganzzahl zwischen 100 und 8640 sein.
Diese Zahl wird nun anhand einer linearen Steigerung (100Std.-Intervalle) zugeordent. Z.B. habe ich dies Jahresb...
13.08.2008 10:24:57
Thread-ID: 1001412
10 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Button Internetlink
Corinna

Hi!
Hab nen weiteres Anliegen. Kann man einen Button der Userform mit dem Internet verlinken? Also ich meine, das wenn ich diesen Button anklicke, das sich ein bestimmter Internetlink (welchen ich vorher festgelegt habe) öffnet?
Danke für Eure Antworten.
Gruß Corinna
18.08.2008 13:47:31
Thread-ID: 1002574
5 Beiträge
Worksheet Change - Nur bei Änderung durch Userinte
Ina

Hallo Forum,
wie kann ich das Worksheet_Change-Ereignis so beschränken, dass es nur beim Eingriff über das User-Interface ausgelöst wird; Sheet-Änderungen über den Code sollen nicht zum Ereignis führen.
Kann mir jemand weiterhelfen?
Vielen Dank schonmal!
Gruß
Ina
19.08.2008 09:10:00
Thread-ID: 1002791
5 Beiträge
bedingte formatierung berechnen lassen unter vba
morbiuz

Hallo,
ich habe eine Spalte A auf der 2 verschiedene bedingte Formatierungen gesetzt sind (rot, grün) für die Scriftfarbe
leider kann ich die Werte nicht über meine Funktion zusammenrechnen lassen:
Sub mtest() Dim zelle As Range Dim bereich As Range Dim a As Integer Set bereich =...
20.08.2008 03:03:00
Thread-ID: 1003056
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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