Cell Value bzw. Zellen Inhalt ändern über Function in VBA?

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

Sub Test()

ActiveCell.Offset(1, 1) = "1"

End Sub

Function Test()

ActiveCell.Offset(1, 1) = "1"

End Function

4 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

Hannes62a

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

18.11.2020, 10:52

Soweit ich weiß, kann eine VBA Funktion nicht in eine andere Zelle schreiben, sondern nur lesen. Die Funktion kann nur den Wert der Zelle beeinflussen, aus der sie aufgerufen wird.

Was Du vorhast, geht nur über eine Sub().

hannes1806

18.11.2020, 16:49

Ich kenne auch keine einzige Original-Excel-Funktion, die in einer anderen Zelle etwas auslöst. Das ist eine ganz grundlegende Systematik von Excel.

want69

Beitragsersteller

18.11.2020, 11:19

Okay, gut zu wissen, dass mit einer Funktion scheinbar nicht der selbe Code ausführbar ist wie mit einem Sub. Ich hat bereits sowas in der Richtung befürchtet und versucht das Problem zu umgehen, indem ich in meiner Funktion einen Sub mit "Call" aufrufe. Beim debuggen ist macht es jedoch leider den Eindruck, dass er zwar durch "Call" in den Sub springt, aber am ende des Sub nicht mehr zurück in die Funktion geht. Nochmal vielen Dank für die Hilfe! Liebe Grüße Leo

Hannes62a

18.11.2020, 12:58

@want69

Sehr gerne.

want69

Beitragsersteller

18.11.2020, 13:12

@Hannes62a

Ich habe den Lösungsansatz aus folgendem Forum https://www.ozgrid.com/forum/index.php?thread/41643-can-a-subroutine-be-called-within-a-function/ genommen und festgestellt, dass wenn ich nun in den Sub die Zeile zum "ändern des Zelleninhaltes" einfüge, diese dort nun ebenfalls zum absturz führt.
Hier der Code mit der zum Absturz führenden Zeile auskommentiert:
Function MyFunc()

MsgBox "MyFunc"

Call MySub

Application.Run "MySub"

End Function

Sub MySub()

'ActiveCell.Offset(1, 1) = "1"

MsgBox "MySub"

End Sub

Hannes62a

18.11.2020, 16:21

@want69

Weiter unten wird es doch auch bestätigt:

You're still not allowed to violate the "Function can't manipulate values of other cells" rule.

Was Du vorhast, geht so nicht.

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

18.11.2020, 15:32

Mit VBA kann man in einem Excel Workbook nahezu alles machen.
Binde dies in einem Modul ein (oder Tabellenblatt in der VBA IDE) und Drücke F5
Der Code wird in genau dem Blatt Auswirkung haben welches aktuell zu sehen ist.
Private Function Test()

Range("A1").Value = 1
Cells(1,2).Value = 2 'Entspreicht der Zelle B1
Cells(1,3).Value = "Test" 'Entspreicht der Zelle C1

End Function

want69

Beitragsersteller

19.11.2020, 10:32

Vielen Dank für deine Antwort, es scheint in Excel nicht möglich zu sein, den Inhalt anderer Zellen mit einer Funktion zu beeinflussen.

IchMalWiederXY

19.11.2020, 14:42

@want69

Doch es ist möglich. ALLES ist in Bezug auf Zellen mit VBA möglich.
Schreibe in ein Modul:
Wenn du in A1 ne 2 und in B1 ne 3 hast und in C1: =myTest(A1;B1)
schreibst, dann wird in C1 ne 5 sein.

Public Function myTest(Zelle1 as Range, Zelle2 as Range) as Double

myTest = Zelle1 + Zelle2

End Function

want69

Beitragsersteller

23.11.2020, 17:19

@IchMalWiederXY

sorry habe die Antwort scheinbar übersehen gehabt, danke dir nochmals. ich glaube, dass es nur möglich ist die jeweilige Zelle, in welcher die Funktion steht, durch ihren entsprechenden Rückgaberecht zu manipulieren. Versuche ich jedoch gleichzeitig andere Zellen, in welchen diese Funktion nicht steht, zu beeinflussen, führt dies zum crash.

IchMalWiederXY

23.11.2020, 20:23

@want69

Dies macht man dann NICHT auf diese Weise. Immer wenn sich ein Zellen halt ändert löst dies ein Chance event aus. Dort kann man alles machen. Beliebig viele Zellen verändern.

adi120369

18.11.2020, 08:12

Eine Sub kann man z.B. einfach mit F5 ausführen - eine Function hingegen muß man aufrufen. Z.B. im Direktbereich mit "Call Test", oder auch einfach nur "Test" eingeben, da keine Argumente vorhanden sind.

Die Wahl wäre, es hier bei der Prozedur zu belassen, wenn einfach Zellen geändert werden sollen. Funktionen nutzt man, wenn man en Ergebnis zurückbekommen möchte.

want69

Beitragsersteller

18.11.2020, 08:36

Danke für deine schnelle Rückmeldung! Wirklich erstaunlich wie schnell das hier geht :) Ich habe zur Vereinfachung meines Problems hier nur einen kleinen Code als Beispiel aufgeführt. In meinem Aktuellen Projekt hingegen möchte ich auch einen Wert zurückgeben, sollte also eine Funktion verwenden. Kannst du mir erklären, wie man sowas typischer weise umsetzt oder wieso es bei meinem beispiel zum Abbruch kommt? Danke dir!

adi120369

18.11.2020, 08:59

@want69

Ja, eine Function muß im Code immer irgendwo noch eine Zeile haben "Funktionsname = Ergebnis". Also, Beispiel:

Function RechteckUmfang(Breite As Double, Laenge As Double) As Double

Dim WrtTmp as Double

WrtTmp=2 * (Laenge + Breite)

RechteckUmfang=WrtTmp

End Function

Das heißt, es wurde eine Funktion erstellt zum Berechnen des Umfangs. Mit der Nennung des Funktionsnamen habe ich in den Klammern auch vereinbart, das der, der die Funktion aufruft, an erster Stelle in den Klammern einen Zahlenwert zu Breite und an zweiter Stelle einen Zahlenwert zu Länge angeben muß. Das Ergebnis der Funktion ist auch ein Double Datentyp, also Dezimalzahl mit max 15 Stellen.

Wenn Du diese Funktion in Deinem Projekt einfügst, kannst Du diese Funktion sogar schon über den Funktionsassistenten finden. Oder einfach in eine Zelle schreiben "=Rechteckumfang(A1;A2)" - wobei also in A1 die Breite und in A2 die Länge dann steht.

VG, Armin (edducato.de)

want69

Beitragsersteller

18.11.2020, 10:40

@adi120369

Viele Dank dass du dir so viel Zeit nimmst und mühe gibst mir weiter zu helfen!
Um mal bei deinem Beispiel zu bleiben, habe ich dieses genommen und mit meiner Zeile zum "Zellen Inhalt ändern" ergänzt.
Leider kommt es scheinbar immer noch zum Abbruch ..

Hier der Code:

Dim WrtTmp As Double

ActiveCell.Offset(1, 1) = "1"

WrtTmp = 2 * (Laenge + Breite)

RechteckUmfang = WrtTmp

End Function

want69

Beitragsersteller

18.11.2020, 13:13

@adi120369

Hier der Code mit der zum Absturz führenden Zeile auskommentiert:

Function MyFunc()

MsgBox "MyFunc"

Call MySub

Application.Run "MySub"

End Function

Sub MySub()

'ActiveCell.Offset(1, 1) = "1"

MsgBox "MySub"

End Sub

want69

Beitragsersteller

18.11.2020, 10:44

*Kommentar gelöscht*

verreisterNutzer

18.11.2020, 09:27

Wenn du den Text von deiner Funktion "Test()" einzeln so verwendest, läuft er korrekt.

Hast du sowohl die "sub" als auch die "function" im selben Modul? Das geht nicht, weil sie nicht denselben Namen haben dürfen.

Beim Abbruch wird ja auch immer Eine Fehlermeldung generiert. Da siehst du es dann ("ambiguous name" in dem Fall).

want69

Beitragsersteller

18.11.2020, 10:46

Vielen Dank für deine schnelle Antwort!

Ich habe es nun umbenannt in " Sub TestSub()" und "Function TestFunc()" und diese in 2 eigenständige Module getrennt. Leider scheint es bei der Function immer noch zum Abbruch zu kommen. Um ehrlich zu sein bin ich mir nicht sicher wo ich die Ursache für diesen Fehler auslesen kann, ein Fehler-Fenster öffnet sich jedenfalls nicht.

verreisterNutzer

18.11.2020, 10:58

@want69

Starte es am besten mal in dem "Developer"-Fenster mit "Run". Dann geht es in den Debugger, wenn ein Fehler vorkommt.

Aber in diesem extrem einfachen Code ist echt kein Fehler…

want69

Beitragsersteller

18.11.2020, 11:21

@verreisterNutzer

Vielleicht bekomme ich keinen Fehler, weil es nicht so vorgesehen ist. Laut Hannes62a scheint es so zu sein: "Soweit ich weiß, kann eine VBA Funktion nicht in eine andere Zelle schreiben, sondern nur lesen. Die Funktion kann nur den Wert der Zelle beeinflussen, aus der sie aufgerufen wird.

Was Du vorhast, geht nur über eine Sub()."

want69

Beitragsersteller

18.11.2020, 13:13

@verreisterNutzer

Hier der Code mit der zum Absturz führenden Zeile auskommentiert:

Function MyFunc()

MsgBox "MyFunc"

Call MySub

Application.Run "MySub"

End Function

Sub MySub()

'ActiveCell.Offset(1, 1) = "1"

MsgBox "MySub"

End Sub

verreisterNutzer

18.11.2020, 13:38

@want69

Die Schwierigkeit ist einfach die Referenz zu "ActiveCell", die offenbar nicht immer funktioniert. wenn ein anderes Workbook offen ist, oder wenn sich der Wert gerade ändert oder so.

Probier's vielleicht mit einer festen Range, etwas Range("A10"), um mal zu schauen, ob das passt.

Mit Function und Subroutine hat das alles nichts zu tun.

Auf meinem Rechner funktioniert schon dein urspruenglicher Code. Da muss irgendwie der Zugriff zu deinem aktiven Worksheet nicht passen.

Du kannst ja am Internet mal schauen: "When to use ActiveCell", da gibt es Warnungen.

Ähnliche Beiträge

VBA userform textbox inhalt ändern?

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der wert/Value geändert werden soll. aber es passiert nichts.....

in modul3:

sub test()

UserForm1.Show

UserForm1.TextBox1.Value= "test"

end sub

der inhalt bleibt gleich und wird nicht auf "test" geändert...

...zum Beitrag

EXCEL Makro @ vor Formel?

Die Formel die Kopiert werden soll ist:
=SVERWEIS(B3;Data!A1:C26;2;FALSCH)*F3

Die Kopierte Formel erscheint so:
=@SVERWEIS($B4; Data!$A$1:$C$26; 2; FALSCH)*F4

Mein VBA Makro ist :

Sub HinzufuegenUndKopieren()

Dim WertAusSpalte2 As Variant

WertAusSpalte2 = Cells(3, 2).Value

Rows(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Cells(4, 2).Value = WertAusSpalte2

Cells(4, 5).Formula = "=$B$4"

Cells(4, 6).Value = Cells(3, 6).Value

Cells(4, 7).Formula = "=SVERWEIS($B4, Data!$A$1:$C$26, 2, FALSE)*F4"

End Sub

Wie bekomme ich es hin, dass die Zeile ohne @ Kopiert wird ?.

...zum Beitrag

Excel aktive Zeile farblich markieren ohne VBA?

Ich habe laut einer Anleitung auf YouTube

Hier ist der Link

Kurzgefasst wird dort in einem bestimmten Bereich eine Bedingte Formatierung gemacht, mit der Formel:

=$A$1=ZEILE()

Hierzu wird noch ein VBA Code gebraucht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$A$4:$Q$10000")) Is Nothing Then
Range("$A$1").Value = Target.Row
End If
End Sub

Resultat:
Die Zeile der aktiven Zelle wird nun farblich markiert.

Frage:
Mir ist nun aufgefallen, dass ja jedes mal wenn irgendwo geklickt wird der VBA Code abgespielt wird. Dementsprechend kann man die Vorwärts und Rückwärts Buttons nicht mehr verwenden :(

Dies ist leider sehr unpraktisch. Ich habe in die Zellen etwas eingefügt und wollte dann es rückgängig machen und nicht mal das geht.
Daher die Frage, gibt es hier ein Workaround? Oder eventuell eine ganz andere Lösung ohne VBA?

Danke vorab

...zum Beitrag

VBA Laufzeitfehler/ Error/ Programm hängt sich auf?

Hallo zusammen,

Ich habe ein Makro geschrieben, mit welchem jeweils via Button eine neue Spalte eingefügt wird.

Über den Button Spalten entfernen wird die jeweils ausgewählte Spalte gelöscht.

Private Sub CmdSpaltePlus_Click() 'Test Spalte hinzufügen

Dim spalte, zeile As Integer

Application.ScreenUpdating = False

spalte = 4

Do Until Cells(2, spalte).Value = "Perfektion"

   spalte = spalte + 1

Loop

Columns("D:E").Copy

Columns(spalte).Insert Shift:=xlToRight

Range(Cells(2, spalte - 2), Cells(2, spalte + 1)).Merge

Range(Cells(4, spalte), Cells(4, spalte + 1)).Merge

Cells(3, spalte).Value = ""

Cells(3, spalte + 1).Value = ""

Cells(4, spalte).Value = ""

Cells(4, spalte + 1).Value = ""

zeile = 6

 

Do Until zeile = 1000

   If Left(Cells(zeile, 1).Value, 1) = "S" Then

        Cells(zeile, spalte).Value = ""

       Cells(zeile, spalte + 1).Value = ""

    End If

   zeile = zeile + 1

Loop

Application.ScreenUpdating = True

End Sub

 

Private Sub CmdPerfektionPlus_Click() 'Perfektion Spalte hinzufügen

Dim spalte, zeile As Integer

Application.ScreenUpdating = False

spalte = 4

Do Until Cells(2, spalte).Value = "F.n.B."

   spalte = spalte + 1

Loop

Columns("D:E").Copy

Columns(spalte).Insert Shift:=xlToRight

Range(Cells(2, spalte - 2), Cells(2, spalte + 1)).Merge

Range(Cells(4, spalte), Cells(4, spalte + 1)).Merge

Cells(3, spalte).Value = ""

Cells(3, spalte + 1).Value = ""

Cells(4, spalte).Value = ""

Cells(4, spalte + 1).Value = ""

zeile = 6

Do Until zeile = 1000

   If Left(Cells(zeile, 1).Value, 1) = "S" Then

        Cells(zeile, spalte).Value = ""

       Cells(zeile, spalte + 1).Value = ""

    End If

   zeile = zeile + 1

Loop

Application.ScreenUpdating = True

End Sub

Spalten löschen

Private Sub Kompetenzenentfernen_Click() 'Spalten löschen

ActiveSheet.Unprotect Password:="MNPS"

If Cells(5, ActiveCell.Column) = "Schicht" Or Cells(5, ActiveCell.Column) = "Nr." Or Cells(5, ActiveCell.Column) = "Name" Or Cells(3, ActiveCell.Column) = "A1" Or Cells(3, ActiveCell.Column) = "D1" Or Cells(9, ActiveCell.Column) = "." Or Cells(3, ActiveCell.Column) = "E1" Or Cells(3, ActiveCell.Column) = "F1" Or Cells(3, ActiveCell.Column) = "G1" Or Cells(3, ActiveCell.Column) = "H1" Or Cells(2, ActiveCell.Column) = "." Or Cells(1, ActiveCell.Column) = "Zielwert" Then

MsgBox "Spalte kann nicht gelöscht werden"

Else

Selection.EntireColumn.Delete Shift:=xlUp

End If

'ActiveSheet.Protect Password:="MNPS"

End Sub

Die Buttons funktionieren auch alle, nur leider kommt oft eine Laufzeitfehlerneldung oder das ganze Programm hängt sich auf wenn ich erst mit dem einen Button eine Spalte eingefügt habe und im Anschluss mit dem anderen Button eine Spalte einfügen.

Es funktioniert also leider nicht verlässlich. Hat jemand eine Idee woran das liegen könnte?

Vielen Dank im Voraus!

...zum Beitrag

In Excel VBA eine If-Schleife um zwei Zeilen voneinander zu subtrahieren (Uhrzeitformat und abs- Funktion inbegriffen)?

Mein Bisheriger Versuch:

For j = 4 To 700

With ActiveWorksheet

If .Cells(j, 2) = "" Then Exit For

If Minute(Abs(.Cells(j, 8).Value) - Abs(.Cells(j - 1, 8).Value)) >= 1 Then _

Call FilterCopieVerspätung

End With
Next j

End Sub

Problem: Typenkonflikt

...zum Beitrag

Excel VBA - Darstellung waagerecht-vertikal beim kopieren ändern?

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zum Beitrag

Exel VBA? wert automatisch löschen?

Folgenden Code habe ich..

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$E$5" Then

Range("G5").Value = Range("G5").Value + Target.Value

End If

End Sub

Wie bekomme ich es hin, das sich nach eingabe von E5 der wert automatisch wieder löscht?

danke schon mal

...zum Beitrag

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zum Beitrag

VBA Ausgewählte Zeilen kopieren und in anderer Tabelle einfügen (mit Variablen)?

Hallo Zusammen,

Ich hab ein Problem. Ich würde gern durch das schreiben einer 1 hinter meiner Materialsammlung per Knopfdruck alle gewählten Zeilen in eine Zusammengestellte Tabelle einfügen.

Die Materialsammlung bei der ich auswähle ist in Tabelle zwei und wird dann per Knopfdruck abgefragt. Die markierten sollen dann in Tabelle 1 in eine Tabelle eingefügt werden.

Da ich aber mit Variablen Arbeite ist das schwieriger als gedacht

Hier mein code zum verdeutlichen

Private Sub CommandButton1_Click()

Dim strBereich As Range Dim x As Integer

For x = 3 To 60 If Worksheets(2).Cells(x, 10) = "1" Then

Worksheets(1).Range(Cells(x, 2), Cells(x, 9))=Worksheets(2).Range(Cells(x, 1), Cells(x, 8))

End If Next x

End Sub

funktioniert leider aber nicht.

Bitte im Hilfe

...zum Beitrag

Wie kann Makros auf mehrere Zellen anwenden?

Hallo zusammen

Ich habe von einem von euch diesen Code für mein Problem erhalten.

Public dMerk As Double

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$7" And IsNumeric(Target) Then

Application.EnableEvents = False

On Error Resume Next

Range("A7").Value = dMerk + Target.Value

dMerk = Range("A7").Value

Application.EnableEvents = True

On Error GoTo 0

End If

End Sub

Jetzt möchte ich diesen jedoch nicht nur auf diese eine Zellle anwenden, sondern auf viele verschiedene. Wie kann ich das machen ohne für jede Zelle das Makro kopieren und den Bezug ändern muss.

Danke im voraus

...zum Beitrag

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
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

Excel nur Zelleninhalt in Zwischenspeicher. Profis gefragt?

Hallo,

Ich lasse in Excel (Excel 2019) auf Knopfdruck ein Makro laufen.

Es ist eigentlich ganz simple: Es schreibt "ok" in die aktive Zelle, kopiert die linke Zelle und springt dann wieder ein runter und ein nach rechts.

Private Sub CommandButton3_Click()

Range(ActiveCell, ActiveCell.Offset(2, 0)) = "ok"

ActiveCell.Offset(0, -1).Select

Range(ActiveCell, ActiveCell.Offset(2, 0)).Copy

ActiveCell.Offset(3, 1).Select

End Sub

Das was ich nicht hinkriege:

Es wird leider die gesamte Zelle kopiert. Wenn ich die Zelle irgendwo anders einfüge wird die gesamte Zelle mit Rahmen und anderen Formatierungen eingefügt.

Nun die Frage: Kann ich anstatt die gesamte Zelle auch nur den Zelleninhalt, also nur die Schrift ohne jegliche Formatierungen kopieren lassen? Ich brauche es in den Zwischenspeicher, sodass ich es wo anders in einem Browser mit STRG+V einfügen kann.

Vielen Dank im Voraus

...zum Beitrag

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen