Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1768to1772
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
Inhaltsverzeichnis

Type-Anweisung Variablen leeren

Type-Anweisung Variablen leeren
30.06.2020 13:01:37
Ma
Hallo,
ist es möglich alle Variablen, die einer Type-Anweisung zugeordnet sind durch einen Befehl gleichzeitig zu leeren?
Type Berechnungsvariablen
beispiel_1 As Integer
beispiel_2 As Integer
beispiel_3 As Integer
End Type

Sub Loeschen()
Dim Variablen As Berechnungsvariablen
Variablen.beispiel_1 = 20
Variablen.beispiel_2 = 50
Variablen.beispiel_3 = 2000
Variablen.Clear
End Sub

Liebe Grüße
Marco

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Type-Anweisung Variablen leeren
30.06.2020 16:51:48
Mullit
Hallo,
nein, entweder Du schreibst Dir eine eigene wiederverw. Sub-Proc, oder Du nutzt ein Collection-Objekt, das kannst Du durchloopen, oder direkt auf Nothing setzen...
Option Explicit
Type Berechnungsvariablen
beispiel_1 As Integer
beispiel_2 As Integer
beispiel_3 As Integer
End Type
Sub Loeschen()
Dim Variablen As Berechnungsvariablen
Variablen.beispiel_1 = 20
Variablen.beispiel_2 = 50
Variablen.beispiel_3 = 2000
With Variablen
MsgBox .beispiel_1 & vbCr & _
.beispiel_2 & vbCr & .beispiel_3
End With
Call Variablen_Clear(Variablen)
With Variablen
MsgBox .beispiel_1 & vbCr & _
.beispiel_2 & vbCr & .beispiel_3
End With
End Sub
Private Sub Variablen_Clear(ByRef prudtMyType As Berechnungsvariablen)
With prudtMyType
.beispiel_1 = 0
.beispiel_2 = 0
.beispiel_3 = 0
End With
End Sub

Gruß, Mullit
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige