Thema Datum  Von Nutzer Rating
Antwort
11.04.2021 17:26:42 Anna12345
NotSolved
11.04.2021 22:03:04 ralf_b
NotSolved
11.04.2021 23:07:35 Gast4713
Solved
12.04.2021 01:26:38 Gast15772
NotSolved
18.04.2021 17:16:28 Anna12345
NotSolved
18.04.2021 17:21:43 Gast7357
NotSolved
18.04.2021 17:38:42 Gast84514
NotSolved
18.04.2021 17:56:04 Gast8220
NotSolved
Rot schleife programmieren
18.04.2021 18:40:22 Gast29062
NotSolved
18.04.2021 19:13:28 Anna12345
NotSolved
19.04.2021 00:46:47 Gast15772
Solved
01.05.2021 11:42:09 Anna12345
NotSolved
01.05.2021 17:10:23 Gast10856
NotSolved

Ansicht des Beitrags:
Von:
Gast29062
Datum:
18.04.2021 18:40:22
Views:
722
Rating: Antwort:
  Ja
Thema:
schleife programmieren

Könnte mir jemand die Schleife so programmieren das es funktioniert?

Es soll eigentlich nur die Zelle H16 bis H59 nach und nach ausgewählt werden.

Ein Mensch muss eine Zelle auswählen, das Makro selbst braucht soetwas nicht.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Sub Test()
   
  Dim rngCell As Excel.Range
 
  For Each rngCell In Worksheets("Tabelle1").Range("H16:H59").Cells
     
    If IsNumeric(rngCell.Value) And Not IsEmpty(rngCell.Value) Then
'      MsgBox "Ist Zahl"
    Else
'      MsgBox "Ist keine Zahl"
    End If
  Next
   
End Sub

Was konkret im Fall von "Ist Zahl" und/oder "Ist keine Zahl" zu tun ist, das musst du dann an die entsprechende Stelle schreiben - die wurde ja bereits mit MsgBox angedeutet.

 

Grüße


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
11.04.2021 17:26:42 Anna12345
NotSolved
11.04.2021 22:03:04 ralf_b
NotSolved
11.04.2021 23:07:35 Gast4713
Solved
12.04.2021 01:26:38 Gast15772
NotSolved
18.04.2021 17:16:28 Anna12345
NotSolved
18.04.2021 17:21:43 Gast7357
NotSolved
18.04.2021 17:38:42 Gast84514
NotSolved
18.04.2021 17:56:04 Gast8220
NotSolved
Rot schleife programmieren
18.04.2021 18:40:22 Gast29062
NotSolved
18.04.2021 19:13:28 Anna12345
NotSolved
19.04.2021 00:46:47 Gast15772
Solved
01.05.2021 11:42:09 Anna12345
NotSolved
01.05.2021 17:10:23 Gast10856
NotSolved