Thema Datum  Von Nutzer Rating
Antwort
02.11.2019 12:12:06 Christian Schilling
NotSolved
02.11.2019 12:42:55 Mase
NotSolved
02.11.2019 13:08:11 Werner
NotSolved
02.11.2019 13:43:58 Mase
NotSolved
Rot VBA: CountA
 03.11.2019 12:45:30 Gast52351
Solved
03.11.2019 13:08:08 Mase
NotSolved

Ansicht des Beitrags:
Von:
Gast52351		 Datum:
03.11.2019 12:45:30		 Views:
553		 Rating:
     
Antwort:
 Nein
Thema:
VBA: CountA

Grüßt euch Werner und Mase,

danke Mase für deinen Vorschlag.
Unbeantwortet möchte ich mein Post und eure Antworten dennoch nicht lassen.

Werner hat es bereits gefunden :-).

Für alle anderen suchenden:
Lösung für mein Problem ist folgende...

Dim SimB as Worksheet
Set SimB = ThisWorkbook.Worksheets("Simulation Benchmark")
Dim RegName as String
Dim RegList as Range


'Ermittelt die Lfd. Nummer der Regression. und fügt diese im Tabellenblatt "Simulation Benchmark" ein.
RegName = "Regr.Nr."
Set RegList = SimB.Rows(5).Find(RegName, LookAt:=xlWhole)                  
SimB.Activate
AnzahlRegressionen = SimB.Application.WorksheetFunction.CountA(Range(Columns(RegList.Column), Columns(RegList.Column))) - 1

Danke euch beiden für die Antwort

Christian

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
02.11.2019 12:12:06 Christian Schilling
NotSolved
02.11.2019 12:42:55 Mase
NotSolved
02.11.2019 13:08:11 Werner
NotSolved
02.11.2019 13:43:58 Mase
NotSolved
Rot VBA: CountA
 03.11.2019 12:45:30 Gast52351
Solved
03.11.2019 13:08:08 Mase
NotSolved