Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilennummer aus aktiven Zelle ausgeben

Forumthread: Zeilennummer aus aktiven Zelle ausgeben

Zeilennummer aus aktiven Zelle ausgeben
12.02.2009 14:13:00
abu
Hallo Zusammen,
ich versuche gerade einen Code zu schreiben und haenge an 2 Problemen:
1. Ich moechte gerne eine Variable X haben die mir die Zeilennummer der zu dem Zeitpunkt aktiven Zelle ausgibt.
2. Eine Abfrage die prueft ob eine bestimmte Zelle eingefaerbt ist oder nicht, wenn ja dann soll Anhang A an die Email angehaengt werden wenn nein dann Anhang B
Waere schoen wenn mir jemand helfen koennte.
Gruss
abu
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilennummer aus aktiven Zelle ausgeben
12.02.2009 14:15:00
ptonka
Hallo abu,
ActiveCell.Row()
Gruß,
Ptonka
AW: Zeilennummer aus aktiven Zelle ausgeben
12.02.2009 14:29:00
abu
Hallo Ptonka,
Danke, habe allerdings immer noch einen Fehler drinne in der Zeile
Mail.To = ThisWorkbook.Sheets("Sheet1").Range("R" & ActiveCell.Row()).Value
Siehst Du ihn?
Hast Du auch eine Loesung fuers einfaerben?
Und wie schreibe ich wenn es nicht nur fuer Sheet1 gelten soll, sondern fuer die gesamte Arbeitsmappe?
Gruss
abu
Anzeige
AW: Zeilennummer aus aktiven Zelle ausgeben
12.02.2009 14:45:00
abu
ThisWorkbook.Sheets("Sheet1").Range("R" & ActiveCell.Row).Value
so muss er lauten.
Bleibt noch:
Hast Du auch eine Loesung fuers einfaerben?
Und wie schreibe ich wenn es nicht nur fuer Sheet1 gelten soll, sondern fuer die gesamte Arbeitsmappe?
Kann da jemand helfen?
AW: Zeilennummer aus aktiven Zelle ausgeben
12.02.2009 15:07:00
ptonka
Hallo abu,
für jedes sheet:
Activesheet.Range("R" & ActiveCell.Row()).Value
Farbe prüfen:
ActiveCell.Select
If Selection.Interior.ColorIndex = xlNone Then
MsgBox "keine Farbe"
End If
Gruß,
Ptonka
Anzeige
AW: Zeilennummer aus aktiven Zelle ausgeben
12.02.2009 16:33:00
abu
Klasse. Danke.
Das mit der Mail hab ich jetzt hinbekommen und ich kann sogar ein Anhang anhaengen.
Nun hab ich folgendes Problem:
Ich moechte gerne eine Abfrage machen: wenn Zell eingefaerbt dann nehme diesen Anhang wenn nicht diesen. Den Code habe ich ja... allerdings moechte ich noch Daten einfuegen und den Anhang umbenennen. Danach kann der Anhang geloescht werden allerdings nicht die Vorlagen.
Den Code fuer das reinkopieren bekomm ich denke ich auch hin, allerdings weiss ich nicht wie ich den Anhang temporaer oeffne und umbennen und anschliessend wieder loesche.
Kannst Du mir fuer dieses Problem auch Hifestellung geben
Anzeige
;

Forumthreads zu verwandten Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
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
Anzeige
Zeile einfügen und dann die Formeln eintragen?
Selma

Hallo Leute,
wie kann ich beim Einfügen einer neue Zeile per VBA die Formel in die Zellen der eingefügte Zeile eintragen?
Sub Insert_Task() Rows(ActiveCell.Row + 1).Insert Shift:=xlUp Rows(ActiveCell.Row + 1).Select End Sub
Beispiel für die Formeln der aktive Zeile 40:
D40 =...
16.09.2008 22:51:11
Thread-ID: 1010207
6 Beiträge
Formel in nächste Zeile ziehen
Michael

Hallo zusammen hab mal wieder ein Problem
Möchte eine Formel in die nächste Zeile ziehen.
C:\----\Spiels\[001.xls]BL-Tabelle'!$B$4;"")
In der nächsten Zeile sollte dann aus 001.xls ein 002.xls erscheinen dies sollte so sein bis Zeile 200
Kann mir hierbei jemand helfen schon jetz...
24.09.2008 11:02:28
Thread-ID: 1011987
4 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
in Zellen Schreiben wenn Kriterium erfüllt
Nikolay

Guten Tag verehrte Damen und Herren,
lieber Namensvetter,
ich habe derweilen ein kleines Problem. Ich gestalte schon seit einigen Jahren meine persönliche Buchführung mit Excel.
Von Jahr zu Jahr wird das ganze komplizierter. Nun stehe ich vor einem Problem, welches ich selbst nicht...
05.10.2008 14:57:00
Thread-ID: 1014252
4 Beiträge
In Zelle mit Namen schreiben
fga

