Kann jemand diese EXCEL Funktion auf deutsch übersetzen?

=OR(CELL(“col”)=COLUMN(),CELL(“row”)=ROW())

2 Antworten

Von Experte DanKirpan bestätigt

FaTech

27.01.2021, 12:04

Bin mir nicht sicher, ob excel das genau so übersetzt, aber wahrscheinlich schon:

=OR(CELL(“col”)=COLUMN(),CELL(“row”)=ROW())

=ODER(ZELLE("col")=SPALTE(),ZELLE("row")=ZEILE())

Im Englischen kann man Wörter mehrfach übersetzen ... Deshalb musst du einfach mal schauen. Aber so ungefähr könnte es sein (Habe excel lange nicht mehr benutzt)

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

27.01.2021, 12:44

Dies hast du ggf noch öfter (Wenn Firmen International tätig sind)
Alle • Excel-Translator (excel-translator.de)

Sub MarkColumns()

Dim ws As Worksheet

Dim lastRow As Long, lastColumn As Long

Dim col As Long

Dim row As Long

Dim cell As Range

' Arbeitsblatt festlegen

Set ws = ThisWorkbook.Worksheets("Tabelle1") ' Ersetzen Sie "Tabelle1" durch den Namen Ihres Arbeitsblatts

' Letzte Zeile und letzte Spalte ermitteln

lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).row

lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column

' Alle Spalten durchlaufen

For col = 1 To lastColumn

' Prüfen, ob ein Wert in irgendeiner Zeile der Spalte größer oder gleich 25 ist

For row = 1 To lastRow

Set cell = ws.Cells(row, col)

If cell.Value >= 25 Then

' Wenn ja, die gesamte Spalte markieren und zur nächsten Spalte wechseln

ws.Columns(col).Interior.Color = RGB(255, 0, 0)

Exit For ' Beenden Sie die Schleife, wenn ein Wert >= 25 gefunden wurde

End If

Next row

Next col

End Sub

Das Makro markiert jedeglich eine Spalte Rot, wenn ein Wert = 25 oder grösser 25 wenn diese Bedingung auf Zeile 1 zutrifft, es sollte jedoch die Spalte rot markieren egal in welcher Zeile der Wert gleich 25 oder grösser 25 ist.

Weis jemand wie ich das Makro anpassen muss damit es die gewünschte Funktionalität gewährleistet?

...zur Frage

Kniffel programmieren?

Die Aufgabenstellungen stehen auf dem bild. Bin echt verzweifelt, hoffe, dass mir jemand dabei helfen kann ..

Hab bisher das: (ist irgendwie falsch..)

#!/usr/bin/python
from random import randint
from Tkinter import *

def roll():
    for i in range(5):
        if v[i].get() == 0:
            w[i] = randint(1,6)
            ergebnis[i].configure(text=w[i])

root=Tk()
root.title("Checkbuttons")

w = [0,0,0,0,0]
v = []
ergebnis = []
hold = []

for col in range(4,9):
    ergebnis.append(Label(root,text=w[col-4],width=5))
    ergebnis[-1].grid(row=0,column=col)
    v.append(IntVar())
    hold.append(Checkbutton(root,variable=v[-1]))
    hold[-1].grid(row=1,column=col)


butroll=Button(root,text="Roll 1!",command=roll).grid(row=5,column=5)
root.mainloop()

...zur Frage

Mutter in Excel lehren?

Hey! Meine Mama braucht Excel Tabellen für ihre Arbeit (Kita). Da sie sich nicht wirklich auskennt „lerne“ ich ihr den Umgang mit Excel. Welche Funktionen sollte ich ihr unbedingt zeigen? Liebe Grüße 😊

...zur Frage

Wie kann ich in Python einen Loop einfügen der aus einer Exceltabelle ausliest?

Hallo würde mir gerne meine Vokalen mit Text to Speech vorlesen lassen, ich habe dafür eine Excel-Tabelle mit Englischen und Deutschen Vokabeln.

Mein Problem ist das ich nicht weiß wie man in Python eine automatische loop einfügt die dann von einem English/Deutschvokabel Paar zum nächsten geht und sie vorliest.

Weil so wie ich es jetzt habe muss ich bei jedem neuen Vokabel paar eine manuelle Variable erstellen und dann diese wieder in meinen Text to Speech Code einfügen.

Mein Code:

import openpyxl
import pyttsx3


# Give the location of the file
path = "test.xlsx"

# To open the workbook
# workbook object is created
wb_obj = openpyxl.load_workbook(path)

# Get workbook active sheet object
# from the active attribute
sheet = wb_obj.active

# Cell objects also have a row, column,
# and coordinate attributes that provide
# location information for the cell.

# Note: The first row or
# column integer is 1, not 0.

# Cell object is created by using
# sheet object's cell() method.
wort1en = sheet.cell(row=1, column=1)
wort1de = sheet.cell(row=1, column=2)


# Text to Speech
engine = pyttsx3.init()

# Voice IDs pulled from engine.getProperty('voices')
# These will be system specific
de_voice_id = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\TTS_MS_DE-DE_HEDDA_11.0"
en_voice_id = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\TTS_MS_EN-US_ZIRA_11.0"

# Set properties _before_ you add things to say
engine.setProperty('rate', 160)    # Speed percent (can go over 100)
engine.setProperty('volume', 1)  # Volume 0-1
# Use female English voice
engine.setProperty('voice', en_voice_id)
engine.say(wort1en.value)


# Set properties _before_ you add things to say
engine.setProperty('rate', 150)    # Speed percent (can go over 100)
engine.setProperty('volume', 0.9)  # Volume 0-1
# Use female German voice
engine.setProperty('voice', de_voice_id)
engine.say(wort1de.value)


engine.runAndWait()

Meine Vokabelliste:

...zur Frage

Excel VBA Selection begrenzen?

Hallo zusammen.

Ich komme leider beim meinem Problem nicht alleine weiter.

In meiner Tabelle werden in Spalte 2 und Zeile 4 Zeichen angezeigt, sobald ein Bereich selektiert wird. Die Zeichen sollen sich allerdings nur auf die Range J7:OJ57 beschränken, auch wenn die Selektion über die Range hinausgeht.

Denn jetzt, wenn ich z.B. eine Spalte markiere, schreibt der Code mir alle Zeichen in jede Zeile der Spalte, was fatal ist.

Kann ein Profi kurz helfen? :)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J6:OJ57")) Is Nothing Then
Dim cell As Range
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Application.EnableEvents = False
   Range("B6:B57").ClearContents
   Range("J4:OJ4").ClearContents
For Each cell In selection
  With cell
   Range(cell(.Row, 2), Cells(.Row, 2)) = ">>"
   Range(cell(4, .Column), Cells(4, .Column)) = "V"
  End With
Next
   Application.ScreenUpdating = True
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
End If
End Sub

...zur Frage

Stunden (dezimal) in Excel addieren?

Hi, ich hab folgendes Problem. Und zwar hab ich eine Excel Tabelle mit Stunden der Form 7.50, 1.25, 8.00, usw. und möchte diese aufsummieren. Allerdings funktioniert die Summe nicht und es kommt immer 0 raus. Dachte es geht über "formate cells", hat aber soweit nicht geklappt... Region settig ist German (Germany).

Danke für alle Antworten!

...zur Frage

Excel, Userform: Datum aus Textbox wird in der Zelle nicht als Datum erkannt?

Ich habe folgenden Code:

Private Sub Fertig_Click()

Dim last As Integer

last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1

Tabelle9.Cells(last, 1) = Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy")

End Sub

In der Zelle nachher wird es nicht als Datum erkannt.
Muss es aber als Datum sortieren können.

Ich habe schon viele Foreneinträge zu dem Thema gelesen, doch nichts davon funktioniert bei mir.

...zur Frage

Excel Funktion Sverweis oder Wenn?

Hallo liebe Community,

welche Formel müsste ich hier in C2 bis C7 verwenden um den korrekten Rabatt zu erhalten? Geht es Ohne Wenn Funktion, falls die Werte in A11-14 geändert werden?

...zur Frage

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!

...zur Frage

Excel Masken menüband?

Hallo Zusammen

ich habe folgendes Problem und zwar finde ich in excel die Funktion Masken nicht kann mich jemand vielleicht erleuchten warum dies nicht dort steht?

Paar Randnotizen:

Excel 2023

Mac

...zur Frage

Excel Formel automatisch runterziehen in Tabelle?

Hallo zusammen,
gibt es eine Möglichkeit in Excel in einer Tabelle, das eine Funktion (Formel) automatisch mit "runtergezogen" wird, desto größer die Tabelle wird ?

...zur Frage

Übersetzen mit Excel?

Hallo zusammen.

Ich habe eine Frage die Übersetzungen in Excel betrifft. Ich habe eine große Tabelle mit deutschen Wörtern und würde diese gerne in anderen Zellen übersetzen.

Nun kann man die Zellen markieren und über

Daten/Überprüfen/Übersetzen

die Wörter übersetzen. Allerdings wird einem die Übersetzung nur angezeigt am rechten Bildschirmrand. Übersetz endgültig wird nichts.

Was muß ich tun damit ich die Übersetzungen so in die entsprechenden Zellen bekomme? Auf der Arbeit habe ich nur eine normale Office 365 Version.

Danke für Eure Hilfe.

...zur Frage

Musik interpret und titel in excel liste?

Hallo,

habe Folgendes Problem ich habe sehr viel musik und möchte diese in excel auflisten kann ich also mit einer Funktion von excel automatisch excel den namen und sänger eintragen lassen in eine liste?

...zur Frage

Was ist falsch an meiner Eingabe bei excel?

Hallo zusammen, ich muss in excel eine Funktion berechnen, x-Werte von 20-40. Die Funktion lautet: f(x, Erwartungswert, Standardabweichung)= 1/Standardabweichung * Wurzel aus 2*PI* e^-1/2*(x-Erwartungswert)/ Standardabweichung)^2

ich hoffe man kann es erkennen, was könnte ich falsch gemacht haben, dass ich kein Ergebnis erhalte?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen