Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA mehrere Sheets ansprechen

Forumthread: VBA mehrere Sheets ansprechen

VBA mehrere Sheets ansprechen
11.07.2019 12:40:55
Heinz
Hallo Leute im Forum
Ich möchte gerne mit dem unten stehenden Code gleich mehrere Sheets ansprechen.
Nicht nur den Sheets "Auswertung"
Es geht in allen Sheets genau immer nach den selben Prinzip, Spalten B u. E in Zahl umwandeln.
Könnte mir bitte dazu jemand weiterhelfen?
Danke, Heinz
  • 
Sub text_in_zahl() ' Spalte B in Sheets Auswertung in Zahl umwandeln
'Das Makro wandelt Text in Zahlen um
Sheets("Auswertung").Select
' Die letzte beschriebene Zelle wird ermittelt
Dim loletzte As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With Range("b2" & ":b" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
With Range("e2" & ":e" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
End Sub


    • Anzeige

    7
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: VBA mehrere Sheets ansprechen
    11.07.2019 13:00:24
    ede
    Hallo Heinz,
    dann teste mal: 
    
Public Sub text_in_zahl_allSheets()
Dim objWorksheet As Worksheet
Dim loletzte As Long
Application.ScreenUpdating = False
For Each objWorksheet In ThisWorkbook.Worksheets
loletzte = objWorksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With objWorksheet.Range("b2" & ":b" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
With objWorksheet.Range("e2" & ":e" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
Next
Application.ScreenUpdating = True
End Sub

    Gruss
    ede
    Anzeige
    AW: VBA mehrere Sheets ansprechen
    11.07.2019 13:05:09
    Heinz
    Hallo Ede,
    Erstmals Danke für deine Hilfe.
    Ich müsste die Sheets schon beim Namen nennen.
    War mein Fehler, Sorry
  • Es geht in allen Sheets genau immer nach den selben Prinzip, Spalten B u. E in Zahl umwandeln.

    • Es gibt schon einige Sheets die davon nicht betroffen sind.
    Danke, Heinz
    Anzeige
    AW: VBA mehrere Sheets ansprechen
    11.07.2019 13:06:11
    ede
    woran erkennt man die betroffenen Sheets?
    AW: VBA mehrere Sheets ansprechen
    11.07.2019 13:12:28
    Heinz
    Hallo Ede,
    Die betroffenen Sheets haben den Namen;
    Auswertung, 311, 312, 321, 322, 331, 332, 333
    Gruß Heinz
    AW: VBA mehrere Sheets ansprechen
    11.07.2019 13:17:54
    ede
    dann so: 
    
Public Sub text_in_zahl_allSheets2()
Dim objWorksheet As Worksheet
Dim loletzte As Long
Dim antwort As String
Application.ScreenUpdating = False
For Each objWorksheet In ThisWorkbook.Worksheets
Select Case objWorksheet.Name
Case "Auswertung", "311", "312", "321", "322", "331", "332", "333"
loletzte = objWorksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With objWorksheet.Range("b2" & ":b" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
With objWorksheet.Range("e2" & ":e" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
End Select
Next

    Gruss
    ede
    Anzeige
    AW: VBA mehrere Sheets ansprechen
    11.07.2019 14:09:12
    Heinz
    Hallo Ede,
    Super, recht herzlichen Dank !!!
    SG, Heinz
    AW: VBA mehrere Sheets ansprechen
    11.07.2019 13:10:58
    ede
    dann hier mal mit Abfrage auf Sheet-Name: 
    
Public Sub text_in_zahl_allSheets()
Dim objWorksheet As Worksheet
Dim loletzte As Long
Dim antwort As String
Application.ScreenUpdating = False
For Each objWorksheet In ThisWorkbook.Worksheets
antwort = MsgBox("Bearbeiten von Sheet: " & objWorksheet.Name, vbYesNo)
If antwort = vbYes Then
loletzte = objWorksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With objWorksheet.Range("b2" & ":b" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
With objWorksheet.Range("e2" & ":e" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
End If
Next
Application.ScreenUpdating = True
End Sub

    Anzeige
    ;

    Forumthreads zu verwandten Themen

    VBA Code vom anderen xls Datei ausführen
    Urmila

    Hallo,
    besteht die Möglichkeit, ein VBA Code von anderen Datei aus zu starten?
    Beispiel:
    Datei 01.xls: hier steht der VBA Skript zum Speichern der Tabelle als Html.
    Im Datei 02.xls ist ein Button und die Daten die als Html gespeichert werden sollen.
    Wenn ich den Button drück...
    27.11.2008 10:26:00
    Thread-ID: 1028252
    8 Beiträge
    VBA- Kopieren von Zeilen aus anderer Excel-Datei
    Zeilen

    Hi,
    ich benötige Hilfe bei folgendem Problem:
    Momentan habe ich schon ein Makro laufen, welches per Button komplette Sheets einer anderen Excel-Datei (ImportWkb) in meine Datei (NewWkb) kopiert. siehe Code unten.
    Jetzt möchte ich dieses Makro erweitern, sodass aus einer weiteren ex...
    06.11.2009 02:08:57
    Thread-ID: 1114817
    3 Beiträge
    Macro in anderer (geöffneter) XLS-Datei ansprechen
    Stefan

    Hi,
    ich habe hier zwei Dateien.
    Eine Master.xls und eine Slave.xls Die Master.xls öffnet mit Application.run die Slave.xls, worauf eine Symbolleiste der Slave.xls geöffnet wird, die verschiedene Funktionen in der Slave.xls ansprechen kann.
    Das Problem ist, dass die Funktionen der Sl...
    06.11.2009 22:31:30
    Thread-ID: 1115105
    7 Beiträge
    VBA: mehrere Bilder ansprechen
    Florian

    Hallo Genossen!
    Ich hätte wieder mal ein Frage, bei der ihr mir sicher helfen könnt: wie kann ich im VBA-Code mehrere Shapes gleichzeitig ansprechen, so dass der Code vereinfacht wird?
    Danke Euch schon mal!
    Florian
    .Shapes(1).Left = .Cells(kAufbau + 2, 2).Left
    .Shapes(1).Wid...
    11.03.2010 20:28:00
    Thread-ID: 1145227
    3 Beiträge
    VBA: Werte aus einer Datei in andere Dateien übert
    Pierre

    Hallo liebe VBA-Profis!
    Ich habe ein Problem, welches ich nicht selber lösen kann. Wäre nett wenn mir jemand helfen könnte. Vielen Dank im voraus!
    Ich habe eine Datei*, in denen untereinander Produkte [I3:I166] und Mengen [K3:K166] aufgelistet sind. Für meine Diplomarbeit müssen diese M...
    08.09.2011 12:16:43
    Thread-ID: 1228969
    2 Beiträge
    Anzeige
    VBA Kopie Daten in anderes Tabellenblatt
    Ronald

    Hallo,
    kann mir bitte jemand bei folgendem Problem helfen?
    Ich hab ein Tabellenblatt "Eingabe", dort erfasse ich Daten. (Datum, Name, Betrag, Text, E/A, Kostenstelle, Anmerkung)
    Ich brauche nun die Daten aus Datum, Name, Betrag, E/A, Kostenstelle im Tabellenblatt "Auswertung A".
    15.09.2011 00:47:38
    Thread-ID: 1229875
    9 Beiträge
    VBA - mehrere Spalten ansprechen
    WalterK

    Hallo,
    bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
    For i = 16 To LeZeiMinAB
    If Range("A" & i) = "" Or Range("B" & i) = "" Then
    Range("D" & i).Clear
    End If...
    15.04.2012 21:57:25
    Thread-ID: 1259508
    5 Beiträge
    Mittels VBA Werte in anderes Tabellenblatt kopiere
    Dominic

    Hi zusammen,
    Ich benötige eine Übergabe meiner Werte aus dem Tabellenblatt "Überblick" ins Tabellenblatt "Export". Der zu kopierende Bereich ist abhängig von folgenden Zellen:
    B1
    B2
    I1
    und B6.
    1)
    Wenn B1=1 und B2=1 und I2=1
    Dann sollen die Werte aus B31 - O31 und...
    30.01.2013 11:03:50
    Thread-ID: 1296660
    11 Beiträge
    Inhalt je Tabellenblatt per VBA in andere Datei
    janesch

    Hallo Excel Freunde,
    benötige mal Eure Hilfe beim folgenden Problem.
    Zur Überprüfung der Ergebnisse (mögliche Formelnmanipulation) muss ich die Eingabedaten je Tabellenblatt in die Ursprungstabelle vornehmen.
    Die 2 Dateien sind gleich aufgebaut(Anzahl der Tabellenblätter = 72 ) und...
    07.08.2013 10:24:17
    Thread-ID: 1326002
    5 Beiträge
    VBA Informationen aus anderen Dateien abrufen,
    Frederik

    Hallo VBA-Cracks,
    ich bin gerade am Verzweifeln. Ich habe eine Master-Datei erstellt, die mit bestimmten Inhalten befüllt wird, insgesamt werden hierbei monatlich 30 Dateien erstellt. Diese Dateien werden von jemand anderen bewertet und jede Zeile wird entsprechend markiert. Auf einem weite...
    23.07.2014 09:56:21
    Thread-ID: 1371740
    5 Beiträge
    Anzeige
    VBA Copy/Paste Spalten in andere Datei
    Sio
    Hallo, lerne gerade VBA und bastel gerade an folgendem Makro:
    Ziel des Makros:
    -Spalten A:C kopieren
    - Datei auswählen wohin es kopiert werden soll
    - Einfügen in ein spezielles Worksheet dieser Datei
    - Refresh der Datei
    - schließen der Datei woraus es kopiert wurde
    Das...
    23.08.2014 11:23:10
    Thread-ID: 1377842
    6 Beiträge
    VBA Übertragen von Werten in andere Excel Datei
    Werten

    Hallo ihr Lieben,
    zwar hatte ich gestern schon einmal gefragt, allerdings ging es da nicht genau um dasselbe Thema.
    Ich würde gerne einen Wert aus Datei 1 (A1) in eine weitere Datei 2 (A2) übertragen. Keine Formel, sondern nur der Wert. Beide Dateien haben denselben Pfad. Toll wäre es,...
    05.09.2014 09:12:22
    Thread-ID: 1380035
    5 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige