Katzen sind Bakterienverbreiter.
Ein Biss kann mitunter tödlich enden, wenn nichts dagegen unternommen wird.
Deswegen sofort ins Krankenhaus!!
Hallo
Gib den Befehl einfach unter DblClick rein ....
Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ActiveSheet.ProtectContents = False Then
ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True
Else
ActiveSheet.Unprotect
End If
End Sub
Hi
= STUNDE(I4)*60+MINUTE(I4)
Und das ganze als Zahl formatieren.
Hallo
Ich hoffe, ich versteh dein Problem und kann dir helfen.
Userform öffnen:
Ein neues Modul hinzufügen.
In diesem Modul dann ZB Folgendes reinschreiben:
Sub UF1_Öffnen()
UserForm1.Show
End sub
Dieses Makro weist du einem Button zu oder führst es über "Makro ausführen" manuell aus.
Die Userform sollte sich nicht automatisch schließen...
Eine Userform wird entweder mit dem X oder über einem Button geschlossen. Der Code vom Schließen-Button ist Folgender:
Unload UserForm1
Probiere das Problem zu finden, indem du den Debugger benutzt. Entweder mit F8 oder auf "Debug".
Ich seh jetzt keinen Fehler in deiner Zeile.
Tabelle2.Range("A1") = "1"
Egal, was in Zelle A1 steht, sollte mit der Zahl 1 überschrieben werden.
Versuch vl. noch eines...
Klick erneut auf den Button in deiner Userform und füge dort den gewünschten Code erneut ein. Vl. steht er einfach am falschen Platz.
Hallo
Weder Telekom noch sonst jemand kann deine Eingaben sehen.
Nur bei den Betreibern selbst (Google,.) werden die Eingaben gespeichert.
Das einzige, was möglich ist, ist es, deine besuchten Websiten nachzuvollziehen (ZB wenn die Anfragen über ein Pi-hole gesendet werden). Das hat aber nicht jeder daheim..
Diese Datei ist Teil des Microsoft® Windows®-Betriebssystems. Poqexec.exe wird von Microsoft Corporation entwickelt. Es ist eine System- und versteckte Datei. Poqexec.exe befindet sich normalerweise im Ordner %SYSTEM% und hat normalerweise eine Größe von 128.512 Byte.
Hallo
Versuch, den Tabellennamen einer Variable hinzuzufügen.
x = activesheet.name
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(30,'x'!R[3]C[-2]:R[3]C[17],3,),"""")"
Hallo
Ich hab eine Lösung, die du in deiner Tabelle verwenden kannst.
Nutze VBA. Ist ein einfacher 4 Zeilen Code, der macht, was du möchtest.
Den Code in ein neues Modul einfügen.
Ich habe schon eine Antwort erstellt... Da ich diese nicht mehr bearbeiten kann, geb ich hier meine Lösungsansatz für mehrere Textfelder ein:
Update 08.07.21:
Für die Version mit mehreren Textfeldern:
Erstellt eine Userform.
Mit dem ein- ausblenden Button wird die Userform geöffnet. In dieser kann ich dann auswählen, welche Textfelder ich öffnen oder schließen möchte.
Hallo
Hier noch ein gutes Bild zur Veranschaulichung:
Quelle: https://www.google.com/amp/s/www.heise.de/tipps-tricks/Excel-SUMMEWENN-Funktion-benutzen-4042099.html
Hallo
Wenn du ihr (oder ihm) sympathisch bist, also ihm oder ihr gefällst, dann bietet sie/er dir diese Massage an.
Hallo
Ich hätte ihr das Geld nicht mehr zurückgegeben.
Gekauft wie gesehen.
Lass dich nicht auf so dubiose Personen ein.
Also:
Mach dir keine Sorgen. Dir kann nichts rechtliches passieren.
Mach dir einen Aktenvermerk zu dem heutigen Tag. Bsp: Am xx um xx Uhr ist Folgendes passiert: Vorfall beschreiben.
Hallo
Gemäß einem Online-Kalorienrechner sieht dein Bedarf folgendermaßen aus:
Ihr Grundumsatz: 1460,40
Ihr Kalorienbedarf: 2482,68
Die Frage ist, wie viel du bis jetzt zu dir genommen hast.
Ich würde immer nur schrittweise runtergehen - 50-100 kcal - und dann immer schauen, wie's läuft.
Hallo
Nachfolgend habe ich 2 Codes für dich.
Der durchsucht Tabelle1, ob sich eine 4 darin befindet und ersetzt den Wert in Tabelle2 in der gleichen Zelle:
'''''''''''''''''''''''''''''''''''
' Durchsucht Tabelle1, ob sich eine 4 in einer Zelle befindet
' Ersetzt den Wert in Tabelle2, wenn sich eine 4 in Tabelle1 befindet
'''''''''''''''''''''''''''''''''''
Sub Einen_Wert_ersetzen()
For y = 2 To 150
For x = 2 To ActiveSheet.Cells(Rows.Count, y).End(xlUp).Rows
If Tabelle1.Cells(x, y).Value = 4 Then
Tabelle2.Cells(x, y).Value = "Neuer Eintrag"
End If
Next x
Next y
End Sub
Der durchsucht Tabelle1, ob sich eine 4 darin befindet und ersetzt die ganze Zeile in Tabelle2 durch einen vorgegebenen Wert (hier: Neuer Eintrag):
'''''''''''''''''''''''''''''''''''
' Durchsucht Tabelle1, ob sich eine 4 in einer Zelle befindet
' Ersetzt die ganze Zeile durch den Wert "Neuer Eintrag"
'''''''''''''''''''''''''''''''''''
Sub Ganze_Zeile_ersetzen()
For y = 2 To 150
For x = 2 To ActiveSheet.Cells(Rows.Count, y).End(xlUp).Rows
If Tabelle1.Cells(x, y).Value = 4 Then
Tabelle2.Cells(x, y).EntireRow.Value = "Neuer Eintrag"
End If
Next x
Next y
End Sub
Hallo
Mit VBA ist das möglich.
Berechnet wird in der Tabelle 1.
Was gerechnet wird:
A2 + B1 = C2
A3 + B2 = C3 usw.
bis zur letzten Zeile.
Sub addieren()
With Tabelle1
For y = 2 to activesheet.cells(rows.count,1).end(xlup).row
x = y - 1
.Cells(y,3) = .Cells(y,1) + .Cells(x,2)
Next y
End with
End sub
Den Code in ein neues Modul geben und ausführen.
Hallo
Schreib vor dem + ein ' Zeichen.
Also '+25
Hallo
Der Passwortgenerator ist super:
https://www.chip.de/downloads/Excel-PIN-und-Passwort-Generator_180839381.html#:~:text=sichere%20Passw%C3%B6rter%20generieren-,Mit%20dem%20%22Excel%20PIN%2D%20und%20Passwort%2DGenerator%22%20k%C3%B6nnen,oder%20auch%20Sonderzeichen%20enthalten%20soll.
Er ist auf VBA-Basis aufgebaut, einfach und macht, was er soll bzw. was du möchtest.
Hallo
Es gibt bestimmt viele Herangehensweisen...
Bei meiner mit VBA werden die Bilder in der aktuellen Tabelle gespeichert.
Ablauf:
Wenn ich im Dropdownfeld auf London klicke, erscheint das Bild namens London, ansonsten ist es nicht sichtbar.
Den Code in ein Modul einfügen:
Sub bilder()
ActiveSheet.Shapes("London").Visible = False
ActiveSheet.Shapes("Barcelona").Visible = False
If Tabelle1.Cells(2, 2).Value = "London" Then ActiveSheet.Shapes("London").Visible = True
If Tabelle1.Cells(2, 2).Value = "Barcelona" Then ActiveSheet.Shapes("Barcelona").Visible = True
End Sub
Den Code in die Tabelle einfügen:
Private Sub Worksheet_Change (ByVal Target As Range)
call bilder
End Sub
Ergebnis London:
Ergebnis Barcelona:
Hallo
Hier eine Lösung mit VBA (ohne Schleife, nur mit den Zahlen von dir):
(Lösung mit Schleife - siehe weiter unten)
So sieht dann das Ergebnis aus: Tabelle1
So sieht dann das Ergebnis aus: Tabelle2
Den Code in ein Modul einfügen:
Sub Werte_berechnen()
If Tabelle1.Cells(5, 2) = 1 Then Tabelle1.Cells(5, 3) = Tabelle2.Cells(7, 6)
If Tabelle1.Cells(5, 2) = 2 Then Tabelle1.Cells(5, 3) = Tabelle2.Cells(8, 6)
If Tabelle1.Cells(5, 2) = 3 Then Tabelle1.Cells(5, 3) = Tabelle2.Cells(9, 6)
End Sub
Hier siehst du die Struktur (Tabellen & Modul):
Hier der Code im Modul:
In der Tabelle1 wird der Code noch eingefügt:
Private Sub Worksheet_Change(ByVal Target As Range)
Call Werte_berechnen
End Sub
_________________________________________
Hier eine Lösung mit VBA (mit Schleife):
Wenn es mehr Zahlen gibt, dann nutze hier die Schleife:
mehr Zahlen nach unten:
Code ins Modul:
Sub Werte_berechnen_schleife()
For y = 7 To 507
x = y - 6
If Tabelle1.Cells(5, 2) = x Then Tabelle1.Cells(5, 3) = Tabelle2.Cells(y, 6)
Next y
End Sub
Bild vom Modul:
Bild der Tabelle1:
Der Impfpass selber kostet nix.
Den kannst du dir in jeder Apotheke holen.
Vl. verlangt er eine Art Bearbeitungsgebühr fürs neu eintragen.