Thema Datum  Von Nutzer Rating
Antwort
22.07.2015 15:08:51 Fürpaß Anton
NotSolved
22.07.2015 19:12:20 Gast92328
NotSolved
23.07.2015 08:39:21 Fürpaß Anton
NotSolved
23.07.2015 08:41:33 Fürpaß Anton
NotSolved
23.07.2015 08:41:35 Fürpaß Anton
NotSolved
23.07.2015 08:41:35 Fürpaß Anton
NotSolved
Rot Zellennamenzuweisung mittels Variable in VBA
23.07.2015 08:39:22 Fürpaß Anton
NotSolved

Ansicht des Beitrags:
Von:
Fürpaß Anton
Datum:
23.07.2015 08:39:22
Views:
820
Rating: Antwort:
  Ja
Thema:
Zellennamenzuweisung mittels Variable in VBA

Hallo, Gast92328!
Vielen Dank für die unglaublich Schnelle Antwort.
Ihre Vorschläge haben mir sehr geholfen und alles funktioniert jetzt wunderbar.

 

Die komplette Lösung für mein Problem:

'Zeilennummer aus Spalte mit der Nummer "28" herausfinden
With ActiveSheet
  zeilennummer = .Cells(.Rows.Count, 28).End(xlUp).Row
End With

'Wert aus Spalte "O" mit Zeilennummer "10" ziehen
wert = Range("O10").Value

'Wert in Spalte "G" mit vorher zugewiesener Zeilennummer "zeilennummer" einfügen
Sheets("2015").Cells(zeilennummer, "G").Value = wert

Vielen Dank nochmal!



Nun hätte ich aber noch ein Problem. Ich möchte die das Tabellenblatt in 1-Sekundenabständen aktualisieren. Das heißt ich möchte Werte, die zeitabhängig sind aktualisieren.
Dazu möchte ich einen Button mit UpdateStart und UpdateStop einrichten.
Bis jetzt ist es mir nur gelungen die Updatesequenz beim Öffnen der Datei zu starten. Auch der UpdateStop-Button funktioniert. Jedoch muss ich um die Sequenz wieder zu starten die Datei neu öffnen, was sehr nervig ist.

Hier der aktuelle Code:
Option Explicit

Public Const dIntervallSek = 1     ' Intervall in Sekunden
Public dNextRun As Double
Public bStopRun As Boolean


Sub Makro38()
    Dim wkb As Workbook
    Dim blnOpen
   SendKeys "{F9}", True
Ende:
End Sub

Public Sub RunMakro()
    If bStopRun Then Exit Sub
    Call Makro38
    dNextRun = Now() + TimeSerial(0, 0, dIntervallSek)
    Application.OnTime dNextRun, "RunMakro"
    Application.StatusBar = "Makro38 läuft wieder um " & Now() + TimeSerial(0, 0, dIntervallSek)
End Sub

Public Sub StopMakro()
    bStopRun = True
    If dNextRun <> 0 Then Application.OnTime dNextRun, "RunMakro", , False
    Application.StatusBar = "Makro38 ist gestoppt!"
    dNextRun = 0
End Sub


Bitte wiederum um rasche Rückmeldung!
Mfg


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.07.2015 15:08:51 Fürpaß Anton
NotSolved
22.07.2015 19:12:20 Gast92328
NotSolved
23.07.2015 08:39:21 Fürpaß Anton
NotSolved
23.07.2015 08:41:33 Fürpaß Anton
NotSolved
23.07.2015 08:41:35 Fürpaß Anton
NotSolved
23.07.2015 08:41:35 Fürpaß Anton
NotSolved
Rot Zellennamenzuweisung mittels Variable in VBA
23.07.2015 08:39:22 Fürpaß Anton
NotSolved