Hallo Huffi,
so?
Tabelle1 AB11,221,2021,251,2531,281,2541,301,305 60,010,0070,040,0080,050,0590,060,05100,090,05Formeln der TabelleB1 : =UNTERGRENZE(A1;0,05) Excel Jeanie Html
Gruß Jürgen
Hallo Pepe,
dann sieht´s so aus.
Public Sub AusdruckAllerArtikel()
Dim lngZ As Long
With Worksheets("Tabelle1")
For lngZ = 5 To .Cells(Rows.Count, 2).E ...
Hallo Ruku,
mal ein erster Vorschlag.
Tabelle1 ABCDE1DatumKonto 201.09.201110000 Wert vor 6 Monaten:14.000,00 €301.10.201112000 Letzter Wert:19.000,00 €401.11.201114000 Differenz:5.000,00 €5 ...
Hallo Pepe,
in diesem Beispiel stehen deine Zahlen in Tabelle1 Spalte A ab Zeile2.
Auf Tabellenblatt2 wird die Zahl für den Sverweis in Zelle A2 eingegeben.
Das musst du für deine Datei noch anpa ...
Hallo Trapper,
hier mal eine Möglichkeit, wenn ich es richtig verstanden habe.
Tabelle1 Spalte B wird durchsucht nach Werten größer 10. Treffer werden in Tabelle2 gelistet. Die Tabellenblätter müs ...
Hallo Gast,
so sollte es gehen.
Sub Worksheet_Change(ByVal target As Range)
With ActiveSheet
.Unprotect Password:="GEHEIM"
Application.EnableEvents = False
targ ...
Hallo kaptan2002,
so?
Public Sub Drucken_Makro()
If MsgBox("Drucken auf A5?", vbYesNoCancel + vbQuestion, "DRUCKEN") <> vbYes Then Exit Sub
ActiveSh ...
Hallo Sasa,
das Öffnen über den Dialog geht ja auch in einem Netzwerk. Vermutlich meinst du das bereits ein Ordner vorbelegt ist. Ich kann es jetzt hier zu Hause nicht testen, aber es sollte per UN ...
Hallo Thomas,
ohne den Code jetzt komplett nachzuvollziehen. Du bist bei dem Commandbutton in einer 'allgemeinen' Prozedur.
Dim Target As Range
Target ist aber ein VBA-Schlüsselwort für ...
Hallo mk443,
basierend auf den Vorschlag von Isabelle. Ich würde an deiner Stelle aber mit einem 'echten' Datum arbeiten. Für spätere Auswertung sicherlich von Vorteil. Über das Zellformat hast du ...
Hallo Jennyschmitt,
bitte teste doch mal.
Sub OpenHyps()
On Error Resume Next
Dim lngRow As Long
Dim Start As Long
Dim Ende As Long
Start = InputBox("In welcher Zeile s ...
Hallo Laguna,
in diesem Beispiel werden immer die Daten von Tabelle1 A2 bis C2 nach Tabelle2 übertragen.
Public Sub Beispiel()
Worksheets("Tabelle1").Range(" ...
Hallo Marc,
ersetze "DeinPasswort" gegen dein richtiges.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Tabelle2 ...