Warum geht dieses Script nicht?

Ich will, dass man ein Haus kaufen kann und dann die Wall destroyed wird

Es ist in Lua, Roblox Studio:

local WL = script.Parent.Parent
local PL = game:GetService("Players")
local Price = 50
local PR = script.Parent


local function Destroy()
    local player = PL.LocalPlayer
    if player then
        local leaderstats = player:FindFirstChild("leaderstats")
        if leaderstats then
            local cash = leaderstats:FindFirstChild("cash")
            if cash and cash.Value >= Price then
                cash.Value = cash.Value - Price
                WL:Destroy()
                print("DU hast das Haus Gekauft")
            else
                warn("Not enough cash or cash not found")
            end
        else
            warn("Leaderstats not found")
        end
    else
        warn("Player not found")
    end
end


PR.Triggered:Connect(Destroy)
print("Proximity Prompt script loaded")

Taroc

16.04.2025, 10:04

Was wird denn in der Konsole ausgegeben?

KAAAAA123

Beitragsersteller

16.04.2025, 10:05

Es wird gar nichts ausgegeben das finde ich komisch

Taroc

16.04.2025, 10:07

Bist du sicher dass du das Skript richtig ausführst? Steht nichtmal "Proximity Prompt script loaded" drin?

KAAAAA123

Beitragsersteller

16.04.2025, 10:09

Nein, hab ich vielleicht ein falsches Script ich hab es als localscripts im Proximity Prompt weil ich nicht genau weiß wann ich Serverscript oder Localscript nehmen soll

Taroc

16.04.2025, 10:15

Kann ich dir auch nicht sagen da ich nie Roblox Skripte geschrieben hab,aber wenn nicht mal "Proximity Prompt script loaded" ausgegeben wird wird das Skript nicht richtig gestartet

KAAAAA123

Beitragsersteller

16.04.2025, 10:16

OK, danke für die Hilfe .

0 Antworten

Ähnliche Beiträge

Lua: Wieso wird das Label nicht geändert?

Hallo Leute!

Es ist vielleicht ein bisschen komisch, Fragen zum Programmieren hier zu stellen, aber ich komme wirklich einfach nicht weiter.

Ich habe dieses Lua-Skript geschrieben, welches die Geschwindigkeit und ein TextLabel eines Spielers ändern soll, wenn er mit einem Baum Interagiert.

Mein Problem ist, dass wenn ich interagiere, zwar die Geschwindigkeit geändert wird, jedoch nicht das Label. Außerdem wird beides nicht auf den richtigen Wert gesetzt, nachdem man aus dem Spiel und wieder hineingeht.

Außerdem wird kein Fehlercode angezeigt.

Das Skript:

local Players = game:GetService("Players")
local DataStoreService = game:GetService("DataStoreService")
local speedDataStore = DataStoreService:GetDataStore("PlayerSpeedData12")
local tree = workspace:FindFirstChild("Tree2")
if tree then
local prompt = tree.Part.Attachment.ProximityPrompt
if prompt then
prompt.Triggered:Connect(function(player)
-- Überprüfen, ob der Player ein gültiger Spieler ist
if player and player:IsA("Player") then
local userId = player.UserId
local success, hasInteracted = pcall(function()
return speedDataStore:GetAsync("HasInteracted_" .. userId)
end)
if success and hasInteracted then
warn("Player has already interacted with the tree")
return
end
local character = player.Character
if character then
local humanoid = character:FindFirstChildOfClass("Humanoid")
if humanoid then
-- Erhöhe die Geschwindigkeit
if humanoid.WalkSpeed then
humanoid.WalkSpeed = (humanoid.WalkSpeed or 16) + 0.5
end
end
-- Erhöhe den Wert des TextLabels
local playerGui = player:WaitForChild("PlayerGui")
if playerGui then
local screenGui = playerGui:FindFirstChild("ScreenGui") 
if screenGui then
local textLabel = screenGui:FindFirstChild("SpeedFrame"):FindFirstChild("SpeedCounter"):FindFirstChild("Speed")
if textLabel and textLabel:IsA("TextLabel") then
wait(0.1)
local successText, savedText = pcall(function()
return speedDataStore:GetAsync("SpeedText_" .. userId)
end)
if successText and savedText then
textLabel.Text = savedText
else
textLabel.Text = "1.00"
end
-- Speichere den aktualisierten Text
pcall(function()
speedDataStore:SetAsync("SpeedText_" .. userId, textLabel.Text)
end)
end
else
warn("ScreenGui nicht gefunden")
end
else
warn("PlayerGui nicht gefunden")
end
else
warn("Character nicht gefunden")
end
local success, errorMessage = pcall(function()
speedDataStore:SetAsync("HasInteracted_" .. userId, true)
if humanoid then
speedDataStore:SetAsync("WalkSpeed_" .. userId, humanoid.WalkSpeed)
end
end)
if not success then
warn("Fehler beim Speichern der Daten: " .. errorMessage)
end
else
warn("Ungültiger Spieler")
end
end)
else
warn("ProximityPrompt nicht gefunden")
end
else
warn("Tree2 nicht gefunden")
end
Players.PlayerAdded:Connect(function(player)
local userId = player.UserId
local success, savedSpeed = pcall(function()
return speedDataStore:GetAsync("WalkSpeed_" .. userId)
end)
local successText, savedText = pcall(function()
return speedDataStore:GetAsync("SpeedText_" .. userId)
end)
if success then
player.CharacterAdded:Connect(function(character)
local humanoid = character:WaitForChild("Humanoid")
if savedSpeed and humanoid then
if humanoid.WalkSpeed then
humanoid.WalkSpeed = savedSpeed
end
end
local playerGui = player:WaitForChild("PlayerGui")
if playerGui then
local screenGui = playerGui:FindFirstChild("ScreenGui") 
if screenGui then
local textLabel = screenGui:FindFirstChild("SpeedFrame"):FindFirstChild("SpeedCounter"):FindFirstChild("Speed")
if textLabel and textLabel:IsA("TextLabel") then
wait(0.1)
if successText and savedText then
textLabel.Text = savedText
else
textLabel.Text = "0"
end
else
warn("TextLabel nicht gefunden")
end
else
warn("ScreenGui nicht gefunden")
end
else
warn("PlayerGui nicht gefunden")
end
end)
else
warn("Fehler beim Laden der gespeicherten Geschwindigkeit für Spieler " .. userId)
end
end)

Ich wäre wirklich sehr dankbar, wenn mir jemand weiterhelfen kann!

...zum Beitrag

Lua: Wie kann ich unabhängig vom Wert der Variable Money bei der vierten Zeile das Geld anzeigen lassen?

Hi,

ich wollte fragen wie ich das mache, dass bei der vierten Zeile das Geld angezeigt wird, egal was ich oben bei local Money eintrage.

local Money = 2
local Paied = 8

if Money == Money then
  print("You have (hier dann das Geld was bei local eingetragen wurde) bucks")
end

if Paied == 8 then
  print("you are not more rich")
end

...zum Beitrag

Kann mir jemand dieses Lua-Skript erklären?

Also, ich programmiere ein bisschen in Roblox Studio mit der Roblox Website, aber ich verstehe dieses Skript nicht:

local Kill = script.Parent

local function kill(otherPart)
  local partParent = otherPart.Parent
  local humanoid = partParent:FindFirstChild("Humanoid")

  if humanoid then
    humanoid.Health = 0
  end
end

Kill.Touched:Connect(kill)

Ich verstehe insbesondere nicht was in diesem Bereich steht:

local partParent = otherPart.Parent
local humanoid = partParent:FindFirstChild("Humanoid")

Kann mir jemand erklären, was das Skript mit otherPart, PartParent und dem FindFirstChild meint?

...zum Beitrag

Kann jemand mir bei diesen FiveM Server Error helfen?

SCRIPT ERROR: @krz_personalmenu/server/main.lua:73: attempt to index a nil value (local ‘xPlayer’)

and this is in the Line

ESX.RegisterServerCallback(‘KorioZ-PersonalMenu:Admin_getUsergroup’, function(source, cb)

local xPlayer = ESX.GetPlayerFromId(source)

local plyGroup = xPlayer.getGroup(user)

if plyGroup ~= nil then

cb(plyGroup)

else

cb('user&apos

end

end)

...zum Beitrag

Bashskript Problem?

#!/bin/bash

echo "Typ des Betriebssystems = $OSTYPE"

# If-Schleife, die das Betriebssystem erkennt und den Pfad zum überwachten Ordner oder Datei festlegt

if [[ "$OSTYPE" == "linux-gnu"* ]]; then
    BASE_DIRECTORY="Linux-Ordner" 

elif [[ "$OSTYPE" == "darwin"* ]]; then
    BASE_DIRECTORY="/Users/name/Library/CloudStorage/GoogleDrive-eineemail@gmail.com/Meine Ablage/Uni/TestOrdner" 

elif [[ "$OSTYPE" == "win32" || "$OSTYPE" == "msys" || "$OSTYPE" == "cygwin" ]]; then
    BASE_DIRECTORY="/g/Meine Ablage/Uni/TestOrdner" 
    echo "Das Betriebssystem ist unbekannt."
    exit 1
fi

Ausgabe beim Ausführen des Skripts:

"Typ des Betriebssystems = msys

Das Betriebssystem ist unbekannt."

Die erste Zeile ist korrekt, aber die zweite Zeile sollte so nicht sein. Ich bin auf meinem WindowsPC und habe einen existenten Pfad eingefügt. Dennoch erkennt das Skript das Betriebssystem nicht.

...zum Beitrag

Wie kann man in Access mehrere Filter per ODER verknüpfen?

Ich habe eine Access Datenbank-Tabelle mit den Einträgen Ersatzteilnummer, Materialtext, Typennummer, Sonstige Nummer und Kommentar.

Über ein Formular mit Suchfeld möchte ich mir Alle Datensätze anzeigen lassen, bei denen mindestens eine der Spalten meiner Datenbank den Suchbegriff enthält. Es sollen also alle Datensätze angezeigt werden bei denen die Eingabe im Materialtext vorkommt ODER in der Typennummer ODER im Kommentar usw.

Der Filter wie unten eingefügt funktioniert mehr oder weniger, jedoch habe ich so keine ODER Verknüpfung. Hat vielleicht jemand eine Idee, wie ich das realisieren könnte?

Vielen lieben Dank!! Max

If Len(Me!txtQSf) > 0 Then

Me.Filter = ""
       If Ersatzteilenummer Like "" & Me!txtQSf & "" Then
       Me.Filter = "Ersatzteilenummer LIKE '" & Me!txtQSf & "'"
       Me.FilterOn = True
    Else
        If Materialtext Like "*" & Me!txtQSf & "*" Then
            Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
            Me.FilterOn = True
        Else
                If Typennummer Like "*" & Me!txtQSf & "*" Then
                     Me.Filter = "Typennummer LIKE '*" & Me!txtQSf & "*'"
                     Me.FilterOn = True
                Else
                  If Kommentar Like "*" & Me!txtQSf & "*" Then
                      Me.Filter = "Kommentar LIKE '*" & Me!txtQSf & "*'"
                      Me.FilterOn = True
                  Else
                    If Sonstige_Nummer Like "*" & Me!txtQSf & "*" Then
                            Me.Filter = "Sonstige_Nummer LIKE '*" & Me!txtQSf & "*'"
                            Me.FilterOn = True
                    Else
                        Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
                        Me.FilterOn = True                              
     End If
     End If
     End If
     End If
     End If
Else
Me.Filter = ""
Me.FilterOn = False
End If

End Sub

...zum Beitrag

Excel Colorsum Ergebnis automatisch aktualisieren lassen?

Moin, ich habe in Excel über Visual Basics folgenden Code eingefügt:

Function ColorSum(ByRef Source As Range, ByVal Color As Integer, Optional ByVal ForeOrBack As Boolean = -1) As Double

Dim rng As Range, dblSum As Double

Application.Volatile

If Color < 0 Or Color > 56 Then Color = IIf(ForeOrBack, -4142, -4105)

For Each rng In Source

If IsNumeric(rng) Then

If ForeOrBack Then

If rng.Interior.ColorIndex = Color Then dblSum = dblSum + rng

Else

If rng.Font.ColorIndex = Color Then dblSum = dblSum + rng

End If

ColorSum = dblSum

End Function

Dies hat die Funktion, dass ich zahlen zusammen rechnen kann anhand der Farbe. Das Funktioniert auch alles so weit. Nur weiß ich nicht wie ich es hinkriege dass sich das Ergebnis automatisch aktualisiert nachdem ich die Farbe z.B. von rot auf grün umändere. Dann sollte eigentlich aus summe X eine summe heraus kommen die um 1 weniger ist. Dies sehe ich aber erst dann, nachdem ich in die Spalte gehe (wo die Formel ist) und die Entertaste drücke. Geht das auch ohne das ich es Manuell aktualisieren muss?

...zum Beitrag

Bashskript Problem?

Ich habe hier ein Bashskript, welches Dateien überwacht (noch nicht vollständig und absolut unoptimiert). Ich weiß, dass es Tools gibt, aber es ist ein Projekt für die Uni und deshalb ist Optimierung und Effizienz nicht wirklich wichtig. Ich möchte damit die Grundlagen des Shellscriptings einfach etwas lernen.

Das ist bisher das Script:

#!/bin/bash


echo "Das Skript wurde gestartet. Der Typ Ihres Betriebssystem ist "\"$OSTYPE\""."


# If-Abfrage, die das Betriebssystem erkennt und den Pfad zum überwachten Ordner oder Datei festlegt # HIER BITTE DIE PFADE ZUM ZU ÜBERWACHENDEN ORDNER EINTRAGEN   
if [[ "$OSTYPE" == "linux-gnu"* ]]; then
    BASE_DIRECTORY=" " # Übergibt dem überwachten Ordner eine Variable, wenn Betriebssystem = Linux
elif [[ "$OSTYPE" == "darwin"* ]]; then
    BASE_DIRECTORY="/Users/name/Library/CloudStorage/GoogleDrive-email@gmail.com/Meine Ablage/Uni/TestOrdner" # Übergibt dem überwachten Ordner eine Variable, wenn Betriebssystem = MacOs
elif [[ "$OSTYPE" == "win32" || "$OSTYPE" == "msys" || "$OSTYPE" == "cygwin" ]]; then
    BASE_DIRECTORY="/g/Meine Ablage/Uni/TestOrdner" # Übergibt dem überwachten Ordner eine Variable, wenn Betriebssystem = Windows
else    
    echo "Das Betriebssystem ist unbekannt." # Wenn das Betriebssystem unbekannt ist, wird eine Fehlermeldung ausgegeben
    exit 1
fi


DIRECTORY="$BASE_DIRECTORY" # Pfad zum Ordner
FILE="$BASE_DIRECTORY/Datei.txt" # Pfad zur Datei   
FILE2="$BASE_DIRECTORY/Datei2.txt" # Pfad zur Datei2 


cd "$BASE_DIRECTORY" || {
    echo "Wechsel zu $BASE_DIRECTORY fehlgeschlagen!" # Wechselt in den TestOrdner oder gibt eine Fehlermeldung aus
    exit 1;
}



# Funktion, um zu überprüfen, ob Dateien gelöscht wurden
checkIfDeleted() {
    if [ ! -f "$FILE" ]; then 
        echo "Die Datei \"$(basename "$FILE")\" wurde gelöscht, umbenannt oder verschoben."
    elif [ ! -f "$FILE2" ]; then
        echo "Die Datei \"$(basename "$FILE2")\" wurde gelöscht, umbenannt oder verschoben."
    elif [ ! -d "$DIRECTORY" ]; then
        echo "Der Ordner \"$(basename "$DIRECTORY")\" wurde gelöscht, umbenannt oder verschoben."
    fi
}


# Speichert den "ursprünglichen" Hash-Wert der Dateien
ORIGINAL_HASH=$(md5 -q "$FILE")
ORIGINAL_HASH2=$(md5 -q "$FILE2")


checkIfEdited() {
    if [ ! -f "$FILE" ]; then # Wenn $FILE nicht existiert, dann wird das Skript hier beendet
    return
    fi


    if [ ! -f "$FILE2" ]; then # Wenn $FILE2 nicht existiert, dann wird das Skript hier beendet
    return
    fi


    if [ ! -d "$DIRECTORY" ]; then # Wenn $DIRECTORY nicht existiert, dann wird das Skript hier beendet
    return
    fi


    # Berechnet den aktuellen Hash-Wert der Dateien
    CURRENT_HASH=$(md5 -q "$FILE")
    CURRENT_HASH2=$(md5 -q "$FILE2")


    # Hash-Werte werden verglichen
    if [ "$CURRENT_HASH" != "$ORIGINAL_HASH" ]; then
        echo "Die Datei \"$(basename "$FILE")\" wurde bearbeitet."
        # Ursprünglicher Hash-Wert wird für zukünftige Überprüfungen aktualisiert
        ORIGINAL_HASH="$CURRENT_HASH"
    elif [ "$CURRENT_HASH2" != "$ORIGINAL_HASH2" ]; then
        echo "Die Datei \"$(basename "$FILE2")\" wurde bearbeitet."
        # Ursprünglicher Hash-Wert wird für zukünftige Überprüfungen aktualisiert
        ORIGINAL_HASH2="$CURRENT_HASH2"
    fi
}


while true; do # Endlosschleife, die die Funktionen "checkIfDeleted" und "checkIfEdited" alle 10 Sekunden ausführt
    checkIfDeleted
    checkIfEdited
    sleep 10
done

Ja, ich weiß, welche Probleme das Skript mit sich bringt, aber ich habe ein anderes Problem:

Wenn jemand das Skript nutzen möchte, muss er die Pfade seiner Dateien einfügen und sogar neue Variablen definieren.

Man könnte das doch so machen, dass das Skript die Liste des Ordners einliest und dann auf alle Dateien direkt zugreifen muss, ohne dass man sie in das Skript einfügen muss.

Also irgendwie mit dem Befehl "ls". Ich weiß aber nicht, wie ich das implementieren soll.

Kann mir wer helfen bitte?

...zum Beitrag

if not isinstance(): command Funktioniert nicht in Python 3?

a=input('pls enter the amount of different Atoms your solution has (no greater then 10 possible):')

if isinstance(a, int):

print('error', type(a), 'is not int')

else:

print(works)

Ich das wenn die eingabe etwas anderes als int() ist ein error ausgespuckt wird und wenn es ein int() ist, danneben bei else weitermacht, allerdings funktioniert es nicht wer eine idee?

...zum Beitrag

Raspberry PI Flask-404 Not Found?

Hallo!

Ich habe das programmiert. Es wird jede Sekunde die Temperatur von der CPU ausgelesen. Jetzt möchte ich Flask einbauen, damit ich mit mehreren PC's darauf zugreifen kann. Aber es funktioniert nicht. Warum?

from flask import Flask, jsonify
import subprocess
import time
import os
from colorama import Fore, Style

app = Flask(__name__)

@app.route("/temp")
def get_cpu_temperature():
  try:
    result = subprocess.run(['vcgencmd', 'measure_temp'], capture_output=True, text=True, check=True)
    temperature_str = result.stdout.strip()
    temperature = float(temperature_str[5:-2]) # Extrahiere die Temperatur aus dem String
    return temperature
  except subprocess.CalledProcessError as e:
    print(f"Fehler beim Ausführen des Befehls: {e}")
    return None

def print_colored_temperature(temperature):
  if temperature is not None:
    if temperature > 49.9:
      print(f"{Fore.RED}Temperatur: {temperature}°C{Style.RESET_ALL}")
    else:
      print(f"Temperatur: {temperature}°C")
  else:
    print("Fehler beim Lesen der CPU-Temperatur.")

def main():
  try:
    while True:
      temperature = get_cpu_temperature()
      print_colored_temperature(temperature)
      time.sleep(1)
      os.system('clear')
  except KeyboardInterrupt:
    print("Programm wurde durch den Benutzer unterbrochen.")
  except Exception as e:
    print(f"Ein Fehler ist aufgetreten: {e}")
     
     


if __name__ == '__main__':
  app.run(host="0.0.0.0")

if __name__ == '__main__':
  main()
  import sys
  sys.exit(main(sys.argv))

...zum Beitrag

Excel: VBA - Zellen per Button-Klick nacheinander füllen?

Schönen guten Tag,

Ich würde gern in einer Excel-Tabelle eine Spalte nacheinandern (begrenzter Bereich), bei Button-Klick, füllen.

Es sollen auf einer Excel-Oberfläche verschiedene Buttons erstellt werden, die alle die selben Zellen füllen (Bsp: G3 bis O3). Wenn eine Zeile leer ist, soll diese gefüllt werden, wenn die nächste gefüllt ist, soll zur nächsten "leeren" gegangen werden. Dies jedoch nicht sofort für alle, sondern per Mausklick auf einen Button. ButtonA füllt G3 mit "asdf", ButtonB beginnt bei G3 findet dort "nicht leer" und geht auf H3 und schreibt "wasd", erneut ButtonA beginnt bei G3, findet G3 "nicht leer" und H3 "nicht leer" und schreibt in I3 "asdf".

Ich hoffe mein Idee und mein Ansatz ist verschändlich.

Ich habe auch eine Möglichkeit gefunden, jedoch müsste ich den Code für jede weitere Variante anpassen. Kann man daraus eine "einfachere" Schleife generieren? Bin leider noch VBA-Neuling.

Ich danke für die Hilfe! Ich wünsche euch einen schönen Tag!

Grüße

Private Sub CommandButton1_Click()
If Range("G3") = "" Then
    Range("G3").Value = "Test - 1"
Else
    If Range("H3") = "" Then
        Range("H3").Value = "Test - 1"
    Else
        If Range("I3") = "" Then
            Range("I3").Value = "Test - 1"
        Else
            If Range("J3") = "" Then
                Range("J3").Value = "Test - 1"
            Else
                If Range("K3") = "" Then
                    Range("K3").Value = "Test - 1"
                Else
                    If Range("L3") = "" Then
                        Range("L3").Value = "Test - 1"
                    Else
                        If Range("M3") = "" Then
                            Range("M3").Value = "Test - 1"
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

...zum Beitrag

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zum Beitrag

Wie kann man in Excel per VBA abhängig von einem Wert Spalten aus-/einblenden?

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

...zum Beitrag

Warum geht dieser VBA-Code nicht?

Kann man keine If-Anweisungen in If-Anweisungen packen oder wieso geht der Code nicht?

Als Fehlermeldung kommt "Else ohne If" und das Else if ganz links am Rand wird markiert.

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen