VBA für eine Umfrage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA für eine Umfrage

18.01.2023 20:24:48

Yal

Tschuldigung...

18.01.2023 20:30:40

Yal

AW: Tschuldigung...

19.01.2023 09:59:49

Herbert_Grom

AW: Tschuldigung...

19.01.2023 10:55:12

Yal

AW: Tschuldigung...

19.01.2023 11:43:31

Herbert_Grom

AW: Tschuldigung...

19.01.2023 12:09:13

Yal

AW: Tschuldigung...

20.01.2023 01:18:20

Volker

Starthilfe

20.01.2023 09:23:47

Yal

Sub lesen() Dim Z As Range 'Z wie Zelle Dim tmp With Worksheets("Formblatt") For Each Z In Intersect(.Range("A:A"), .UsedRange) tmp = Split(Z.Value, ".") 'Trennung nach dem Punkt If UBound(tmp) = 1 Then If InStr(1, "ABCDEFGH", tmp(0)) And IsNumeric(tmp(1)) Then _ Ergebnis_hinzufügen .Range("C3").Value, tmp(0), tmp(1), Z.Offset(0, 2).Value, Z.Offset(0, 3).Value End If Next End With End Sub Private Function Ergebnis_hinzufügen(ParamArray Werte()) 'Team, Thema, FrageNr, Rang, Gewicht Dim LO As ListObject Set LO = Range("Tabelle1").Parent.ListObjects("Tabelle1") 'Name der intelligente Tabelle an 2 Stellen anpassen. With LO.ListRows.Add .Range(1).Resize(1, UBound(Werte) + 1) = Werte End With End Function

Hallo Herbert,
vielen Dank für die Blumen. Nicht zweifeln, es kommt nach und nach.
Hochachtung meinerseits, dass Du dir die geposteten Codes vornimmst, um in VBA reinzukommen. Da siehst Du sicher viele verschiedenen Ansätze. Es ist immer schwierig zu sagen, welche gut und welche besser ist.
Das Wesentlich ist das Wissen über die Objekte. Workbook(s), Worksheet(s), Range hat man schnell im Griff. ListObject ist an sich ganz pratisch, weil man weniger Row & Column verwalten muss. Aber es bedarf viel Try&Error bis man es im Griff hat.
Man könnte aber den Code kürzen, weil die Verlagerung der Schreibvorgang in einer separaten Prozedure nicht notwendig ist.

Sub lesen()
Dim Z As Range 'Z wie Zelle
Dim LO As ListObject
Dim Frg, Arr
    Set LO = Range("Tabelle1").Parent.ListObjects("Tabelle1") 'Name der intelligente Tabelle an 2 Stellen anpassen.
    With Worksheets("Formblatt")
        For Each Z In Intersect(.Range("A:A"), .UsedRange)
            Frg = Split(Z.Value, ".") 'Trennung Anhand des Punktes
            If UBound(Frg) = 1 Then
                If InStr(1, "ABCDEFGHIJK", Frg(0)) And IsNumeric(Frg(1)) Then
                    Arr = Array(.Range("C3").Value, Frg(0), Frg(1), Z.Offset(0, 2).Value, Z.Offset(0, 3).Value)
                    LO.ListRows.Add.Range(1).Resize(1, UBound(Arr) + 1) = Arr
                End If
            End If
        Next
    End With
End Sub

Der Weg über den Array "Arr" ist auch nicht notwendig, aber erlaubt mehr Flexibilität, weil man sonst den Anzahl an Spalten in Resize festschreiben müsste.
VG
Yal

Hallo Herbert,
sorry, ich habe mich irgendwo verzettelt. Ich weiss von einem Beitragenden (es könnte neopa C, bin aber nicht sicher), der bereit Formel super Profi ist und gerade erst ins VBA einsteigt. Ich habe diese Erinnerung fälschlicherweise Dir zugeordnet.
In 1984 bin ich auch in die Welt der Programmierung eingetaucht. War aber erst 13. Der Weg führt über Algorythmus-Lehre, Mathematik, Datenmodellierung und sehr sehr viele Stunden Praxis. Davon sehr viele nicht erfolgreiche. Man könnte sagen, man weiss erst was gut ist, wenn man genug Erfahrung mit weniger gut hat.
Effektivität, Klarheit, Einfachheit und nicht zuletzt Schönheit sind tatsätzlich einige von meinen Anstreben beim Codieren. Es ist aber immer ein Abwägen: ist man z.B. zu sehr verkürzt, verliert man Flexibilität, wie z.B. das Auslassen von "Arr". Und was einem schön ist, ist dem anderen zu überfrachtet oder zu asketisch.
VG
Yal

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread