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
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelladresse auslesen u. zu best. Zelle springen

Zelladresse auslesen u. zu best. Zelle springen
11.01.2013 11:12:21
Saja
Hallo Leute,
folgende Aufgabe kann ich nicht lösen:
Im Excel in der Tabelle1 und in der Zeile A1 habe ich eine Zelladresse per Formel ausgelegen und diese dort hinterlegt (hier: F1 aus der Tabelle2). In der gleichen Tabelle und in der Zeile A2 steht die Zieltabelle (hier: Tabelle2)
Jetzt möchte ich über Excel vba zu dieser Adresse sowie eine Zeile tiefer springen (also Tabelle2 Zelle F2). Die Adresse ist variabel d.h. je nach Eingabe aktueller Zahlen ändert sich diese, so dass es nicht immer F1 als Zieladresse im Tabellenblatt 2 sein wird.
Weiß jemand ein Rat?
Vielen Dank im Voraus für eure Hilfe.
Gruß
Saja

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelladresse auslesen u. zu best. Zelle springen
11.01.2013 11:22:13
Hajo_Zi
warum nicht ein Hyperklink?

AW: Zelladresse auslesen u. zu best. Zelle springen
11.01.2013 11:28:42
Saja
Hyperlink ist schlecht, da ich es vollständig automatisieren möchte. Die VBA-Prozedur geht dann weiter, Werte werden ermittelt, kopiert eingefügt und berechnet. Am ende soll nur das Ergebnis ausgegeben werden. Die ganze Auswertung soll schließlich auf Knopfdruck funktionieren.
Gruß Saja

AW: Zelladresse auslesen u. zu best. Zelle springen
11.01.2013 11:43:44
Matthias
Hallo
Zitat
Jetzt möchte ich über Excel vba zu dieser Adresse sowie eine Zeile tiefer springen
Zitat
Am ende soll nur das Ergebnis ausgegeben werden
Warum willst Du denn dann zu dieser Adresse springen, wenn Du nur ein Ergebnis ausgeben willst?

hier trotzdem mal eine Variante: 
Option Explicit
Sub saja()
Dim rng As String
On Error GoTo ErrAddress
Application.ScreenUpdating = False
rng = Tabelle1.Range("A1").Text
Tabelle2.Activate
Range(rng).Offset(1, 0).Select
Exit Sub
ErrAddress:
Tabelle1.Activate
Application.ScreenUpdating = True
End Sub
https://www.herber.de/bbs/user/83356.xls

Wäre aber mit dem ganzen Ativate/Select nicht nötig
Gruß Matthias

Anzeige
AW: Zelladresse auslesen u. zu best. Zelle springen
11.01.2013 12:15:05
Saja
Hallo Matthias,
das sieht schon mal gut aus. Im Tabellenblatt 1 und in der Zelle A2 soll der Tabellenblatt angegeben werden, in meinem Beispiel ist das Tabelle2. Der Tabellenblatt kann ebenfalls sich ändern, so das die Prozedur A2 mitberücksichtigen (lesen) und in das entsprechende Tabellenblatt (A2) und in die Zelle (A1) springen sollte.
Zu Deiner Frage:
Ich schreibe eine "Mega" Prozedur wo es um Berechnungen geht und am Ende das Ergebnis ausgegeben werden soll. Das beschriebene Problem von mir wo ich nicht weiter komme ist nur ein kleiner aber entscheidender Baustein von der gesamten Prozedur. Liefert aber nicht das Endergebnis.
Besten Dank im Voraus!
Gruß
Saja

Anzeige
Die Lösung!
11.01.2013 14:17:35
Saja
Hallo Matthias,
ich habe an deiner Prozedur rumgebastelt und habe die Lösung gefunden :o)
Dabei habe ich die starre Vorgabe des Tabellenblattes
Tabelle2.Activate mit Worksheets(Worksheets("Tabelle1").Range("A2").Value).Activate
ersetzt und es klappt hervorragend!
Noch einmal Danke für die Hilfe.
Beste Grüße
Saja
...und hier noch einmal die vollständige Prozedur:
Sub saja()
Dim rng As String
On Error GoTo ErrAddress
Application.ScreenUpdating = False
rng = Tabelle1.Range("A1").Text
Worksheets(Worksheets("Tabelle1").Range("A2").Value).Activate
'Tabelle2.Activate
Range(rng).Offset(1, 0).Select
Exit Sub
ErrAddress:
Tabelle1.Activate
Application.ScreenUpdating = True
End Sub

Anzeige
gut wenns geholfen hat + Hinweis
11.01.2013 18:28:53
Matthias
Hallo
Freut mich wenn ich etwas helfen konnte
Kleiner Hinweis
Benutze statt
Dim RnG As String
Dim StrG As String
Dadurch kann man schon beim Lesen des Code erkennen das es sich um eine String-Variable handelt.
RnG benutze ich eingentlich für RanGe, hatte es aber leider versäumt vor meinem Beitrag die Variable anzupassen.
Gruß Matthias

322 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2