Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
876to880
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
876to880
876to880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

bestimmtem Bereich in Zelle Zeilennummer eintragen

bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 17:28:00
Peter
Guten Tag
Ich habe eine Tabelle, in der ein bestimmter Bereich der Spalte Z mit dem Namen "Daten_Z" benannt ist. Nun möchte in jeder Zelle dieses Bereichs die Zeilennummer eintragen und zwar mit VBA, da wegen anderen Makros die Inhalte in diesen Zellen nicht zwingend "überleben". Doch wie?
Sub Zeilennr()
range("Daten_Z") = activecell.row ''geht natürlich so nicht
Ende Sub
Danke für eine Rückmeldung.
Peter

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 17:56:35
Tino
Hallo,
versuch es mal hiermit, sollte gehen.

Sub Nummer()
Dim zeile As Range
Dim a As Variant
Set zeile = Range("Z:Z").Find("Daten_Z")
If zeile Is Nothing Then Exit Sub
zeile = zeile.Row
For a = 1 To [=COUNTIF(Z:Z,"Daten_Z")]
Set zeile = Range("Z:Z").FindNext(After:=zeile)
zeile = zeile.Row
Next a
End Sub


Gruss
Tino

AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 18:06:00
Peter
Hallo Tinu
Irgendwie ist nichts passiert; auch keine Fehlermeldung.
Ich stelle mir jedoch vor, dass es einen kürzeren Code geben muss.
Wenn ich beispielsweise den gleichen Bereich leeren will geht das mit:

Sub leeren()
Range("Daten_Z") = ""
End Sub


Deshalb müsste ich die Zeilennummer dem Bereich auch relativ einfach zuordnen können (vielleicht stelle ich es mir tatsächlich zu einfach vor ...).
Danke und Gruss, Peter

Anzeige
AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 18:10:00
Tino
Hallo,
wie es passiert nichts, bei mir wird alles im Bereich Z:Z mit inhalt Daten_Z
durch die Zeilennummer ersetzt? Verstehe ich nicht!?
Gruss
Tino

AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
12.06.2007 08:51:45
Peter
Hallo Tino
Sorry, dass ich mich erst jetzt melde - war abwesend.
Ich habe das Problem analysiert.
Wenn ich Schritt für Schritt durch den Code gehe, wird bei mir mit der Zeile
Set Zeile = Range("Z:Z").Find("Daten_Z")
dem Range Zeile kein Wert übergeben (weshalb auch immer)
Deshalb ist in der nächsten Zeile mit
If Zeile is Nothing Then Exit Sub
folgerichtig fertig, oder wie ich festgestellt habe "es passiert nichts".
Trotzdem danke für deinen Input.
Die Lösung von Kurt hat mir nun weitergeholfen.
Gruss, Peter

Anzeige
AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 18:17:35
Original
Hi,

Sub Zeilennr()
With Range("Daten_Z")
.Formula = "=row()"
.Value = .Value
End With
End Sub


mfg Kurt

AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 18:26:52
Tino
Hallo Kurt,
hast du deinen code mal getestet, mach dies mal?
Gruss
Tino

AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 18:32:04
Original
Hi,
was meinst du, klappt nicht?
mfg Kurt

AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 18:37:00
Tino
Hallo,
Teste ihn doch einfach mal
Gruss
Tino

Super, danke! oT
11.06.2007 22:39:00
Piet
oT

Super Kurt, kann ich gut gebrauchen. oT
11.06.2007 23:26:07
Horst
H

AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
12.06.2007 08:52:00
Peter
Hallo Kurt
Herzlichen Dank.
Dies funktioniert prima.
Peter

AW: bestimmtem Bereich in Zelle Zeilennummer eintragen
11.06.2007 18:35:00
Tino
Hallo Peter,
warum muss er kürzer sein? Wichtig ist doch, dass er schnell ist oder?
Gruss
Tino

Anzeige
? Hilfe für Code Kurt
12.06.2007 13:19:00
Tino
Hallo,
könnt Ihr mir sagen wie dieser Code von Kurt funktioniert, möchte auch etwas dazu lernen!
Gruss
Tino

Erledigt oT
12.06.2007 17:40:09
.
ot

303 Forumthreads zu ähnlichen Themen

Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Anzeige
Syntax für benutzerdefiniertes Zellenformat
BF

Hallo Forum,
kennt jemand eine kurze Beschreibung im Internet zur Syntax des benutzerdefinierten Zellenformats (Zellen formatieren - Zahlen - Benutzerdefiniert - Typ)?
Ich möchte jetzt z.B. statt einer Null einen Strich anzeigen...
Eine allgemeine Anleitung wäre klasse, da ich schon...
04.10.2008 16:17:00
Thread-ID: 1014157
3 Beiträge
Kommenare beim Klick in die leere Zelle anzeigen?
Selma

Hallo Leute,
ich möchte in Zellen der Spalte E und Spalte F die Kommmentare als errechnete Werte beim Klick in die Zelle anzeigen, wenn diese Zelle leer sind. Sind die Zelle gefüllt, dann soll der Kommentar nicht angezeigt werden.
Die Voraussetzung ist, dass in Zelle der Spalte D die Za...
11.10.2008 12:17:00
Thread-ID: 1015730
8 Beiträge
Anzeige
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Benutzername Datum Zeit in Zelle
Michael

Hallo zusammen,
ich suche nach einem Makro, das einen Benutzernamen aus Tabelle1 Zelle B2, das aktuelle Datum (JJJJ.MM.TT) und die Zeit der Änderung Zeit (hh:mm:ss) bei Änderungen in einer Zeile der Spalten A bis AT in die Zelle AU2 usw. schreibt.
Die Suche hat mich leider nicht weiterg...
27.12.2008 19:52:00
Thread-ID: 1035469
15 Beiträge
Benutzername Datum Zeit in Zelle
Micha

Hallo zusammen,
am 29.12.2008 hat mir Peter Feustel bei einem Problem geholfen. Klappte auch alles wunderbar.
Archiv: https://www.herber.de/forum/archiv/1032to1036/t1035469.htm
(vom Archiv aus kann man Beiträge wohl nicht mehr als "Beitrag offen" setzen?!)
Nun macht das Makro "S...
25.01.2009 19:19:50
Thread-ID: 1043657
9 Beiträge
knifflig: in einer Zelle anzeigen, ob Makros aktiv
Tobias

Gibts ne Möglichkeit, in einer Zelle den "makrostatus" abzufragen.
Ohne VBA natürlich :)
So eine WAHR/FALSCH ausgabe wär praktisch,
da ich den Anfängern, die die Mappe öffnen, einen deutlichen Hinweis darauf geben möchte,
das sie Ohne aktiviertem VBA nicht funktioniert...
I...
20.02.2009 16:47:00
Thread-ID: 1052499
6 Beiträge
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
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
2
2
2
7
10
7
14
8
5
4
4
8
5
10
2
3
2
1
2
2
8
5
2
2
2