Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Von aktiver Zelle in Spalte A springen

Forumthread: Von aktiver Zelle in Spalte A springen

Von aktiver Zelle in Spalte A springen
16.10.2008 12:36:20
Susi
Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann ich nicht mit dem normalen "ActiveCell.Offset ..." agieren, da ja jedes mal eine andere Zelle aktiv sein kann (z.B. D9...).
Des weiteren soll vorher mit einer If ..Then-Anweisung abgeprüft werden, ob sich die aktive Zelle in dem Bereich B2:H100 befindet. Ist sie außerhalb, soll die o.a. Aktion mit der Werteübertragung abgebrochen werden.
Ich hoffe ich hab mich verständlich ausdrücken können und jemand kann mir helfen. Leider komm ich nicht allein auf die Lösung, weil mit manchmal die richtigen Schreibweisen von Makroanweisungen fehlen.
Vielen Dank im Voraus.
Gruß Susi
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Von aktiver Zelle in Spalte A springen
16.10.2008 12:41:00
Rudi
Hallo,
1. Range("A1")=Cells(activecell.Row,1)
2. If Intersect(activecell, Range("B2:H100")) is nothing Then Exit Sub
Gruß
Rudi
AW: Von aktiver Zelle in Spalte A springen
16.10.2008 13:24:00
Susi
Hallo Rudi,
funktioniert einwandfrei. Nochmal vielen Dank für die schnelle Antwort.
Gruß
Susi
Anzeige
;

Forumthreads zu verwandten Themen

Dynamische Zellen- und Spaltenbereiche
gatewax

Hallo,
ich habe nur eine kurze Frage die sicher auch schnell beantwortet werden kann.
Wie bekommt man diese dynamischen Zeilen- und Spaltenbereiche wie auf dem Bild hin.

03.04.2009 10:56:58
Thread-ID: 1066603
2 Beiträge
Anzeige
Zahl in Spalte finden und dann Zelle Aktivieren
Hans

Hallo Leute ich habe ein Problem das ich nicht gelöst bekommen.
Ich möchte in Spalte A:A einen Wert suchen der in der Variable "Zahl" steht.
Ist der Wert gefunden soll die gefundene Zelle mit "ActiveCell.Select" aktiviert werden
Wird der Wert nicht gefunden soll die erste leere Stel...
08.04.2009 10:45:33
Thread-ID: 1067641
4 Beiträge
Drei Spalten vergleichen und auch Zellen mit Text
belanglos

Hallo,
mir hat im Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1112845.htm#1112845 "WF" mit der Formel: "=WENN(ANZAHL(A1:C1)=0;"";WENN(ANZAHL(A1:C1)=1;MAX(A1:C1);WENN(UND(A1=B1;A1=C1);A1;"x")))" weitergeholfen.
Da ich dort irgednwie nichts schreiben kann, habe ich mal einen n...
10.11.2009 12:01:55
Thread-ID: 1115729
5 Beiträge
Drei Spalten vergleichen und auch Zellen mit Text
belanglos

Hallo,
mir hat im Beitrag: https://www.herber.de/forum/archiv/1112to1116/t1112845.htm#1112845 "WF" mit der Formel: "=WENN(ANZAHL(A1:C1)=0;"";WENN(ANZAHL(A1:C1)=1;MAX(A1:C1);WENN(UND(A1=B1;A1=C1);A1;"x")))" weitergeholfen.
Da ich dort irgednwie nichts schreiben kann, habe ich mal einen n...
10.11.2009 10:40:06
Thread-ID: 1115733
2 Beiträge
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Anzeige
Spaltenbreiten und Zellenhöhe kopieren
Hugo

