|
Falls die Groß-/Kleinschreibung unwichtig ist, dann kann man aus
If Geraet = "BB22" Or Geraet = "bb22" Or Geraet = "Bb22" Then
das hier machen:
If 0 = StrComp(Geraet, "BB22", vbTextCompare) Then
vbTextCompare bedeutet, dass a = A, b = B usw.
Leider habe ich das Problem, dass die Tabellen nach oben verschoben und teilweise geteilt (im Seitenlayout) werden.
Kannst du das bitte etwas näher erläutern.
Hiermit überträgst du die Werte von einem Tabellenblatt in ein anderes.
Worksheets(2).Range("C114:C121").Value = Worksheets(va).Range("B125:B132").Value '8 Zellen
Hiermit löscht du einen Bereich:
Range("A11:L125").Delete shift:=xlUp
Dabei werden Zellen von unten nach oben nachgerückt - meinst du das vielleicht?
Wenn nichts nachrücken soll, nimm:
Range("A11:L125").ClearContents
Grüße
|