Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
184to188
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
184to188
184to188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte zeile suchen

letzte zeile suchen
26.11.2002 16:30:04
Ralf
Ich habe hier eine Formel die egentlich immer die letzte zeile suchen sollte und den text darunterschreiben soll.
Aber an statt dies zu tun wird immer die erste zeile überschrieben vielleicht kann mir jemand helfen


Sub Worksheet_BeforeDoubleclick(ByVal target As Range, cancel As Boolean)
Dim zeile As Long, z As Integer
Dim artikel As String, einheit As String, preis As Currency
Dim ersteZeile As Integer, letztezeile As Integer

zeile = ActiveCell.Row
artikel = Cells(zeile, 2)
einheit = Cells(zeile, 3)
preis = Cells(zeile, 4)
With Worksheets("Rechnung")
.activatee
letztezeile = 16
.Cells(letztezeile, 1).Select
Do
If Cells(letztezeile, 1).Value = "" Then Exit Do
letztezeile = letzezeile + 1
Loop
.Cells(letztezeile, 2).Value = einheit
.Cells(letztezeile, 3).Value = artikel
.Cells(letztezeile, 4).Value = preis
.Cells(letztezeile, 1).Select
End With


End Sub

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Schreibfehler...
26.11.2002 16:40:29
Boris
Hallo Ralf,

letztezeile = letzezeile + 1

muss heissen

letztezeile = letztezeile + 1

Gruß Boris

Re: Schreibfehler...
26.11.2002 16:47:19
Ralf
Es klappt trotzdem nicht er schreibt alles in zeile 16
Re: letzte zeile suchen
26.11.2002 16:52:11
PeterW
Hallo Ralf,

wenn Du im Code schreibst letztezeile = 16 zuweiste musst Du dich nicht wundern, wenn immer in dieser Zeile begonnen wird. Versuch es mal mit
letztezeile=[a65536].End(xlUp).Row + 1
If letztezeile < 16 then letztezeile=16

Gruß
Peter

passt noch nicht
26.11.2002 16:58:46
Ralf
Sub Worksheet_BeforeDoubleclick(ByVal target As Range, cancel As Boolean)
Dim zeile As Long, z As Integer
Dim artikel As String, einheit As String, preis As Currency
Dim ersteZeile As Integer, letztezeile As Integer

zeile = ActiveCell.Row
artikel = Cells(zeile, 2)
einheit = Cells(zeile, 3)
preis = Cells(zeile, 4)
With Worksheets("Rechnung")
.Activate
letztezeile = [a65536].End(xlUp).Row + 1
If letztezeile < 16 Then letztezeile = 16
.Cells(letztezeile, 1).Select
Do
If Cells(letztezeile, 1).Value = "" Then Exit Do
letztezeile = letzezeile + 1
Loop
.Cells(letztezeile, 2).Value = einheit
.Cells(letztezeile, 3).Value = artikel
.Cells(letztezeile, 4).Value = preis
.Cells(letztezeile, 1).Select
End With


End Sub

Anzeige
Re: passt noch nicht
26.11.2002 17:00:58
PeterW
Hallo Ralf,

an den Anfang der beiden Zellen gehört ein Punkt, wenn sie sich auf "Rechnung" beziehen sollen.

Gruß
Peter

Re: passt noch nicht
26.11.2002 17:06:08
Georg_Zi
Hallo Ralf

ich würde den Code mal eiinkürzen

< 


Option Explicit

	

Sub Worksheet_BeforeDoubleclick(ByVal target As Range, cancel As Boolean)

	cancel = True

	Dim letztezeile As Integer

	With Worksheets("Rechnung")

		letztezeile = .Range("a65536").End(xlUp).Row + 1

		If letztezeile < 16 Then letztezeile = 16

		.Cells(letztezeile, 2).Value = Cells(ActiveCell.Row, 3)

		.Cells(letztezeile, 3).Value = Cells(ActiveCell.Row, 2)

		.Cells(letztezeile, 4).Value = Cells(ActiveCell.Row, 4)

	End With

End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Georg

Anzeige
Re: passt noch nicht
26.11.2002 17:06:33
Ralf
Bin noch anfänger jetzt kommt die fehlermeldung "anweisungsende" in der zeile mit if letztezeile...

Sub Worksheet_BeforeDoubleclick(ByVal target As Range, cancel As Boolean)
Dim zeile As Long, z As Integer
Dim artikel As String, einheit As String, preis As Currency
Dim ersteZeile As Integer, letztezeile As Integer

zeile = ActiveCell.Row
artikel = Cells(zeile, 2)
einheit = Cells(zeile, 3)
preis = Cells(zeile, 4)
With Worksheets("Rechnung")
.Activate
.letztezeile = [a65536].End(xlUp).Row + 1
.If letztezeile < 16 Then letztezeile = 16
.Cells(letztezeile, 1).Select
Do
If Cells(letztezeile, 1).Value = "" Then Exit Do
letztezeile = letzezeile + 1
Loop
.Cells(letztezeile, 2).Value = einheit
.Cells(letztezeile, 3).Value = artikel
.Cells(letztezeile, 4).Value = preis
.Cells(letztezeile, 1).Select
End With


End Sub

Anzeige
Re: passt noch nicht
26.11.2002 19:37:10
Boris
Hallo Ralf,

vor das If letztezeile kommt jetzt kein Punkt.

Das bezieht sich nämlich nicht auf die With-Anweisung.

Lass diese doch mal weg. Dann kommst du auch mit den Punkten nicht durcheinander.

Also:
Worksheets("Rechnung").activate

Und dann den Code OHNE jeden Punkt am Anfang.

Gruß Boris

Re: passt noch nicht
26.11.2002 19:44:00
PeterW
Hallo Boris,

liest Du eigentlich auch andere Beiträge? Georg hat doch die richtige Lösung schon vor Stunden gepostet.

Peter

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige