Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

VBA in Excel Schrift in bestimmter zeile Dick machen

Mitglied: 53111

53111 (Level 1)

17.10.2007, aktualisiert 22.10.2007, 22338 Aufrufe, 6 Kommentare

hallo ich habe folgendes Problem ich möchte dass per vba in einer bestimmten zeile die schrift dick gemacht wird.

ich habe folgendes angefangen. das schlüsselwort ist "Gesamt:". alles in der zeile in der Gesamt steht soll dick gemacht werden?


Dim auswahl As Range
For Each auswahl In Range("A1:C51")
If cell.Value = "Gesamt:" Then
cell.Font.Bold = True
End If
Next
Mitglied: wakko
17.10.2007 um 10:25 Uhr
Moin,

ich würde das so machen:
01.
Dim i% 
02.
i = 1 
03.
With ActiveSheet 
04.
Do Until .Cells(i, 1).Value = "" 
05.
    If .Cells(i, 1).Value = "Gesamt:" Then 
06.
        .Rows(i & ":" & i).Select 
07.
        Selection.Font.Bold = True 
08.
    End If 
09.
    i = i + 1 
10.
Loop 
11.
End With
Nich tschön, aber läuft...

Gruß,
Henrik
Bitte warten ..
Mitglied: 8644
17.10.2007 um 11:37 Uhr
Hi,

muß es unbedingt VBA sein? Für solche Zwecke gibt es doch eigentlich die Bedingte Formatierung.
Also ungefähr so:
- Bereich markieren
- Menü Format -> Bedingte Formatierung
- Formel ist
- =$A1="Gesamt"
- Bei Format Fett einstellen

Psycho
Bitte warten ..
Mitglied: 53111
17.10.2007 um 11:42 Uhr
das problem ist dass sich die zeile an der "Gesamt" steht immer wieder ändert? die inhalte der Tabelle werden aus einer anderen tabelle geholt?

Dim i%
i = 1
With ActiveSheet
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With

hat bei mir leider nicht funktioniert? wie spreche ich denn eine andere Tabelle in der excel mappe an? glaube es hat was mit dem activesheet zu tun, dass es nicht funktioniert?
Bitte warten ..
Mitglied: wakko
17.10.2007 um 13:53 Uhr
Na dan machst du aus AvtiveSheet -> ActiveWorkbook.Sheets(1) für das erster usw.
Bitte warten ..
Mitglied: 53111
18.10.2007 um 09:56 Uhr
ok ich habe das jetzt wie folgt gemacht:

[code]
Sub DeleteRowIfEmptyCell()


Set Bereich = Range("A1:C51")
For Each Zelle In Bereich
If Zelle.Value = "0" Then
Zelle.Value = ""
End If
Next

Dim intRow As Integer, intLastRow As Integer, letzte As Integer

intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Delete
End If
Next intRow



Dim i%
i = 1
With ActiveWorkbook.Sheets(2)
Do Until .Cells(i, 1).Value = ""
If .Cells(i, 1).Value = "Gesamt:" Then
.Rows(i & ":" & i).Select
Selection.Font.Bold = True
End If
i = i + 1
Loop
End With



Sheets("Liste für Word").Select


End Sub [/code]


jetzt erscheint der fehler "400"? und es wird nichts dick gezeichnet
Bitte warten ..
Mitglied: bastla
22.10.2007 um 22:21 Uhr
Hallo saibonaut!

Bei mir läuft dieser (fast unveränderte Code) problemlos durch (zumindest hinsichtlich der Fett-Formatierung ab der Zeile "i=1" sehe ich überhaupt kein Problem):
01.
Sub DeleteRowIfEmptyCell() 
02.
 
03.
Set Bereich = Range("A1:C51") 
04.
For Each Zelle In Bereich 
05.
    If Zelle.Value = "0" Then Zelle.Value = "" 
06.
Next 
07.
 
08.
Dim intRow As Integer, intLastRow As Integer, letzte As Integer 
09.
 
10.
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row 
11.
For intRow = intLastRow To 1 Step -1 
12.
    If Application.CountA(Rows(intRow)) = 0 Then 
13.
        intLastRow = intLastRow - 1 
14.
    Else 
15.
        Exit For 
16.
    End If 
17.
Next 
18.
 
19.
For intRow = intLastRow To 1 Step -1 
20.
    If IsEmpty(Cells(intRow, 1)) Then Rows(intRow).Delete 
21.
Next 
22.
 
23.
i = 1 
24.
With ActiveWorkbook.Sheets(2) 
25.
    Do Until .Cells(i, 1).Value = "" 
26.
        If .Cells(i, 1).Value = "Gesamt:" Then 
27.
            .Rows(i & ":" & i).Font.Bold = True 
28.
        End If 
29.
        i = i + 1 
30.
    Loop 
31.
End With 
32.
 
33.
Sheets("Liste für Word").Select 
34.
 
35.
End Sub
Für welche Zeile wurde denn der Fehler angezeigt?
Allerdings wäre noch anmerken, dass natürlich auch mit "Bedingter Formatierung" (wie oben von Psycho Dad gezeigt) die Zeile "eingefettet" werden kann, da ja mit der dargestellten Formel immer der Inhalt der Spalte A geprüft wird und die Zeilennummer dabei keine Rolle spielt.

Grüße
bastla

P.S.: Zum Formatieren als Code nicht [] sondern <> verwenden.
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Einzelne Zeilen aus PDF in Excel per VBA auslesen

gelöst Frage von cuwie.deVB for Applications6 Kommentare

Hallo zusammen, ich möchte diesen Thread hier mal wieder ein bisschen aufwärmen, weil er mir auch sehr viel geholfen ...

Microsoft Office

Excel VBA - Jede Zeile ohne aktuelles Datum entfernen

gelöst Frage von abuelitoMicrosoft Office4 Kommentare

Hallo an Alle, ich habe folgendes Problem und hoffe, dass ihr mir wieder helfen könnt :-) Ich habe eine ...

Microsoft Office

Excel: per VBA in Abhängigkeit von Wert Zeilen aus- oder einblenden

gelöst Frage von philbo20Microsoft Office10 Kommentare

Hallo zusammen, ich habe eine Excel-Tabelle, in der ich in einer Zelle ein Datum stehen habe. Nun würde ich ...

Microsoft Office

Excel Zeilen in eine Zeile anzeigen

gelöst Frage von rw72Microsoft Office2 Kommentare

Hallo, ich habe eine Excel Tabelle mit dem Aufbau Nummer Text 0000001 Test2 0000001 Test1 0000002 Titel 0000002 Titel2 ...

Neue Wissensbeiträge
Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 24 MinutenHumor (lol)

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 13 StundenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Sicherheit

Intel gibt neue Spectre V2-Microcode-Updates frei (20.02.2018)

Information von kgborn vor 13 StundenSicherheit

Intel hat zum 20. Februar 2018 weitere Microcode-Updates für OEMs freigegeben, um Systeme mit neueren Prozessoren gegen die Spectre ...

Microsoft
ARD-Doku - Das Microsoft Dilemma
Tipp von Knorkator vor 16 StundenMicrosoft3 Kommentare

Hallo zusammen, vor einigen Tagen lief in der ARD u.a. Reportage. Das Youtube Video dazu dürfte länger verfügbar sein. ...

Heiß diskutierte Inhalte
Windows Server
AD DS findet Domäne nicht, behebbar?
Frage von schapitzWindows Server40 Kommentare

Guten Tag, ich habe bei einem Kunden ein Problem mit den AD DS. Umgebung ist folgende: Windows Server 2016 ...

Router & Routing
LANCOM VPN CLIENT einrichten
Frage von Finchen961988Router & Routing27 Kommentare

Hallo, ich habe ein Problem und hoffe ihr könnt mir helfen, wir haben einen Kunden der hat einen Speedport ...

Router & Routing
ISC DHCP 2 Subnetze
gelöst Frage von janosch12Router & Routing19 Kommentare

Hallo, ich betreibe bei mir im Netzwerk einen ISC DHCP Server auf Debian, der DHCP verwaltet aktuell ein /24 ...

Switche und Hubs
Cisco SG350X-48 AdminIP in anderes VLAN
Frage von lcer00Switche und Hubs14 Kommentare

Hallo zusammen, ich habe ein Problem mir einem Cisco SG350X-48 bei der Erstinstallation wurde eine IP 192.168.0.254 (Default VLAN ...