Verwandte Themen

faberheinrich
11.11.2020, 16:53
Beschwerdebrief Korrektur?

Liebe Leute, ich bitte Euch um eine kleine Korrektur. Meine Korrektur habe ich in Bold geschrieben. Bitte sagt mir kurz Bescheid, ob ich es richtig gemacht habe bzw. ob ich was versehen habe. Vielen herzlichen Dank für Eure Hile.

"Ich möchte mich beschweren über unsere Spanienreise. Wir haben eine vierzehntätige Reise bei Sie gebucht.

Uns wurde ein große Zimmer im Hotel Atlantis mit Aussicht auf das Mittelmeer versprochen, nur einige 100 Meter von Strand entfernt.

Wie groß war unsere Enttäuschung, als wir unsere Zimmer sahen. Es war nicht viel als ein Schrank größer.

Das Bett war schrecklich, es war wacklig, aus die Dusche kam kaum Wasser. Um ans Fenster zu gelangen, musste man über das Bett kriechen.

Die Aussicht war wenig romantisch. Wir starrten auf der Rückseite eines Hochhauses.

Zu Fuss wir gingen fast eine Stunde bis zum Meer und nacht konnten wir wegen lauter Musik nicht richtig schlafen. Und dafür haben wir 500,- Euro pro Person bezahlt. Da im Katalog vor den Preis von 500,- Euro ein akzeptables, geräumiges Hotelzimmer mit schöner Aussicht versprochen wurde und all diese Versprechungen vor Ort nicht eingehalten würden, fordern wir 40% des gezahlten Betrages zurück."

Mit freundlichen Grüßen

Natascha Lebedewa

Meine Korrektur:

Ich möchte mich über unsere Spanienreise beschweren. Wir haben eine vierzehntätige Reise bei Ihnen gebucht.

Uns wurde ein großes Zimmer im Hotel Atlantis mit Aussicht auf das Mittelmeer versprochen, nur einige 100 Meter von Strand entfernt.

Wie groß war unsere Enttäuschung, als wir unsere Zimmer sahen. Es war nicht mehr als ein Schrank größer.

Das Bett war schrecklich, es war wackelig, aus der Dusche kam kaum Wasser. Um ans Fenster zu gelangen, musste man über das Bett kriechen.

Die Aussicht war wenig romantisch. Wir starrten auf der Rückseite eines Hochhauses.

Zu Fuss gingen wir fast eine Stunde bis zum Meer und nachts konnten wir wegen lauter Musik nicht richtig schlafen. Und dafür haben wir 500,- Euro pro Person bezahlt. Da im Katalog vor dem Preis von 500,- Euro ein akzeptables, geräumiges Hotelzimmer mit schöner Aussicht versprochen wurde und all diese Versprechungen vor Ort nicht eingehalten wurden, fordern wir 40% des gezahlten Betrages zurück.

Computer, Deutsch, Schule, Deutsch als Fremdsprache, Deutsch als Zweitsprache, Germanistik, Grammatik, Korrektur, Lehrer
1 Antwort
QQwertz123
11.11.2020, 11:49
VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

PC, Computer, Microsoft Excel, programmieren, VBA, VBA Programmierung, Range, VBA Excel
2 Antworten
PythonNeuling00
10.11.2020, 19:42
Mit Links
Wie ist dieser verbesserte Python Code zu Palindromen?

Verbesserter Code mit Hilfe der Antwort von alfredo153

#!/bin/python3
#Palindrome-Woerter in Textdatei erkennen
import string

#Funktion zum Erkennen von Palindromen
def check_palindrome(word):
    reverse = ''
    removable = string.punctuation + string.whitespace + string.digits
    for c in removable: #Sonderzeichen entfernen
        word = word.replace(c, '')
    if word in string.punctuation or word in string.whitespace: #Sonderzeichen abfangen
        return False
    for c in word[::-1]: #Wort rueckwaerts zusammen basteln
        reverse = reverse + c
    if reverse.lower() == word.lower(): #Rueckwaerts-Wort mit vorwaerts-Wort vergleichen
        return True
    else:
        return False

#Den Benutzer eine Textdatei oeffnen lassen
file = input('Path to file: ')
palindrome = []

try:
    with open(file, 'r') as f:
        lines = f.readlines()
except FileNotFoundError:
    print('File not found!')
    exit(0)

#Einzelne Woerter im Text der Funktion check_palindrome uebergeben
for line in lines:
    line = line.split(' ')
    for word in line:
        if check_palindrome(word):
            palindrome.append(word)
        else:
            continue

#Ergebnis anzeigen
print(len(palindrome), ' found!\n')
for i in range(len(palindrome)):
    print(palindrome[i].replace('\n', '')) #\n in Wort entfernen, da sonst zu viele Leerzeichen bei Output
Computer, programmieren, Informatik, Python
2 Antworten
PythonNeuling00
10.11.2020, 18:12
Mit Links
Verbesserungsvorschläge für mein Python Skript: Polindrome finden?

Hey,

ich habe heute ein kleines Python Skript geschrieben, um Polindrome in einer Textdatei zu erkennen. Polindrome sind Wörter, die rückwärts geschrieben genau den gleichen Sinn ergeben wie vorwärts geschrieben.

#!/bin/python3
#Polindrome-Woerter in Textdatei erkennen
import string

#Funktion zum Erkennen von Polindromen
def check_polindrome(word):
    reverse = ''
    removable = ['\n', '\t', '\r']
    for c in removable: # Zeug entfernen
        word = word.replace(c, '')
    for c in string.punctuation: #Sonderzeichen entfernen
        word = word.replace(c, '')
    for c in string.whitespace: #Leerzeichen entfernen, da sonst falsche Ergebnisse entstehen
        word = word.replace(c, '')
    if word in string.punctuation or word in string.whitespace: #Leer- und Sonderzeichen abfangen
        return False
    if word.isdigit() == True: #Zahlen abfangen, da z.B. 121 rueckwaerts auch 121 ergibt
        return False
    for i in range(len(word)-1, 0-1, -1): #Wort rueckwaerts zusammen basteln
        reverse = reverse + word[i]
    if reverse.lower() == word.lower(): #Rueckwaerts-Wort mit vorwaerts-Wort vergleichen
        return True
    else:
        return False

#Den Benutzer eine Textdatei oeffnen lassen
file = input('Path to file: ')
polindrome = []

try:
    with open(file, 'r') as f:
        lines = f.readlines()
except FileNotFoundError:
    print('File not found!')
    exit(0)

#Einzelne Woerter im Text der Funktion check_polindrome uebergeben
for i in range(0, len(lines)):
    lines[i] = lines[i].split(' ')
    for word in lines[i]:
        if check_polindrome(word) == True:
            polindrome.append(word)
        else:
            continue

#Ergebnis anzeigen
print(len(polindrome), ' found!\n')
for i in range(len(polindrome)):
    print(polindrome[i].replace('\n', '')) #\n in Wort entfernen, da sonst zu viele Leerzeichen bei Output

Die Projektidee habe ich von: https://www.gutefrage.net/frage/python-projekt-ideen#answer-357880884

Wie man rückwärts über eine Zeichenkette rotiert, habe ich von: https://stackoverflow.com/questions/7961499/best-way-to-loop-over-a-python-string-backwards

  • Hat jemand Verbesserungsvorschläge für meinen Code?
  • Ein kleines Feedback bitte
Computer, programmieren, Informatik, Python
2 Antworten

Meistgelesene Beiträge zum Thema Computer
Mehr meistgelesene Fragen zu Computer