Microsoft Excel

Herbers Excel/VBA-Archiv

VBA letzte Zeile ermitteln und Wert eintragen


Betrifft: VBA letzte Zeile ermitteln und Wert eintragen von: hhrm
Geschrieben am: 19.07.2017 10:37:24

Hallo zusammen,

ich habe eine Tabelle mit Daten in Spalte D.
Ich möchte nun per VBA

-die letzte Zeile in Spalte D rausfinden
-und anhand dessen 2 Zeilen unter der letzten Zeile in Spalte B ein X setzen lassen.
(brauche ich für weitere Verknüpfungen)

Gibt es da eine VBA-Formel für?

Danke für eure Tipps!

Gruß
hhrm

  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: Werner
Geschrieben am: 19.07.2017 10:44:50

Hallo,

z.B. so:

Dim loLetzte AS Long

With Worksheets("Tabelle1") 'Blattname anpassen
  loLetzte = .Cells(.Rows.Count, 4).End(xlUp).Row + 2
  .Cells(loLetzte, 4) = "X"
End Wirh
Gruß Werner


  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: hhrm
Geschrieben am: 19.07.2017 11:07:48

schon mal danke!

funktioniert aber leider nicht.....er trägt mir das "X" nicht ein!

Gruß hhrm


  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: Werner
Geschrieben am: 19.07.2017 10:55:15

Hallo,

oder als "Einzeiler"

Worksheets("Tabelle1").Cells(Rows.Count, 4).End(xlUp).Offset(2, 0) = "X"
Gruß Werner


  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: hhrm
Geschrieben am: 19.07.2017 11:14:45

auch gut....jetzt funktioniert es!

leider sind in der Spalte D formeln drin...die auch als ergebnis garnichts (also "") anzeigen.

gibt es auch die Variante für die letzte Zeile, wo ein Wert errechnet wurde?

Danke!


  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: Werner
Geschrieben am: 19.07.2017 11:27:51

Hallo,

dir ist aber schon klar, dass du dir dabei deine Formel überschreibst?

Public Sub Test()
Dim loLetzte As Long

With Worksheets("Tabelle1") 'anpassen
loLetzte = .Columns(4).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchdirection:= _
xlPrevious).Row
.Cells(loLetzte + 2, 4) = "X"
End With
End Sub
Gruß Werner


  

Betrifft: ...in Spalte B ein X setzen lassen....owT von: robert
Geschrieben am: 19.07.2017 11:43:45




  

Betrifft: wer lesen kann... Danke für den Hinweis. o.w.T. von: Werner
Geschrieben am: 19.07.2017 11:45:03




  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: Werner
Geschrieben am: 19.07.2017 11:47:07

Hallo,

Robert hat mich auf einen Fehler meinerseits hingewiesen. Mein Code schreibt das X in die Spalte D. Hier der geänderte Code:

Public Sub Test()
  Dim loLetzte As Long
  
  With Worksheets("Tabelle1") 'anpassen
  loLetzte = .Columns(4).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchdirection:= _
  xlPrevious).Row
  .Cells(loLetzte + 2, 2) = "X"
  End With
  End Sub
Gruß Werner


  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: hhrm
Geschrieben am: 19.07.2017 11:49:40

supi....es klappt.

VIELEN VIELEN DANK!

er überschreibt mir die Formel nicht sondern er trägt das "X" in die Spalte B ein:

Public Sub Test()
Dim loLetzte As Long

With Worksheets("Tabelle1") 'anpassen
loLetzte = .Columns(4).Find(what:="*", LookIn:=xlValues, lookat:=xlWhole, searchdirection:= _
xlPrevious).Row
.Cells(loLetzte + 2, 3) = "X"
End With
End Sub
Gruß
hhrm


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 19.07.2017 11:52:14




  

Betrifft: AW: VBA letzte Zeile ermitteln und Wert eintragen von: hhrm
Geschrieben am: 19.07.2017 11:53:38

sorry hatte es auch falsch geschrieben....das "X" sollte in Spalte C also 3.
Ich habe es schon angepasst.

Gibt es jetzt noch die Möglichkeit, bei jeder Änderung im Tabellenblatt die vorher gesetzten "x" in Spalte C zu löschen und dann erst das neue X zu setzen?


  

Betrifft: Nachfragen und Beispielmappe von: Werner
Geschrieben am: 19.07.2017 11:56:49

Hallo,

-was meinst du mit "bei jeder Änderung"?
-sind in Spalte C noch andere Werte, außer den X

Bitte die Fragen beantworten und am besten noch eine Beispielmappe hochladen.

Gruß Werner


  

Betrifft: AW: Nachfragen und Beispielmappe von: hhrm
Geschrieben am: 19.07.2017 12:31:37

Ich habe Datenschnitte im Tabellenblatt, so dass sich die Daten bzw. auch die Anzahl der Zeilen je nach Auswahl anpassen!

in der Spalte C steht ausser dem X kein Wert


Beiträge aus den Excel-Beispielen zum Thema "VBA letzte Zeile ermitteln und Wert eintragen"