Hallo
Habe eine Makro geschrieben, das einen Bereich bestimmt der dann in einen anderen Register kopiert werden soll. Soweit ist alles kein Problem. Aber wie kann ich die Spaltenbreiten und die Zeilenhöhen kopieren.
Range(ActiveCell.Offset(Startzeile - 1, 0), ActiveCell.Offset(LetzeZeil...
07.10.2010 19:09:16
Thread-ID: 1181342
3 Beiträge
Range mit variablen Spalten und Zellen
Joachim

Hallo,
ich hab ne Userform mit 2 ComboBoxen. CB1 stellt eine Spaltenauswahl dar (A bis AZ) und CB2 die Zeilenauswahl (2 bis 5). Die Werte der CBs lese ich aus und wollte sie mit range verarbeiten.
Beispiel:
CB1 = C, CB2= 3 ergibt "C3"
Range(CB1,CB2) geht aber leider nicht.
...
25.05.2011 15:25:58
Thread-ID: 1216015
5 Beiträge
Anzeige
Zelle anklicken - Zeile und Spalte farbig
juewo

Hallo,
ich habe eine Tabelle im Bereich A1: CO377.
Wenn ich z.B. die Zelle J208 anklicke, soll sich die Zeile 208 und die Spalte J einfärben.
Ich hoffe es gibt einen recht einfachen Weg.
Danke schonmal.
Jürgen
14.07.2011 11:39:39
Thread-ID: 1222102
3 Beiträge
Anzeige
Zelle über Zeilen und Spaltennummer benutzen
Timo

Hallo,
ich habe da mal ein Problem.
In einer Tabelle stehen in der Zeile 2 Kundennummern und
in der Spalte A ab Zeile 3 das Datum.
In eriner anderen Tabelle gebe ich ein Datum und eine Kundennummer ein.
Nun habe ich mit VBA die Zeilennummer des Datums aus Tabelle 2 in eine...
08.10.2012 11:12:12
Thread-ID: 1280920
5 Beiträge
Nach Zellen suchen und Wert in Spalte N entnehmen
Willi

Hallo Community,
ich stehe zumindest für mich vor einem grenzüberschreitendem Lernmarathon bezüglich VBA und der damit zusammenhängenden Lösung meines Problems. Momentan finde ich keine passenden Funktionen, welches ich ansätzen könnte und hoffe auf euere Erfahrung und Ratschläge.
Zum...
17.12.2012 17:15:55
Thread-ID: 1291260
6 Beiträge
Spaltennamen und letzte Zelle kombinieren
Burghard

Hallo,
ich möchte in einer Formel den Spaltennamen und die letzte Datenzelle kombinieren und den Wert der letzten Zelle in Spalte B von B2 abziehen, in etwa so:
=SUMME(B&VERWEIS(2;1/ZÄHLENWENN(BEREICH.VERSCHIEBEN(1:1;ZEILE(B:B););"");ZEILE(B:B)+1))-B2
Leider ist die Syntax falsc...
30.12.2012 17:15:25
Thread-ID: 1292409
4 Beiträge
Spalte und Zeile per Zelleintrag skalieren
Peter

Hallo zusammen,
ich bräuchte mal eure Hilfe. Ich habe mal bei einem Kollegen eine Datei gesehen, bei der er per Zelleintrag die Zeilenhöhe und Spaltenbreite einstellen konnte; angeblich ohne VBA. Leider ist der Kollege gegangen und ich kann ihn nicht mehr fragen, wie das funktioniert.
K...
10.04.2013 10:33:17
Thread-ID: 1308079
14 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Von der aktiven Zelle in Spalte A springen

Schritt-für-Schritt-Anleitung

Um von der aktiven Zelle in Spalte A zu springen und den Wert in eine andere Zelle zu übertragen, kannst du folgende Schritte in Excel ausführen:

  1. Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.

  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject", dann "Einfügen" > "Modul".

  3. Kopiere und füge den folgenden Code in das Modul ein:

    Sub WertInSpalteAÜbertragen()
   If Not Intersect(ActiveCell, Range("B2:H100")) Is Nothing Then
       Range("A1").Value = Cells(ActiveCell.Row, 1).Value
   End If
End Sub

  4. Schließe den VBA-Editor.

  5. Führe das Makro aus, während eine Zelle innerhalb des Bereichs B2:H100 aktiv ist.

Dieser Code prüft, ob die aktive Zelle im Bereich B2:H100 liegt. Wenn dies der Fall ist, wird der Wert aus der entsprechenden Zeile in Spalte A (z.B. A10) in die Zelle A1 übertragen.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Anwendung oder Methode des Objekts ist fehlgeschlagen."

    • Lösung: Überprüfe, ob die aktive Zelle tatsächlich im angegebenen Bereich liegt. Der Code bricht ab, wenn die aktive Zelle außerhalb von B2:H100 ist.

  • Fehler: "Ziel ist ungültig."

    • Lösung: Stelle sicher, dass die Zelle A1 nicht geschützt oder ausgeblendet ist.

Alternative Methoden

Eine alternative Methode ist die Verwendung von Formeln anstelle von VBA. Du kannst in Zelle A1 folgende Formel verwenden:

=IF(AND(ROW()>=2, ROW()<=100), INDEX(A:A, ROW()), "")

Diese Formel gibt den Wert aus Spalte A zurück, wenn die Zeile zwischen 2 und 100 liegt.

Praktische Beispiele

Angenommen, du hast folgende Daten in Spalte A und B:

A B
1 X
2 Y
3 Z

Wenn du die Zelle B2 aktivierst und das Makro ausführst, wird der Wert "2" in Zelle A1 geschrieben, da die aktive Zelle im Bereich B2:H100 liegt.

Tipps für Profis

  • Nutze Application.CutCopyMode = False, um den Kopiermodus zu beenden, wenn du mit mehreren Zellen arbeitest.
  • Du kannst das Makro auch mit einer Schaltfläche verknüpfen, um den Prozess zu erleichtern und effizienter zu gestalten.
  • Experimentiere mit der If...Then-Anweisung, um komplexere Bedingungen zu erstellen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro schneller ausführen?
Du kannst eine Tastenkombination für dein Makro festlegen. Gehe dazu im VBA-Editor auf "Extras" > "Makro" > "Makros" und wähle dein Makro aus. Klicke auf "Optionen" und lege eine Tastenkombination fest.

2. Kann ich das Makro auch in anderen Excel-Versionen verwenden?
Ja, das Makro sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren. Vergewissere dich, dass du den VBA-Editor öffnen kannst.

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