Hallo
Ich habe ein Tabellenblatt. In dem Blatt habe ich für die Spalten einen Namen definiert. Ebenso für die Zeilen. (links oben im Namensfeld)
Z.B.:
..... Sh1 Sh2 Sh3
Rh1
Rh2
Rh3
Nun möchte ich über den Namen der Zeile und Spalte die betreffende Zelle lesen,...
08.10.2008 15:27:04
Thread-ID: 1015078
12 Beiträge
Zeilenumbruch in Formel
Jochen

Hallo, kann ich einen Zeilenumbruch in eine Formel berücksichtige.
Das ist meine Formrl:
=WENN(A11"";VERKETTEN(A11;"/";$C$2;" - ";B11;"/";$C$2;
"ZEILENUMBRUCH AN DIESE STELLE";$C$4;". Trommel X von ";F11);"")
Danke im voraus
Jo. Bo.
04.11.2008 13:35:00
Thread-ID: 1021604
3 Beiträge
Textbox Werte in Zellen schreiben
pritt

Hallo zusammen, ich komme nicht so richtig klar: Ich habe eine Userform mit 4 Textboxen, die zu Laufzeit vom User mit Werten gefüllt werden. Wenn alle 4 Textboxen gefüllt sind, sollen diese Werte in 4 verschiedene Zellen eines Tabellenblatts geschrieben werden. Folgenden Code habe ich bisher er...
13.11.2008 12:59:19
Thread-ID: 1024171
7 Beiträge
Anzeige
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 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

Zeilennummer der aktiven Zelle in Excel ermitteln

Schritt-für-Schritt-Anleitung

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Rechtsklick auf "VBAProject (DeineArbeitsmappe)".
    • Wähle Einfügen > Modul.

  3. Gib den folgenden Code ein, um die Zeilennummer der aktiven Zelle auszugeben:

    Sub AktiveZeileErmitteln()
   Dim Zeilennummer As Long
   Zeilennummer = ActiveCell.Row
   MsgBox "Die aktive Zeilennummer ist: " & Zeilennummer
End Sub

  4. Führe das Makro aus: Drücke F5 im VBA-Editor, um das Makro auszuführen und die aktuelle Zeilennummer zu sehen.

  5. Speichere die Arbeitsmappe als .xlsm, um die Makros zu behalten.

Häufige Fehler und Lösungen

  • Fehler: „Variable nicht definiert“.

    • Lösung: Stelle sicher, dass du die korrekten Variablen definierst und dass der Code im richtigen Kontext ausgeführt wird.

  • Fehler: „Objekt nicht gefunden“.

    • Lösung: Überprüfe, ob die aktive Zelle tatsächlich existiert (z.B. nicht in einer leeren Arbeitsmappe).

Alternative Methoden

  1. Formel zur Ermittlung der aktuellen Zeile:

    • Du kannst auch eine Formel verwenden, um die aktuelle Zeilennummer in einer Zelle auszugeben: 
      =ZEILE()

  2. Verwendung der ActiveSheet-Eigenschaft:

    • Um die Zeilennummer in einem bestimmten Blatt zu ermitteln: 
      Zeilennummer = ActiveSheet.ActiveCell.Row

Praktische Beispiele

  • Aktive Zelle hervorheben: Um die aktive Zelle zu markieren und die Zeilennummer anzuzeigen:

    Sub AktiveZelleHervorheben()
   ActiveCell.Interior.Color = RGB(255, 255, 0) ' Gelbe Hintergrundfarbe
   MsgBox "Aktive Zelle: " & ActiveCell.Address & " - Zeilennummer: " & ActiveCell.Row
End Sub

  • E-Mail senden mit Zeilennummer:

    Sub SendMailMitZeilennummer()
   Dim Zeilennummer As Long
   Zeilennummer = ActiveCell.Row
   ' Hier würde der Code zum Senden der E-Mail folgen
   MsgBox "E-Mail wird gesendet von Zeile: " & Zeilennummer
End Sub

Tipps für Profis

  • Verwende Selection statt ActiveCell, wenn du mehrere Zellen gleichzeitig verarbeiten möchtest.
  • Nutze die WorksheetFunction-Klasse, um komplexe Berechnungen in Verbindung mit der aktiven Zeile durchzuführen.
  • Überlege, ob du With-Anweisungen verwenden möchtest, um den Code lesbarer zu machen.

FAQ: Häufige Fragen

1. Wie kann ich die Zeilennummer in eine bestimmte Zelle ausgeben?
Du kannst die Zeilennummer direkt einer Zelle zuweisen:

Range("A1").Value = ActiveCell.Row

2. Wie kann ich die aktive Spalte ermitteln?
Verwende ActiveCell.Column, um die aktuelle Spalte zu ermitteln.

3. Kann ich die Zeilennummer auch in einer Formel verwenden?
Ja, du kannst die Zeilennummer in Formeln einbeziehen, indem du die Funktion ZEILE() verwendest.

Diese Schritte und Tipps helfen dir, die aktive Zeile in Excel mit VBA zu ermitteln und anzuwenden.

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